From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 24 Oct 1999 14:33:11 +0000 (+0000)
Subject: test in change#4428 needs strict interpretation of C modulus
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ddc90e863776d52d792628dbc755ea9307cd5e15;p=p5sagit%2Fp5-mst-13.2.git

test in change#4428 needs strict interpretation of C modulus

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

p4raw-id: //depot/perl@4441
---

diff --git a/t/op/int.t b/t/op/int.t
index 98c1a75..6ac0866 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";
 }