|
| 1 | +From c4c733988fd2012cf517c021bb31ec13097b2d48 Mon Sep 17 00:00:00 2001 |
| 2 | +From: "Bernhard M. Wiedemann" < [email protected]> |
| 3 | +Date: Fri, 16 Mar 2018 11:44:01 +0100 |
| 4 | +Subject: [PATCH] Fix Time::Local tests |
| 5 | + |
| 6 | +in 2020, year 70 changes its meaning to 2070 |
| 7 | +so we do what man Time::Local recommends and use 4-digit years |
| 8 | +--- |
| 9 | + cpan/Time-Local/t/Local.t | 11 +++++------ |
| 10 | + 1 file changed, 5 insertions(+), 6 deletions(-) |
| 11 | + |
| 12 | +diff --git a/cpan/Time-Local/t/Local.t b/cpan/Time-Local/t/Local.t |
| 13 | +index 634139695f..e28c6d2129 100644 |
| 14 | +--- a/cpan/Time-Local/t/Local.t |
| 15 | ++++ b/cpan/Time-Local/t/Local.t |
| 16 | +@@ -96,7 +96,7 @@ SKIP: { |
| 17 | + |
| 18 | + # Test timelocal() |
| 19 | + { |
| 20 | +- my $year_in = $year < 70 ? $year + 1900 : $year; |
| 21 | ++ my $year_in = $year + 1900; |
| 22 | + my $time = timelocal( $sec, $min, $hour, $mday, $mon, $year_in ); |
| 23 | + |
| 24 | + my ( $s, $m, $h, $D, $M, $Y ) = localtime($time); |
| 25 | +@@ -111,7 +111,7 @@ SKIP: { |
| 26 | + |
| 27 | + # Test timegm() |
| 28 | + { |
| 29 | +- my $year_in = $year < 70 ? $year + 1900 : $year; |
| 30 | ++ my $year_in = $year + 1900; |
| 31 | + my $time = timegm( $sec, $min, $hour, $mday, $mon, $year_in ); |
| 32 | + |
| 33 | + my ( $s, $m, $h, $D, $M, $Y ) = gmtime($time); |
| 34 | +@@ -128,7 +128,6 @@ SKIP: { |
| 35 | + |
| 36 | + for (@bad_time) { |
| 37 | + my ( $year, $mon, $mday, $hour, $min, $sec ) = @$_; |
| 38 | +- $year -= 1900; |
| 39 | + $mon--; |
| 40 | + |
| 41 | + eval { timegm( $sec, $min, $hour, $mday, $mon, $year ) }; |
| 42 | +@@ -138,19 +137,19 @@ for (@bad_time) { |
| 43 | + |
| 44 | + { |
| 45 | + is( |
| 46 | +- timelocal( 0, 0, 1, 1, 0, 90 ) - timelocal( 0, 0, 0, 1, 0, 90 ), 3600, |
| 47 | ++ timelocal( 0, 0, 1, 1, 0, 1990 ) - timelocal( 0, 0, 0, 1, 0, 1990 ), 3600, |
| 48 | + 'one hour difference between two calls to timelocal' |
| 49 | + ); |
| 50 | + |
| 51 | + is( |
| 52 | +- timelocal( 1, 2, 3, 1, 0, 100 ) - timelocal( 1, 2, 3, 31, 11, 99 ), |
| 53 | ++ timelocal( 1, 2, 3, 1, 0, 2000 ) - timelocal( 1, 2, 3, 31, 11, 1999 ), |
| 54 | + 24 * 3600, |
| 55 | + 'one day difference between two calls to timelocal' |
| 56 | + ); |
| 57 | + |
| 58 | + # Diff beween Jan 1, 1980 and Mar 1, 1980 = (31 + 29 = 60 days) |
| 59 | + is( |
| 60 | +- timegm( 0, 0, 0, 1, 2, 80 ) - timegm( 0, 0, 0, 1, 0, 80 ), |
| 61 | ++ timegm( 0, 0, 0, 1, 2, 1980 ) - timegm( 0, 0, 0, 1, 0, 1980 ), |
| 62 | + 60 * 24 * 3600, |
| 63 | + '60 day difference between two calls to timegm' |
| 64 | + ); |
| 65 | +-- |
| 66 | +2.13.6 |
| 67 | + |
0 commit comments