"Fossies" - the Fresh Open Source Software Archive  

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

f016.t  (Date-Calc-6.3):f016.t  (Date-Calc-6.4)
skipping to change at line 20 skipping to change at line 20
# ====================================================================== # ======================================================================
# ($year,$mm,$dd) = Decode_Date_EU($buffer); # ($year,$mm,$dd) = Decode_Date_EU($buffer);
# ($year,$mm,$dd) = Decode_Date_US($buffer); # ($year,$mm,$dd) = Decode_Date_US($buffer);
# ====================================================================== # ======================================================================
print "1..25\n"; print "1..25\n";
$n = 1; $n = 1;
if ((($year,$mm,$dd) = Decode_Date_EU("3.1.64")) && if ((($year,$mm,$dd) = Decode_Date_EU("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_EU("3 1 64")) && if ((($year,$mm,$dd) = Decode_Date_EU("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_EU("03.01.64")) && if ((($year,$mm,$dd) = Decode_Date_EU("03.01.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_EU("03/01/64")) && if ((($year,$mm,$dd) = Decode_Date_EU("03/01/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_EU("3. Ene 1964",4)) && if ((($year,$mm,$dd) = Decode_Date_EU("3. Ene 1964",4)) &&
($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_EU("Geburtstag: 3. Januar '64 in Backnang/Wrt temberg",3)) && if ((($year,$mm,$dd) = Decode_Date_EU("Geburtstag: 3. Januar '64 in Backnang/Wrt temberg",3)) &&
($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_EU("03-Jan-64")) && if ((($year,$mm,$dd) = Decode_Date_EU("03-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_EU("3.Jan1964",6)) && if ((($year,$mm,$dd) = Decode_Date_EU("3.Jan1964",6)) &&
($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_EU("3Jan64",0)) && if ((($year,$mm,$dd) = Decode_Date_EU("3Jan64",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_EU("030164")) && if ((($year,$mm,$dd) = Decode_Date_EU("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_EU("3ja64")) && if ((($year,$mm,$dd) = Decode_Date_EU("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_EU("3164")) && if ((($year,$mm,$dd) = Decode_Date_EU("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_EU("28.2.1995")) && if ((($year,$mm,$dd) = Decode_Date_EU("28.2.1995")) &&
($year==1995)&&($mm==2)&&($dd==28)) ($year==1995)&&($mm==2)&&($dd==28))
{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_EU("29.2.1995")) unless (($year,$mm,$dd) = Decode_Date_EU("29.2.1995"))
{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_US("1 3 64")) && if ((($year,$mm,$dd) = Decode_Date_US("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_US("01/03/64")) && if ((($year,$mm,$dd) = Decode_Date_US("01/03/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_US("Jan 3 '64")) && if ((($year,$mm,$dd) = Decode_Date_US("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_US("Jan 3 1964")) && if ((($year,$mm,$dd) = Decode_Date_US("Jan 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_US("===> January 3rd 1964 (birthday)")) && if ((($year,$mm,$dd) = Decode_Date_US("===> January 3rd 1964 (birthday)")) &&
($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_US("Jan31964")) && if ((($year,$mm,$dd) = Decode_Date_US("Jan31964")) &&
($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_US("Jan364")) && if ((($year,$mm,$dd) = Decode_Date_US("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_US("ja364")) && if ((($year,$mm,$dd) = Decode_Date_US("ja364")) &&
($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_US("1364")) && if ((($year,$mm,$dd) = Decode_Date_US("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_US("2.28.1995")) && if ((($year,$mm,$dd) = Decode_Date_US("2.28.1995")) &&
($year==1995)&&($mm==2)&&($dd==28)) ($year==1995)&&($mm==2)&&($dd==28))
{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_US("2.29.1995")) unless (($year,$mm,$dd) = Decode_Date_US("2.29.1995"))
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
 End of changes. 16 change blocks. 
16 lines changed or deleted 16 lines changed or added

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