From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 15 Oct 1998 03:04:17 +0000 (+0000)
Subject: add missing tr.t to repository
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c8e3bb4c8218524992d6c15718b8c60041841fa3;p=p5sagit%2Fp5-mst-13.2.git

add missing tr.t to repository

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

diff --git a/t/op/tr.t b/t/op/tr.t
new file mode 100755
index 0000000..3503c3c
--- /dev/null
+++ b/t/op/tr.t
@@ -0,0 +1,33 @@
+# tr.t
+
+print "1..4\n";
+
+$_ = "abcdefghijklmnopqrstuvwxyz";
+
+tr/a-z/A-Z/;
+
+print "not " unless $_ eq "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+print "ok 1\n";
+
+tr/A-Z/a-z/;
+
+print "not " unless $_ eq "abcdefghijklmnopqrstuvwxyz";
+print "ok 2\n";
+
+tr/b-y/B-Y/;
+
+print "not " unless $_ eq "aBCDEFGHIJKLMNOPQRSTUVWXYz";
+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).
+
+$_ = "I\xcaJ";
+
+tr/I-J/i-j/;
+
+print "not " unless $_ eq "i\xcaj";
+print "ok 4\n";
+
+#