test in change#4428 needs strict interpretation of C modulus

p4raw-link: @4428 on //depot/perl: 4bb9f687ed0930c988c412c4c28bd2a535612894

p4raw-id: //depot/perl@4441

1 files changed, 2 insertions, 1 deletions

diff --git a/t/op/int.t b/t/op/int.t
index 98c1a75d66..6ac0866a2b 100755
--- a/t/op/int.t
+++ b/t/op/int.t
@@ -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";
 }