tst_str_date.pl
=head1 NAME
test_strings_and_dates.pl - Test the StringUtil and DateUtil packages.
=head1 SYNOPSIS
Test the Pitonyak::StringUtil and Pitonyak::DateUtil packages.
From the command line, type the following:
perl -w test_strings_and_dates.pl
This should indicate that it passed.
=head1 COPYRIGHT
Copyright 1998-2002, Andrew Pitonyak (perlboy@pitonyak.org)
This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 Modification History
=head2 March 13, 1998
Version 1.00 First release
=head2 September 10, 2002
Version 1.01 Changed internal documentation to POD documentation.
=cut
use Pitonyak::StringUtil
qw(num_int_digits num_with_leading_zeros compact_space trim_space trans_blank);
use Pitonyak::DateUtil;
use strict;
#************************************************************
#** **
#** Input: None **
#** **
#** Output: 0 if test fails, non-zero otherwise. **
#** **
#** Notes: **
#** **
#************************************************************
sub test_StringUtil {
my $rc = 1;
my ( @data1, @data2, @data3, @data4, @tmp1 );
my $index;
my $moduleOK = 1;
my $tmp;
my $i;
my $day1;
print "(" . Pitonyak::StringUtil::trans_blank( "", "" ) . ")";
print "(" . Pitonyak::StringUtil::trans_blank( "", "X" ) . ")";
print "(" . Pitonyak::StringUtil::trans_blank( "X", "Y" ) . ")";
print "(" . Pitonyak::StringUtil::trans_blank( "", "00" ) . ")\n";
if ( Pitonyak::StringUtil::trans_blank( "", "" ) ne ""
|| Pitonyak::StringUtil::trans_blank( "", "X" ) ne "X"
|| Pitonyak::StringUtil::trans_blank( "X", "Y" ) ne "X"
|| Pitonyak::StringUtil::trans_blank( "", "00" ) ne "00" )
{
$rc = 0;
print "Pitonyak::StringUtil::trans_blank() failed\n";
}
else {
print "passed Pitonyak::StringUtil::trans_blank()\n";
}
$moduleOK = 1;
@data1 = (
"here", " there ", " here and there ",
"but not", " over there today"
);
@data2 =
( "here", "there", "here and there", "but not", "over there today" );
compact_space(@data1);
for ( $i = 0 ; $i < scalar(@data2) ; ++$i ) {
if ( $data1[$i] ne $data2[$i] ) {
$rc = 0;
$moduleOK = 0;
print
"compact_space() failed at index $i data1 = ($data1[$i]), data2 = ($data2[$i])\n";
}
}
if ( $moduleOK == 1 ) {
print "passed compact_space()\n";
}
$moduleOK = 1;
@data1 = (
"here", " there ", " here and there ",
"but not", " over there today"
);
@data2 = (
"here", "there", "here and there",
"but not", "over there today"
);
trim_space(@data1);
for ( $i = 0 ; $i < scalar(@data2) ; ++$i ) {
if ( $data1[$i] ne $data2[$i] ) {
$rc = 0;
$moduleOK = 0;
print
"trim_space() failed at index $i data1 = ($data1[$i]), data2 = ($data2[$i])\n";
}
}
if ( $moduleOK == 1 ) {
print "passed trim_space()\n";
}
$moduleOK = 1;
@data1 = (
-10001, -10000, -9999, -5000, -101, -100, -99, -1,
0, 1, 9, 10, 11, 999, 1000, 1001
);
@data2 = ( 6, 6, 5, 5, 4, 4, 3, 2, 1, 1, 1, 2, 2, 3, 4, 4 );
for ( $i = 0 ; $i < scalar(@data2) ; ++$i ) {
if ( num_int_digits( $data1[$i] ) != $data2[$i] ) {
$rc = 0;
$moduleOK = 0;
print
"num_int_digits() failed at index $i data1 = ($data1[$i]), data2 = ($data2[$i])\n";
}
}
if ( $moduleOK == 1 ) {
print "passed num_int_digits()\n";
}
$moduleOK = 1;
@data1 = ( -5, -4, -3, -2, -1, 5, 4, 3, 2, 1, 0, 4, 3, 2, 1 );
@data2 = (
-101, -103, -199, -201, -100, -101, -103, -199,
-201, -100, 2, 103, 199, 201, 100
);
@data3 = (
"-0101", "-103", "-99", "-1", "-", "00101",
"0103", "199", "01", "0", "", "0103",
"199", "01", "0"
);
for ( $i = 0 ; $i < scalar(@data2) ; ++$i ) {
$tmp = num_with_leading_zeros( $data1[$i], $data2[$i] );
if ( $tmp ne $data3[$i] ) {
$rc = 0;
$moduleOK = 0;
print
"num_with_leading_zeros() failed at index $i data1 = ($data1[$i]), data2 = ($data2[$i]), data3 = ($data3[$i]) != ($tmp)\n";
}
}
if ( $moduleOK == 1 ) {
print "passed num_with_leading_zeros()\n";
}
$moduleOK = 1;
@data1 = (
"YYYYMMDDhhmmss", "YYYMMDDhhmmss",
"YYMMDDhhmmss", "YYYYMMDDhhmmss",
"YYYMMDDhhmmss", "YYMMDDhhmmss",
"YMMDDhhmmss", "YY-WWW-DD"
);
@data2 = (
"YYYY:MM:DD:hh:mm.ss", "\\DYYYMMDDhhmmss",
"\\dayYYMMyDDhhmmss", "YYYYxxzzMMDDhhmmss",
"YYYMMDDhhmmssxtxtxt", "YYMMDDhh::::mmss",
"YzzzzzMMDDhhmmss", "YY-MMM-DD"
);
for ( $i = 0 ; $i < scalar(@data2) ; ++$i ) {
my $now = time();
my $tmp1 = time_date_str( $data1[$i], $now );
if (
time_date_str_to_int( $data1[$i],
time_date_str( $data1[$i], $now ) ) != time_date_str_to_int(
$data2[$i], time_date_str( $data2[$i], $now )
)
)
{
print
"time_date_str() -> time_date_str_int() does not invert for $data1[$i] and $data2[$i] on iteration $i\n";
$moduleOK = 0;
$rc = 0;
}
}
if ( $moduleOK == 1 ) {
print
"passed time_date_str(), invert_time_date_str(), and time_date_str_to_int()\n";
}
$moduleOK = 1;
#
# and now for some Y2K testing and other stuff. Some errors should be encountered
#
my $day2 = time_date_str_to_int( "YYYYMMDDhhmmss", "19991229031227" );
@data1 = ( 99, 99, 99, 100, 100, 100, 100 );
@data2 = ( 11, 11, 11, 0, 0, 0, 0 );
@data3 = ( 29, 30, 31, 1, 2, 3, 4 );
@data4 = ( "YYYYMMDDhhmmss", "YYYMMDDhhmmss", "YYMMDDhhmmss" );
foreach my $fmt (@data4) {
$day1 = $day2;
for ( $i = 0 ; $i < scalar(@data1) ; ++$i ) {
my $tmp1 = time_date_str( $fmt, $day1 );
#print "Just took $day1 ==> $tmp1 with fmt = $fmt\n";
@tmp1 = invert_time_date_str( $fmt, $tmp1 );
if ( $tmp1[0] != 27 ) {
print
"seconds wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[1] != 12 ) {
print
"minutes wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[2] != 3 ) {
print
"hours wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[5] != $data1[$i] ) {
print
"year wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[4] != $data2[$i] ) {
print
"month ($tmp1[4]) wrong, expected ($data2[$i]) after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[3] != $data3[$i] ) {
print
"day ($tmp1[3]) wrong, expected ($data3[$i]) after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( time_date_str_to_int( $fmt, time_date_str( $fmt, $day1 ) ) !=
$day1 )
{
print
"time_date_str_to_int($fmt, time_date_str($fmt, $day1)) != $day1 \n";
$moduleOK = 0;
$rc = 0;
}
$day1 += 60 * 60 * 24;
}
}
if ( $moduleOK == 1 ) {
print "passed a few Y2K tests\n";
}
else {
print "failed a few Y2K tests\n";
$moduleOK = 1;
}
$day2 = time_date_str_to_int( "YYYYMMDDhhmmss", "20000227031227" );
@data1 = ( 100, 100, 100, 100, 100, 100, 100 );
@data2 = ( 01, 01, 01, 02, 02, 02, 02 );
@data3 = ( 27, 28, 29, 1, 2, 3, 4 );
@data4 = ( "YYYYMMDDhhmmss", "YYYMMDDhhmmss", "YYMMDDhhmmss" );
foreach my $fmt (@data4) {
$day1 = $day2;
for ( $i = 0 ; $i < scalar(@data1) ; ++$i ) {
my $tmp1 = time_date_str( $fmt, $day1 );
#print "Just took $day1 ==> $tmp1 with fmt = $fmt\n";
@tmp1 = invert_time_date_str( $fmt, $tmp1 );
if ( $tmp1[0] != 27 ) {
print
"seconds wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[1] != 12 ) {
print
"minutes wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[2] != 3 ) {
print
"hours wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[5] != $data1[$i] ) {
print
"year wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[4] != $data2[$i] ) {
print
"month ($tmp1[4]) wrong, expected ($data2[$i]) after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( $tmp1[3] != $data3[$i] ) {
print
"day ($tmp1[3]) wrong, expected ($data3[$i]) after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$moduleOK = 0;
$rc = 0;
}
if ( time_date_str_to_int( $fmt, time_date_str( $fmt, $day1 ) ) !=
$day1 )
{
print
"time_date_str_to_int($fmt, time_date_str($fmt, $day1)) != $day1 \n";
$moduleOK = 0;
$rc = 0;
}
$day1 += 60 * 60 * 24;
}
}
if ( $moduleOK == 1 ) {
print "passed a few Y2K leap year tests\n";
}
else {
print "failed a few Y2K leap year tests\n";
$moduleOK = 1;
}
$day2 = time_date_str_to_int( "YYYYMMDDhhmmss", "20371229031227" );
@data1 = ( 137, 137, 137, 138, 138, 138, 138 );
@data2 = ( 11, 11, 11, 00, 00, 00, 00 );
@data3 = ( 29, 30, 31, 1, 2, 3, 4 );
@data4 = ( "YYYYMMDDhhmmss", "YYYMMDDhhmmss", "YYMMDDhhmmss" );
foreach my $fmt (@data4) {
$day1 = $day2;
my $this_ok = 1;
print
"\nReady to convert some times around while incrementing by one day\n";
for ( $i = 0 ; $i < scalar(@data1) && $this_ok ; ++$i ) {
my $tmp1 = time_date_str( $fmt, $day1 );
print "Just took $day1 seconds ==> $tmp1 with fmt = $fmt\n";
@tmp1 = invert_time_date_str( $fmt, $tmp1 );
if ( $tmp1[0] != 27 ) {
print
"seconds wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$this_ok = 0;
}
if ( $tmp1[1] != 12 ) {
print
"minutes wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$this_ok = 0;
}
if ( $tmp1[2] != 3 ) {
print
"hours wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$this_ok = 0;
}
if ( $tmp1[5] != $data1[$i] ) {
print
"year wrong after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$this_ok = 0;
}
if ( $tmp1[4] != $data2[$i] ) {
print
"month ($tmp1[4]) wrong, expected ($data2[$i]) after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$this_ok = 0;
}
if ( $tmp1[3] != $data3[$i] ) {
print
"day ($tmp1[3]) wrong, expected ($data3[$i]) after invert_time_date_str($fmt, time_date_str($fmt, $day1))\n";
$this_ok = 0;
}
if ( time_date_str_to_int( $fmt, time_date_str( $fmt, $day1 ) ) !=
$day1 )
{
print
"time_date_str_to_int($fmt, time_date_str($fmt, $day1)) != $day1 \n";
$this_ok = 0;
}
$day1 += 60 * 60 * 24;
}
if ( $this_ok == 0 ) {
$moduleOK = 0;
}
}
if ( $moduleOK == 1 ) {
print "unexpectedly passed a few year 2038 tests\n";
}
else {
print "failed a few year 2038 tests as expected\n";
$moduleOK = 1;
#??$rc = 0;
}
return $rc;
}
my $rc = test_StringUtil();
print "Passed\n" if $rc == 1;
print "Failed\n" if $rc == 0;