diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-22 19:40:43 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-22 19:40:43 +0000 |
commit | 44d27a6e4dd2f43427369f61e83839b838b643ae (patch) | |
tree | 6917f3d47c9ce621ceb203dcd9a3f9088690bbed /t/op | |
parent | dd101d755db106008f0a83c18ff0bfc7eb6bbdde (diff) | |
download | perl-44d27a6e4dd2f43427369f61e83839b838b643ae.tar.gz |
The subtests 28 and 31 were wrong. Tightened also the similar
tests nearby.
p4raw-id: //depot/cfgperl@5209
Diffstat (limited to 't/op')
-rw-r--r-- | t/op/64bit.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/op/64bit.t b/t/op/64bit.t index 09419f8790..f7103af73e 100644 --- a/t/op/64bit.t +++ b/t/op/64bit.t @@ -145,27 +145,27 @@ print "ok 26\n"; $a = 9223372036854775807; $c = ++$a; -print "not " unless $a == 9223372036854775808; +print "not " unless $a == 9223372036854775808 && $c == $a; print "ok 27\n"; $a = 9223372036854775807; $c = $a + 1; -print "not " unless $a == 9223372036854775808; +print "not " unless $a == 9223372036854775807 && $c == 9223372036854775808; print "ok 28\n"; $a = -9223372036854775808; $c = $a--; -print "not " unless $a == -9223372036854775809; +print "not " unless $a == -9223372036854775809 && $c == -9223372036854775808; print "ok 29\n"; $a = -9223372036854775808; $c = --$a; -print "not " unless $a == -9223372036854775809; +print "not " unless $a == -9223372036854775809 && $c == $a; print "ok 30\n"; $a = -9223372036854775808; $c = $a - 1; -print "not " unless $a == -9223372036854775809; +print "not " unless $a == -9223372036854775808 && $c == -9223372036854775809; print "ok 31\n"; |