test in change#4428 needs strict interpretation of C modulus
Gurusamy Sarathy [Sun, 24 Oct 1999 14:33:11 +0000 (14:33 +0000)]
p4raw-link: @4428 on //depot/perl: 4bb9f687ed0930c988c412c4c28bd2a535612894

p4raw-id: //depot/perl@4441

t/op/int.t

index 98c1a75..6ac0866 100755 (executable)
@@ -25,5 +25,6 @@ print $x == -7 ? "ok 5\n" : "# expected -7, got $x\nnot ok 5\n";
 {
     use integer;
     $x = length("abc") % -10;
-    print $x == 3 ? "ok 6\n" : "# expected 3, got $x\nnot ok 6\n";
+    $y = (3/-10)*-10;
+    print $x+$y == 3 && abs($x) < 10 ? "ok 6\n" : "not ok 6\n";
 }