From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 22 Feb 2000 19:40:43 +0000 (+0000)
Subject: The subtests 28 and 31 were wrong.  Tightened also the similar
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44d27a6e4dd2f43427369f61e83839b838b643ae;p=p5sagit%2Fp5-mst-13.2.git

The subtests 28 and 31 were wrong.  Tightened also the similar
tests nearby.

p4raw-id: //depot/cfgperl@5209
---

diff --git a/t/op/64bit.t b/t/op/64bit.t
index 09419f8..f7103af 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";