diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/op/time.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/op/time.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/t/op/time.t b/gnu/usr.bin/perl/t/op/time.t index 734b838dd8f..5cb9191b6fa 100644 --- a/gnu/usr.bin/perl/t/op/time.t +++ b/gnu/usr.bin/perl/t/op/time.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 70; +plan tests => 72; # These tests make sure, among other things, that we don't end up # burning tons of CPU for dates far in the future. @@ -238,3 +238,11 @@ SKIP: { #rt #73040 like $warning, qr/^localtime\($small_time_f\) too small/; like $warning, qr/^localtime\($small_time_f\) failed/m; } + +{ + local $^W; + scalar gmtime("NaN"); + pass('[perl #123495] gmtime(NaN) does not crash'); + scalar localtime("NaN"); + pass('localtime(NaN) does not crash'); +} |