Adapt the test suite for the 2015-2115 era
This commit is contained in:
Petr Šabata
parent
f9152571e8
commit
daa100e0bc
433
Date-Calc-6.3-century.patch
Normal file
433
Date-Calc-6.3-century.patch
Normal file
@ -0,0 +1,433 @@
|
||||
From e65ad7f563386aa0bf43f6de9e2b3f2dc49e565d Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Petr=20=C5=A0abata?= <contyk@redhat.com>
|
||||
Date: Wed, 7 Jan 2015 14:45:13 +0100
|
||||
Subject: [PATCH] Adapt the test suite for the next 100 years
|
||||
MIME-Version: 1.0
|
||||
Content-Type: text/plain; charset=UTF-8
|
||||
Content-Transfer-Encoding: 8bit
|
||||
|
||||
We're now closer to year 2064 than 1964, therefore dates with two-digit
|
||||
years decode differently now.
|
||||
|
||||
Signed-off-by: Petr Å abata <contyk@redhat.com>
|
||||
---
|
||||
t/f016.t | 32 ++++++++++++++++----------------
|
||||
t/f027.t | 44 ++++++++++++++++++++++----------------------
|
||||
t/f028.t | 44 ++++++++++++++++++++++----------------------
|
||||
3 files changed, 60 insertions(+), 60 deletions(-)
|
||||
|
||||
diff --git a/t/f016.t b/t/f016.t
|
||||
index 1adfc8a..5d2eab2 100644
|
||||
--- a/t/f016.t
|
||||
+++ b/t/f016.t
|
||||
@@ -17,19 +17,19 @@ print "1..25\n";
|
||||
|
||||
$n = 1;
|
||||
if ((($year,$mm,$dd) = Decode_Date_EU("3.1.64")) &&
|
||||
-($year==1964)&&($mm==1)&&($dd==3))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($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)) &&
|
||||
@@ -37,11 +37,11 @@ if ((($year,$mm,$dd) = Decode_Date_EU("3. Ene 1964",4)) &&
|
||||
{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))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($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)) &&
|
||||
@@ -49,19 +49,19 @@ if ((($year,$mm,$dd) = Decode_Date_EU("3.Jan1964",6)) &&
|
||||
{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))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($mm==1)&&($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -74,15 +74,15 @@ unless (($year,$mm,$dd) = Decode_Date_EU("29.2.1995"))
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_US("1 3 64")) &&
|
||||
-($year==1964)&&($mm==1)&&($dd==3))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($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")) &&
|
||||
@@ -98,15 +98,15 @@ if ((($year,$mm,$dd) = Decode_Date_US("Jan31964")) &&
|
||||
{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))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($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))
|
||||
+($year==2064)&&($mm==1)&&($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
diff --git a/t/f027.t b/t/f027.t
|
||||
index a06cb99..1b70ffb 100644
|
||||
--- a/t/f027.t
|
||||
+++ b/t/f027.t
|
||||
@@ -43,47 +43,47 @@ if ((($year,$mm,$dd) = Decode_Date_US2("_00134_")) &&
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_US2("_1364_")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($mm==11) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -118,7 +118,7 @@ if ((($year,$mm,$dd) = Decode_Date_US2("_0011031964_")) &&
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_US2("_1_3_64_")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($mm==1) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -128,22 +128,22 @@ if ((($year,$mm,$dd) = Decode_Date_US2("_1_3_1964_")) &&
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_US2("_jan_3_64_")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($mm==1) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -157,32 +157,32 @@ if ((($year,$mm,$dd) = Decode_Date_US2(" January 3rd, 1964 ")) &&
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_US2("_Jan364_")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($mm==1) && ($dd==22))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -225,12 +225,12 @@ unless (($year,$mm,$dd) = Decode_Date_US2("_ja331964_"))
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_US2("x000001x000003x000064x")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($mm==1) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
diff --git a/t/f028.t b/t/f028.t
|
||||
index aa5218e..fb4ef1c 100644
|
||||
--- a/t/f028.t
|
||||
+++ b/t/f028.t
|
||||
@@ -43,47 +43,47 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("_00314_")) &&
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_EU2("_3164_")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($mm==3) && ($dd==11))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -118,7 +118,7 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("_0011031964_")) &&
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_64_")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($mm==1) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -128,22 +128,22 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_1964_")) &&
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jan_64_")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($mm==1) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -158,7 +158,7 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("_3-January-1964_",'')) &&
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-000064_",undef)) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($mm==1) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -168,7 +168,7 @@ if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-001964_")) &&
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_EU2("_3_ja_64_")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($mm==1) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -177,22 +177,22 @@ unless (($year,$mm,$dd) = Decode_Date_EU2("_3_j_64_"))
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_EU2("_3ja64_")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($mm==1) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
@@ -225,12 +225,12 @@ unless (($year,$mm,$dd) = Decode_Date_EU2("_33ja1964_"))
|
||||
$n++;
|
||||
|
||||
if ((($year,$mm,$dd) = Decode_Date_EU2("x000003x000001x000064x")) &&
|
||||
-($year==1964) && ($mm==1) && ($dd==3))
|
||||
+($year==2064) && ($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))
|
||||
+($year==2064) && ($mm==1) && ($dd==3))
|
||||
{print "ok $n\n";} else {print "not ok $n\n";}
|
||||
$n++;
|
||||
|
||||
--
|
||||
2.1.0
|
||||
|
||||
@ -1,22 +1,34 @@
|
||||
Name: perl-Date-Calc
|
||||
Version: 6.3
|
||||
Release: 17%{?dist}
|
||||
Release: 18%{?dist}
|
||||
Summary: Gregorian calendar date calculations
|
||||
|
||||
Group: Development/Libraries
|
||||
License: GPL+ or Artistic
|
||||
URL: http://search.cpan.org/dist/Date-Calc/
|
||||
Source0: http://www.cpan.org/authors/id/S/ST/STBEY/Date-Calc-%{version}.tar.gz
|
||||
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
|
||||
|
||||
BuildRequires: perl(ExtUtils::MakeMaker)
|
||||
BuildRequires: perl(Carp::Clan) >= 6.3
|
||||
BuildRequires: perl(Bit::Vector) >= 7.1
|
||||
BuildRequires: perl(Exporter)
|
||||
Requires: perl(Bit::Vector) >= 7.1
|
||||
Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
|
||||
# rt#101232
|
||||
Patch0: Date-Calc-6.3-century.patch
|
||||
BuildArch: noarch
|
||||
# Build
|
||||
BuildRequires: perl
|
||||
BuildRequires: perl(ExtUtils::MakeMaker) >= 6.76
|
||||
BuildRequires: perl(Config)
|
||||
BuildRequires: perl(strict)
|
||||
# Runtime
|
||||
BuildRequires: perl(Bit::Vector) >= 7.1
|
||||
BuildRequires: perl(bytes)
|
||||
BuildRequires: perl(Carp::Clan) >= 6.04
|
||||
BuildRequires: perl(Exporter)
|
||||
BuildRequires: perl(overload)
|
||||
BuildRequires: perl(POSIX)
|
||||
BuildRequires: perl(vars)
|
||||
# Tests only
|
||||
BuildRequires: perl(Exporter)
|
||||
Requires: perl(:MODULE_COMPAT_%(eval "$(perl -V:version)"; echo $version))
|
||||
Requires: perl(Bit::Vector) >= 7.1
|
||||
Requires: perl(Carp::Clan) >= 6.04
|
||||
|
||||
%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(Bit::Vector\\)$
|
||||
%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(Carp::Clan\\)$
|
||||
# Filter unwanted Provides:
|
||||
%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}perl\\(Date::Calc\\)$
|
||||
|
||||
@ -27,22 +39,18 @@ thereby complying with all relevant norms and standards: ISO/R
|
||||
2015-1971, DIN 1355 and, to some extent, ISO 8601 (where applicable).
|
||||
|
||||
%prep
|
||||
%setup -q -n Date-Calc-%{version}
|
||||
%setup -q -n Date-Calc-%{version}
|
||||
%patch0 -p1
|
||||
|
||||
%build
|
||||
%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS"
|
||||
perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" NO_PACKLIST=1
|
||||
make %{?_smp_mflags}
|
||||
|
||||
|
||||
%install
|
||||
rm -rf $RPM_BUILD_ROOT
|
||||
make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
|
||||
find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
|
||||
find $RPM_BUILD_ROOT -type f -name '*.bs' -a -size 0 -exec rm -f {} ';'
|
||||
find $RPM_BUILD_ROOT -type d -depth -exec rmdir {} 2>/dev/null ';'
|
||||
chmod -R u+w $RPM_BUILD_ROOT/*
|
||||
|
||||
for file in $RPM_BUILD_ROOT%{_mandir}/man3/Date::Calc.3pm \
|
||||
make pure_install DESTDIR=%{buildroot}
|
||||
find %{buildroot} -type f -name '*.bs' -a -size 0 -exec rm -f {} +
|
||||
chmod -R u+w %{buildroot}/*
|
||||
for file in %{buildroot}%{_mandir}/man3/Date::Calc.3pm \
|
||||
CREDITS.txt; do
|
||||
iconv -f iso-8859-1 -t utf-8 < "$file" > "${file}_"
|
||||
mv -f "${file}_" "$file"
|
||||
@ -51,20 +59,17 @@ done
|
||||
%check
|
||||
make test
|
||||
|
||||
|
||||
%clean
|
||||
rm -rf $RPM_BUILD_ROOT
|
||||
|
||||
|
||||
%files
|
||||
%defattr(-,root,root,-)
|
||||
%doc license/Artistic.txt license/GNU_GPL.txt license/GNU_LGPL.txt
|
||||
%license license/Artistic.txt license/GNU_GPL.txt license/GNU_LGPL.txt
|
||||
%doc CHANGES.txt CREDITS.txt README.txt
|
||||
%{perl_vendorlib}/Date/
|
||||
%{_mandir}/man3/*.3*
|
||||
|
||||
|
||||
%changelog
|
||||
* Wed Jan 07 2015 Petr Šabata <contyk@redhat.com> - 6.3-18
|
||||
- Adapt the test suite for the 2015-2115 era
|
||||
|
||||
* Wed Aug 27 2014 Jitka Plesnikova <jplesnik@redhat.com> - 6.3-17
|
||||
- Perl 5.20 rebuild
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user