Change 19060 by [EMAIL PROTECTED] on 2003/03/26 13:13:23
Subject: [PATCH] lib/vmsish.t GMT bug fix
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 25 Mar 2003 22:52:58 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/vmsish.t#4 edit
Differences ...
==== //depot/perl/lib/vmsish.t#4 (text) ====
Index: perl/lib/vmsish.t
--- perl/lib/vmsish.t#3~16748~ Wed May 22 15:34:20 2002
+++ perl/lib/vmsish.t Wed Mar 26 05:13:23 2003
@@ -114,6 +114,10 @@
}
{
use_ok('vmsish qw(time)');
+
+ # but that didn't get it in our current scope
+ use vmsish qw(time);
+
$vmstime = time;
@vmslocal = localtime($vmstime);
@vmsgmtime = gmtime($vmstime);
@@ -130,23 +134,23 @@
# since it's unlikely local time will differ from UTC by so small
# an amount, and it renders the test resistant to delays from
# things like stat() on a file mounted over a slow network link.
- ok($utctime - $vmstime +$offset <= 10,"(time) UTC:$utctime VMS:$vmstime");
+ ok(abs($utctime - $vmstime + $offset) <= 10,"(time) UTC: $utctime VMS: $vmstime");
$utcval = $utclocal[5] * 31536000 + $utclocal[7] * 86400 +
$utclocal[2] * 3600 + $utclocal[1] * 60 + $utclocal[0];
$vmsval = $vmslocal[5] * 31536000 + $vmslocal[7] * 86400 +
$vmslocal[2] * 3600 + $vmslocal[1] * 60 + $vmslocal[0];
- ok($vmsval - $utcval + $offset <= 10, "(localtime)");
+ ok(abs($vmsval - $utcval + $offset) <= 10, "(localtime) UTC: $utcval VMS:
$vmsval");
print "# UTC: @utclocal\n# VMS: @vmslocal\n";
$utcval = $utcgmtime[5] * 31536000 + $utcgmtime[7] * 86400 +
$utcgmtime[2] * 3600 + $utcgmtime[1] * 60 + $utcgmtime[0];
$vmsval = $vmsgmtime[5] * 31536000 + $vmsgmtime[7] * 86400 +
$vmsgmtime[2] * 3600 + $vmsgmtime[1] * 60 + $vmsgmtime[0];
- ok($vmsval - $utcval + $offset <= 10, "(gmtime)");
+ ok(abs($vmsval - $utcval + $offset) <= 10, "(gmtime) UTC: $utcval VMS: $vmsval");
print "# UTC: @utcgmtime\n# VMS: @vmsgmtime\n";
- ok($vmsmtime - $utcmtime + $offset <= 10,"(stat) UTC: $utcmtime VMS: $vmsmtime");
+ ok(abs($utcmtime - $vmsmtime + $offset) <= 10,"(stat) UTC: $utcmtime VMS:
$vmsmtime");
}
}
End of Patch.
