diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2002-02-11 02:50:42 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-11 03:40:01 +0000 |
| commit | e228fed99f968153ec65a3a899d5f6d4b7ebcbc1 (patch) | |
| tree | 136310a037beedefea8fa487df4b9575d045aef8 /t/op/arith.t | |
| parent | 9dc45d57a9216877b08d137c07effd664b49bda8 (diff) | |
| download | perl-e228fed99f968153ec65a3a899d5f6d4b7ebcbc1.tar.gz | |
Re: [PATCH] Re: Modulus operator inconsistency
Message-Id: <E16a6YE-0006fq-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@14634
Diffstat (limited to 't/op/arith.t')
| -rwxr-xr-x | t/op/arith.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/arith.t b/t/op/arith.t index a607e60149..4205345a7e 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; } |