From ee80afe69a0e0464a9d27967d995a4791cf8367b Mon Sep 17 00:00:00 2001 From: "H.Merijn Brand" Date: Wed, 7 Apr 2004 12:03:11 +0000 Subject: [PATCH] Disable the edge case tests for timegm and timelocal on AIX-4.3 since the OS is obsoleted, and fixes are not to be expected p4raw-id: //depot/perl@22670 --- lib/Time/Local.t | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lib/Time/Local.t b/lib/Time/Local.t index c4b7827..8f35f7a 100755 --- a/lib/Time/Local.t +++ b/lib/Time/Local.t @@ -9,6 +9,7 @@ BEGIN { use strict; +use Config; use Test; use Time::Local; @@ -98,11 +99,15 @@ ok(timegm(0,0,0, 1, 2, 80) - timegm(0,0,0, 1, 0, 80), 60 * 24 * 3600, } # round trip was broken for edge cases +if ($^O eq "aix" && $Config{osvers} =~ m/^4\.3\./) { +skip ("No fix expected for edge case test for $_ on AIX 4.3") for qw( timegm timelocal ); +} else { ok(sprintf('%x', timegm(gmtime(0x7fffffff))), sprintf('%x', 0x7fffffff), '0x7fffffff round trip through gmtime then timegm'); ok(sprintf('%x', timelocal(localtime(0x7fffffff))), sprintf('%x', 0x7fffffff), '0x7fffffff round trip through localtime then timelocal'); +} if ($ENV{MAINTAINER}) { eval { require POSIX; POSIX::tzset() }; -- 2.7.4