"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/f027.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).

f027.t  (Date-Calc-6.3):f027.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_US2("_00134_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_00134_")) &&
($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_US2("_1364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_1364_")) &&
($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_US2("_01364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_01364_")) &&
($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_US2("_001364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_001364_")) &&
($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_US2("_10364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_10364_")) &&
($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_US2("_010364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_010364_")) &&
($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_US2("_0010364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_0010364_")) &&
($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_US2("_110364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_110364_")) &&
($year==1964) && ($mm==11) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==11) && ($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_US2("_0110364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_0110364_")) &&
($year==1964) && ($mm==11) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==11) && ($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_US2("_00110364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_00110364_")) &&
($year==1964) && ($mm==11) && ($dd==3)) (int($year/100)>19) && ($year%100==64) && ($mm==11) && ($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_US2("_1031964_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_1031964_")) &&
($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_US2("_01031964_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_01031964_")) &&
($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==11) && ($dd==3)) ($year==1964) && ($mm==11) && ($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_US2("_0011031964_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_0011031964_")) &&
($year==1964) && ($mm==11) && ($dd==3)) ($year==1964) && ($mm==11) && ($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_US2("_1_3_64_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_1_3_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_US2("_1_3_1964_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_1_3_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_US2("_jan_3_64_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_jan_3_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_US2("_Jan_3_64_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_Jan_3_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_US2("_jAN_3_64_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_jAN_3_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_US2("_January_3_64_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_January_3_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_US2("_j_3_64_")) unless (($year,$mm,$dd) = Decode_Date_US2("_j_3_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_US2(" January 3rd, 1964 ")) && if ((($year,$mm,$dd) = Decode_Date_US2(" January 3rd, 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_US2("_Jan364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_Jan364_")) &&
($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_US2("_Jan0364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_Jan0364_")) &&
($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_US2("_Jan00364_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_Jan00364_")) &&
($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_US2("_Jan2264_")) && if ((($year,$mm,$dd) = Decode_Date_US2("_Jan2264_")) &&
($year==1964) && ($mm==1) && ($dd==22)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==22))
{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_US2("_Jan02264_",0)) && if ((($year,$mm,$dd) = Decode_Date_US2("_Jan02264_",0)) &&
($year==1964) && ($mm==1) && ($dd==22)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==22))
{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_US2("_Jan002264_",'')) && if ((($year,$mm,$dd) = Decode_Date_US2("_Jan002264_",'')) &&
($year==1964) && ($mm==1) && ($dd==22)) (int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==22))
{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_US2("_ja31964_",1)) && if ((($year,$mm,$dd) = Decode_Date_US2("_ja31964_",1)) &&
($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_US2("_ja031964_",2)) && if ((($year,$mm,$dd) = Decode_Date_US2("_ja031964_",2)) &&
($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_US2("_ja3364_")) unless (($year,$mm,$dd) = Decode_Date_US2("_ja3364_"))
{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_US2("_ja331964_")) unless (($year,$mm,$dd) = Decode_Date_US2("_ja331964_"))
{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_US2("x000001x000003x000064x")) && if ((($year,$mm,$dd) = Decode_Date_US2("x000001x000003x000064x")) &&
($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_US2("_ja_000003x000064x")) && if ((($year,$mm,$dd) = Decode_Date_US2("_ja_000003x000064x")) &&
($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_US2("_Janeiro_3_dia_tres_de_janeiro_de_1964_m il_novecentos_sessenta_e_seis_",Decode_Language("Portug"))) && if ((($year,$mm,$dd) = Decode_Date_US2("_Janeiro_3_dia_tres_de_janeiro_de_1964_m il_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