From: Peter Prymmer <PPrymmer@factset.com>
Date: Tue, 10 Oct 2000 13:56:35 +0000 (-0700)
Subject: op/tr tests on OS/390
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67a178859ea493069d4cd219558dd36971d6e520;p=p5sagit%2Fp5-mst-13.2.git

op/tr tests on OS/390
Message-ID: <Pine.OSF.4.10.10010101355140.441897-100000@aspara.forte.com>

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

diff --git a/t/op/tr.t b/t/op/tr.t
index a6406ff..d86a77d 100755
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -59,11 +59,18 @@ print "ok 6\n";
 print "not " if $x ne 256.65.258 or length $x != 3;
 print "ok 7\n";
 $x =~ tr/A/B/;
-print "not " if $x ne 256.66.258 or length $x != 3;
+if (ord("\t") == 9) { # ASCII
+    print "not " if $x ne 256.66.258 or length $x != 3;
+}
+else {
+    print "not " if $x ne 256.65.258 or length $x != 3;
+}
 print "ok 8\n";
 
 {
-use utf8;
+if (ord("\t") == 9) { # ASCII
+    use utf8;
+}
 
 # 9 - changing UTF8 characters in a UTF8 string, same length.
 $l = chr(300); $r = chr(400);