diff options
Diffstat (limited to 'ext/Time/Piece/Piece.t')
| -rw-r--r-- | ext/Time/Piece/Piece.t | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/ext/Time/Piece/Piece.t b/ext/Time/Piece/Piece.t index c62e36d95e..f20069679e 100644 --- a/ext/Time/Piece/Piece.t +++ b/ext/Time/Piece/Piece.t @@ -82,11 +82,18 @@ print "ok 21\n"; # In GMT there should be no daylight savings ever. -print "not " unless $t->isdst == 0; -print "ok 22\n"; - -print "not " unless $t->daylight_savings == 0; -print "ok 23\n"; +my $dst = 0; +my $dst_mess = ''; +if ($^O eq 'os2') { + # OS/2 EMX bug + $dst = (CORE::gmtime(0))[8]; + $dst_mess = ' # skipped: gmtime(0) thinks DST gmtime 0 == -1'; +} +print "not " unless $t->isdst == $dst; +print "ok 22$dst_mess\n"; + +print "not " unless $t->daylight_savings == $dst; +print "ok 23$dst_mess\n"; print "not " unless $t->hms eq '12:34:56'; print "ok 24\n"; |