tweak test for UTEST

p4raw-id: //depot/perl@2448

1 files changed, 7 insertions, 6 deletions

diff --git a/t/op/tr.t b/t/op/tr.t
index 3503c3cf12..486b4515d5 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";
+}
 #