Bind op fix.

[p5sagit/p5-mst-13.2.git] / t / op / int.t

diff --git a/t/op/int.t b/t/op/int.t
index c01c12a..6ac0866 100755 (executable)
--- a/t/op/int.t
+++ b/t/op/int.t
@@ -1,5 +1,10 @@
 #!./perl
 
+BEGIN {
+    chdir 't' if -d 't';
+    unshift @INC, '../lib';
+}
+
 print "1..6\n";
 
 # compile time evaluation
@@ -20,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";
 }