From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 4 Dec 1998 06:06:49 +0000 (+0000)
Subject: tweak test for UTEST
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e03713652a5a31e165226d9e78b9e3ea09b0a1d;p=p5sagit%2Fp5-mst-13.2.git

tweak test for UTEST

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

diff --git a/t/op/tr.t b/t/op/tr.t
index 3503c3c..486b451 100755
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -22,12 +22,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";
+}
 #