"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/f028.t" between
Date-Calc-6.3.tar.gz and Date-Calc-6.4.tar.gz

About: Date-Calc - Gregorian calendar date calculations (C library and Perl module).

f028.t  (Date-Calc-6.3):f028.t  (Date-Calc-6.4)
skipping to change at line 46 skipping to change at line 46
($year==2004) && ($mm==1) && ($dd==3)) ($year==2004) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_00314_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_00314_")) &&
($year==2004) && ($mm==1) && ($dd==3)) ($year==2004) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3164_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3164_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_03164_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_03164_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_003164_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_003164_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_30164_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_30164_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_030164_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_030164_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_0030164_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_0030164_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_110364_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_110364_")) &&
($year==1964) && ($mm==3) && ($dd==11)) (int($year/100)>19) && ($year%100==64) && ($mm==3) && ($dd==11))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_0110364_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_0110364_")) &&
($year==1964) && ($mm==3) && ($dd==11)) (int($year/100)>19) && ($year%100==64) && ($mm==3) && ($dd==11))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_00110364_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_00110364_")) &&
($year==1964) && ($mm==3) && ($dd==11)) (int($year/100)>19) && ($year%100==64) && ($mm==3) && ($dd==11))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3011964_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3011964_")) &&
($year==1964) && ($mm==1) && ($dd==3)) ($year==1964) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_03011964_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_03011964_")) &&
($year==1964) && ($mm==1) && ($dd==3)) ($year==1964) && ($mm==1) && ($dd==3))
skipping to change at line 121 skipping to change at line 121
($year==1964) && ($mm==3) && ($dd==11)) ($year==1964) && ($mm==3) && ($dd==11))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_0011031964_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_0011031964_")) &&
($year==1964) && ($mm==3) && ($dd==11)) ($year==1964) && ($mm==3) && ($dd==11))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_64_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_64_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_1964_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_1964_")) &&
($year==1964) && ($mm==1) && ($dd==3)) ($year==1964) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jan_64_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jan_64_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3_Jan_64_",0)) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3_Jan_64_",0)) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jAN_64_",1)) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jAN_64_",1)) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3-JAN-64_",2)) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3-JAN-64_",2)) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3-Jan-1964_",3)) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3-Jan-1964_",3)) &&
($year==1964) && ($mm==1) && ($dd==3)) ($year==1964) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3-January-1964_",'')) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3-January-1964_",'')) &&
($year==1964) && ($mm==1) && ($dd==3)) ($year==1964) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-000064_",undef)) && if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-000064_",undef)) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-001964_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-001964_")) &&
($year==1964) && ($mm==1) && ($dd==3)) ($year==1964) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3_ja_64_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3_ja_64_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
unless (($year,$mm,$dd) = Decode_Date_EU2("_3_j_64_")) unless (($year,$mm,$dd) = Decode_Date_EU2("_3_j_64_"))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3ja64_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3ja64_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_03ja64_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_03ja64_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_003ja64_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_003ja64_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_000003ja000064_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_000003ja000064_")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_3ja1964_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_3ja1964_")) &&
($year==1964) && ($mm==1) && ($dd==3)) ($year==1964) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_03ja1964_")) && if ((($year,$mm,$dd) = Decode_Date_EU2("_03ja1964_")) &&
($year==1964) && ($mm==1) && ($dd==3)) ($year==1964) && ($mm==1) && ($dd==3))
skipping to change at line 228 skipping to change at line 228
unless (($year,$mm,$dd) = Decode_Date_EU2("_33ja64_")) unless (($year,$mm,$dd) = Decode_Date_EU2("_33ja64_"))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
unless (($year,$mm,$dd) = Decode_Date_EU2("_33ja1964_")) unless (($year,$mm,$dd) = Decode_Date_EU2("_33ja1964_"))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("x000003x000001x000064x")) && if ((($year,$mm,$dd) = Decode_Date_EU2("x000003x000001x000064x")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("x000003_ja_000064x")) && if ((($year,$mm,$dd) = Decode_Date_EU2("x000003_ja_000064x")) &&
($year==1964) && ($mm==1) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ((($year,$mm,$dd) = Decode_Date_EU2("_dia_tres_3_janeiro_1964_mil_novecentos_ sessenta_e_seis_",Decode_Language("Portug"))) && if ((($year,$mm,$dd) = Decode_Date_EU2("_dia_tres_3_janeiro_1964_mil_novecentos_ sessenta_e_seis_",Decode_Language("Portug"))) &&
($year==1964) && ($mm==1) && ($dd==3)) ($year==1964) && ($mm==1) && ($dd==3))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
__END__ __END__
 End of changes. 22 change blocks. 
22 lines changed or deleted 22 lines changed or added

Home  |  About  |  All  |  Newest  |  Fossies Dox  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTPS