[libdate-calc-xs-perl] 08/13: Drop century-tests.patch, fixed upstream
Florian Schlichting
fsfs at moszumanska.debian.org
Tue Jul 7 22:16:12 UTC 2015
This is an automated email from the git hooks/post-receive script.
fsfs pushed a commit to branch master
in repository libdate-calc-xs-perl.
commit c050bfc1f1c4f9c7cdd4ec7cbc9987a16c6d244a
Author: Florian Schlichting <fsfs at debian.org>
Date: Wed Jul 8 00:06:10 2015 +0200
Drop century-tests.patch, fixed upstream
---
debian/patches/century-tests.patch | 587 -------------------------------------
debian/patches/series | 1 -
2 files changed, 588 deletions(-)
diff --git a/debian/patches/century-tests.patch b/debian/patches/century-tests.patch
deleted file mode 100644
index a479c9a..0000000
--- a/debian/patches/century-tests.patch
+++ /dev/null
@@ -1,587 +0,0 @@
-Description: fix tests that got broken in 2015
- The tests use the 2-digit-year '64' and check that it expands to 1964; which
- worked until 2014-12-31. Since 2015-01-01 it expands to 2064, and this
- behaviour is consistent with the module documentation.
- .
- So the patch changes the hardcoded '1964' and '64' with the year 45 in the
- past from now, full and century-less version.
- .
- 45 is how far in the past 1964 was in 2009, when the tests were written.
-
-Bug: https://rt.cpan.org/Public/Bug/Display.html?id=101232
-Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=101232
-Bug-Debian: https://bugs.debian.org/775617
-Author: Damyan Ivanov <dmn at debian.org>, Gregor Herrmann <gregoa at debian.org>
-
---- a/t/f016.t
-+++ b/t/f016.t
-@@ -11,55 +11,58 @@ use Date::Calc qw( Decode_Date_EU Decode
- # ($year,$mm,$dd) = Decode_Date_US($buffer);
- # ======================================================================
-
-+my $Y = 1900 + (localtime)[5] - 45; # expected year (e.g. 1965 in 2009)
-+my $y = sprintf("%02d", $Y % 100); # short year (e.g. 65)
-+
- print "1..25\n";
-
- $n = 1;
--if ((($year,$mm,$dd) = Decode_Date_EU("3.1.64")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("3.1.$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("3 1 64")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("3 1 $y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("03.01.64")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("03.01.$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("03/01/64")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("03/01/$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("3. Ene 1964",4)) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("3. Ene $Y",4)) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("Geburtstag: 3. Januar '64 in Backnang/W�rttemberg",3)) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("Geburtstag: 3. Januar '$y in Backnang/W�rttemberg",3)) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("03-Jan-64")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("03-Jan-$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("3.Jan1964",6)) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("3.Jan$Y",6)) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("3Jan64",0)) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("3Jan$y",0)) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("030164")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("0301$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("3ja64")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("3ja$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_EU("3164")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU("31$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -71,16 +74,16 @@ unless (($year,$mm,$dd) = Decode_Date_EU
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US("1 3 64")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US("1 3 $y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_US("01/03/64")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US("01/03/$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_US("Jan 3 '64")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US("Jan 3 '$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
- if ((($year,$mm,$dd) = Decode_Date_US("Jan 3 1964")) &&
-@@ -95,16 +98,16 @@ if ((($year,$mm,$dd) = Decode_Date_US("J
- ($year==1964)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_US("Jan364")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US("Jan3$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_US("ja364")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US("ja3$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
--if ((($year,$mm,$dd) = Decode_Date_US("1364")) &&
--($year==1964)&&($mm==1)&&($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US("13$y")) &&
-+($year==$Y)&&($mm==1)&&($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
---- a/t/f027.t
-+++ b/t/f027.t
-@@ -10,6 +10,9 @@ use Date::Calc qw( Decode_Date_US2 Langu
- # ($year,$mm,$dd) = Decode_Date_US2($date);
- # ======================================================================
-
-+my $Y = 1900 + (localtime)[5] - 50; # expected year (e.g. 1965)
-+my $y = sprintf('%02d', $Y % 100); # short year (e.g. 65)
-+
- print "1..46\n";
-
- $n = 1;
-@@ -40,83 +43,83 @@ if ((($year,$mm,$dd) = Decode_Date_US2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_1364_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_13${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_01364_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_013${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_001364_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_0013${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_10364_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_103${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_010364_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_0103${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_0010364_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_00103${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_110364_")) &&
--($year==1964) && ($mm==11) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_1103${y}_")) &&
-+($year==$Y) && ($mm==11) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_0110364_")) &&
--($year==1964) && ($mm==11) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_01103${y}_")) &&
-+($year==$Y) && ($mm==11) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_00110364_")) &&
--($year==1964) && ($mm==11) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_001103${y}_")) &&
-+($year==$Y) && ($mm==11) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_1031964_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_10319${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_01031964_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_010319${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_001031964_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_0010319${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_11031964_")) &&
--($year==1964) && ($mm==11) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_110319${y}_")) &&
-+($year==$Y) && ($mm==11) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_011031964_")) &&
--($year==1964) && ($mm==11) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_0110319${y}_")) &&
-+($year==$Y) && ($mm==11) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_0011031964_")) &&
--($year==1964) && ($mm==11) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_00110319${y}_")) &&
-+($year==$Y) && ($mm==11) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_1_3_64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_1_3_${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -125,27 +128,27 @@ if ((($year,$mm,$dd) = Decode_Date_US2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_jan_3_64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_jan_3_${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_Jan_3_64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_Jan_3_${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_jAN_3_64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_jAN_3_${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_January_3_64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_January_3_${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--unless (($year,$mm,$dd) = Decode_Date_US2("_j_3_64_"))
-+unless (($year,$mm,$dd) = Decode_Date_US2("_j_3_${y}_"))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -154,33 +157,33 @@ if ((($year,$mm,$dd) = Decode_Date_US2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_Jan364_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_Jan3${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_Jan0364_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_Jan03${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_Jan00364_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_Jan003${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_Jan2264_")) &&
--($year==1964) && ($mm==1) && ($dd==22))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_Jan22${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==22))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_Jan02264_",0)) &&
--($year==1964) && ($mm==1) && ($dd==22))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_Jan022${y}_",0)) &&
-+($year==$Y) && ($mm==1) && ($dd==22))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_Jan002264_",'')) &&
--($year==1964) && ($mm==1) && ($dd==22))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_Jan0022${y}_",'')) &&
-+($year==$Y) && ($mm==1) && ($dd==22))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -214,7 +217,7 @@ if ((($year,$mm,$dd) = Decode_Date_US2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--unless (($year,$mm,$dd) = Decode_Date_US2("_ja3364_"))
-+unless (($year,$mm,$dd) = Decode_Date_US2("_ja33${y}_"))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -222,13 +225,13 @@ unless (($year,$mm,$dd) = Decode_Date_US
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("x000001x000003x000064x")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("x000001x000003x0000${y}x")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_US2("_ja_000003x000064x")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_US2("_ja_000003x0000${y}x")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
---- a/t/f028.t
-+++ b/t/f028.t
-@@ -9,6 +9,8 @@ use Date::Calc qw( Decode_Date_EU2 Langu
- # ======================================================================
- # ($year,$mm,$dd) = Decode_Date_EU2($date);
- # ======================================================================
-+my $Y = 1900 + (localtime)[5] - 50; # wanted year (e.g. 1965)
-+my $y = sprintf('%02d', $Y % 100); # short year (e.g. 65)
-
- print "1..46\n";
-
-@@ -40,48 +42,48 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_3164_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_31${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_03164_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_031${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_003164_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_0031${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_30164_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_301${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_030164_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_0301${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_0030164_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_00301${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_110364_")) &&
--($year==1964) && ($mm==3) && ($dd==11))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_1103${y}_")) &&
-+($year==$Y) && ($mm==3) && ($dd==11))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_0110364_")) &&
--($year==1964) && ($mm==3) && ($dd==11))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_01103${y}_")) &&
-+($year==$Y) && ($mm==3) && ($dd==11))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_00110364_")) &&
--($year==1964) && ($mm==3) && ($dd==11))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_001103${y}_")) &&
-+($year==$Y) && ($mm==3) && ($dd==11))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -115,8 +117,8 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -125,23 +127,23 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jan_64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jan_${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_3_Jan_64_",0)) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_3_Jan_${y}_",0)) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jAN_64_",1)) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jAN_${y}_",1)) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_3-JAN-64_",2)) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_3-JAN-${y}_",2)) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -155,8 +157,8 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-000064_",undef)) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-0000${y}_",undef)) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -165,32 +167,32 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_3_ja_64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_3_ja_${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--unless (($year,$mm,$dd) = Decode_Date_EU2("_3_j_64_"))
-+unless (($year,$mm,$dd) = Decode_Date_EU2("_3_j_${y}_"))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_3ja64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_3ja${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_03ja64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_03ja${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_003ja64_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_003ja${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("_000003ja000064_")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("_000003ja0000${y}_")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -214,7 +216,7 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--unless (($year,$mm,$dd) = Decode_Date_EU2("_33ja64_"))
-+unless (($year,$mm,$dd) = Decode_Date_EU2("_33ja${y}_"))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
-@@ -222,13 +224,13 @@ unless (($year,$mm,$dd) = Decode_Date_EU
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("x000003x000001x000064x")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("x000003x000001x0000${y}x")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
--if ((($year,$mm,$dd) = Decode_Date_EU2("x000003_ja_000064x")) &&
--($year==1964) && ($mm==1) && ($dd==3))
-+if ((($year,$mm,$dd) = Decode_Date_EU2("x000003_ja_0000${y}x")) &&
-+($year==$Y) && ($mm==1) && ($dd==3))
- {print "ok $n\n";} else {print "not ok $n\n";}
- $n++;
-
diff --git a/debian/patches/series b/debian/patches/series
index f3205c3..1ff5bd8 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1 @@
SvPV.patch
-century-tests.patch
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdate-calc-xs-perl.git
More information about the Pkg-perl-cvs-commits
mailing list