lib was missing from @INC.

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

diff --git a/t/op/tr.t b/t/op/tr.t
index 3503c3c..aa1f9b2 100755 (executable)
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -1,5 +1,8 @@
 # tr.t
 
+chdir 't' if -d 't';
+@INC = "../lib";
+
 print "1..4\n";
 
 $_ = "abcdefghijklmnopqrstuvwxyz";
@@ -22,12 +25,13 @@ print "ok 3\n";
 # In EBCDIC 'I' is \xc9 and 'J' is \0xd1, 'i' is \x89 and 'j' is \x91.
 # Yes, discontinuities.  Regardless, the \xca in the below should stay
 # untouched (and not became \x8a).
+{
+    no utf8;
+    $_ = "I\xcaJ";
 
-$_ = "I\xcaJ";
-
-tr/I-J/i-j/;
-
-print "not " unless $_ eq "i\xcaj";
-print "ok 4\n";
+    tr/I-J/i-j/;
 
+    print "not " unless $_ eq "i\xcaj";
+    print "ok 4\n";
+}
 #