From: Mike Guy <mjtg@cam.ac.uk>
Date: Mon, 11 Feb 2002 02:50:42 +0000 (+0000)
Subject: Re: [PATCH] Re: Modulus operator inconsistency
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e228fed99f968153ec65a3a899d5f6d4b7ebcbc1;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Re: Modulus operator inconsistency
Message-Id: <E16a6YE-0006fq-00@libra.cus.cam.ac.uk>

p4raw-id: //depot/perl@14634
---

diff --git a/t/op/arith.t b/t/op/arith.t
index a607e60..4205345 100755
--- a/t/op/arith.t
+++ b/t/op/arith.t
@@ -1,6 +1,6 @@
 #!./perl -w
 
-print "1..132\n";
+print "1..133\n";
 
 sub try ($$) {
    print +($_[1] ? "ok" : "not ok"), " $_[0]\n";
@@ -264,4 +264,8 @@ tryeq 130, 18446744073709551616/9223372036854775808, 2;
   # -167772160. It's actually undefined behaviour, so anything may happen.
   my $int = ($n % 1000) * 167772160;
   tryeq 132, $int, 21307064320;
+
+  my $t = time;
+  my $t1000 = time() * 1000;
+  try 133, abs($t1000 -1000 * $t) <= 2000;
 }