diff options
Diffstat (limited to 'lib/Time/Local.t')
| -rwxr-xr-x | lib/Time/Local.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/Time/Local.t b/lib/Time/Local.t index 288dcb6177..eb48432c14 100755 --- a/lib/Time/Local.t +++ b/lib/Time/Local.t @@ -59,7 +59,7 @@ my @neg_time = my $neg_epoch_ok = defined ((localtime(-259200))[0]) ? 1 : 0; # use vmsish 'time' makes for oddness around the Unix epoch -if ($^O eq 'VMS') { +if ($^O eq 'VMS') { $time[0][2]++; $neg_epoch_ok = 0; # time_t is unsigned } @@ -69,7 +69,7 @@ $tests += @neg_time * 12; $tests += @bad_time; $tests += 8; $tests += 2 if $ENV{PERL_CORE}; -$tests += 5 if $ENV{MAINTAINER}; +$tests += 6 if $ENV{MAINTAINER}; plan tests => $tests; @@ -209,6 +209,12 @@ if ($ENV{MAINTAINER}) { $time = timelocal(0, 30, 2, 28, 9, 101); ok($time, 1004200200, 'timelocal for non-existent time gives you the time one hour later'); + + local $ENV{TZ} = 'Europe/London'; + POSIX::tzset(); + $time = timelocal( localtime(1111917720) ); + ok($time, 1111917720, + 'timelocal for round trip bug on date of DST change for Europe/London'); } } |