This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The subtests 28 and 31 were wrong. Tightened also the similar
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 22 Feb 2000 19:40:43 +0000 (19:40 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 22 Feb 2000 19:40:43 +0000 (19:40 +0000)
tests nearby.

p4raw-id: //depot/cfgperl@5209

t/op/64bit.t

index 09419f8..f7103af 100644 (file)
@@ -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";