From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Wed, 7 Apr 2004 12:03:11 +0000 (+0000)
Subject: Disable the edge case tests for timegm and timelocal on
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee80afe69a0e0464a9d27967d995a4791cf8367b;p=p5sagit%2Fp5-mst-13.2.git

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
---

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() };