Fix for ext/POSIX/t/time.t so the strftime() test works on systems
authorSteve Peters <steve@fisharerojo.org>
Sat, 17 Dec 2005 04:03:05 +0000 (04:03 +0000)
committerSteve Peters <steve@fisharerojo.org>
Sat, 17 Dec 2005 04:03:05 +0000 (04:03 +0000)
that aren't quite up to SUS3.  Based on a patch by David Dyck in
RT #37960: POSIX/t/time fails bleadperl

p4raw-id: //depot/perl@26384

ext/POSIX/t/time.t

index 33bb556..c09a375 100644 (file)
@@ -36,13 +36,9 @@ is(asctime(localtime(12345678)), ctime(12345678), "asctime() and ctime() at 1234
 
 # Careful!  strftime() is locale sensative.  Let's take care of that
 my $orig_loc = setlocale(LC_TIME, "C") || die "Cannot setlocale() to C:  $!";
-if ($^O eq "MSWin32") {
-    is(ctime(0), strftime("%a %b %d %H:%M:%S %Y\n", localtime(0)),
+my $jan_16 = 15 * 86400;
+is(ctime($jan_16), strftime("%a %b %d %H:%M:%S %Y\n", localtime($jan_16)),
         "get ctime() equal to strftime()");
-} else {
-    is(ctime(0), strftime("%a %b %e %H:%M:%S %Y\n", localtime(0)),
-        "get ctime() equal to strftime()");
-}
 setlocale(LC_TIME, $orig_loc) || die "Cannot setlocale() back to orig: $!";
 
 # clock() seems to have different definitions of what it does between POSIX