This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
integrate changes#6252..6256,6259..6260
[perl5.git] / t / op / tr.t
CommitLineData
c8e3bb4c
GS
1# tr.t
2
f05dd7cc
JH
3BEGIN {
4 chdir 't' if -d 't';
5 unshift @INC, "../lib";
6}
a5095b95 7
b1fb3988 8print "1..15\n";
c8e3bb4c
GS
9
10$_ = "abcdefghijklmnopqrstuvwxyz";
11
12tr/a-z/A-Z/;
13
14print "not " unless $_ eq "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
15print "ok 1\n";
16
17tr/A-Z/a-z/;
18
19print "not " unless $_ eq "abcdefghijklmnopqrstuvwxyz";
20print "ok 2\n";
21
22tr/b-y/B-Y/;
23
24print "not " unless $_ eq "aBCDEFGHIJKLMNOPQRSTUVWXYz";
25print "ok 3\n";
26
27# In EBCDIC 'I' is \xc9 and 'J' is \0xd1, 'i' is \x89 and 'j' is \x91.
28# Yes, discontinuities. Regardless, the \xca in the below should stay
29# untouched (and not became \x8a).
5e037136
GS
30{
31 no utf8;
32 $_ = "I\xcaJ";
c8e3bb4c 33
5e037136 34 tr/I-J/i-j/;
c8e3bb4c 35
5e037136
GS
36 print "not " unless $_ eq "i\xcaj";
37 print "ok 4\n";
38}
c8e3bb4c 39#
2de7b02f
GS
40
41# make sure that tr cancels IOK and NOK
42($x = 12) =~ tr/1/3/;
43(my $y = 12) =~ tr/1/3/;
44($f = 1.5) =~ tr/1/3/;
45(my $g = 1.5) =~ tr/1/3/;
46print "not " unless $x + $y + $f + $g == 71;
47print "ok 5\n";
48
49# make sure tr is harmless if not updating - see [ID 20000511.005]
50$_ = 'fred';
51/([a-z]{2})/;
52$1 =~ tr/A-Z//;
53s/^(\s*)f/$1F/;
54print "not " if $_ ne 'Fred';
55print "ok 6\n";
56
57# check tr handles UTF8 correctly
58($x = 256.65.258) =~ tr/a/b/;
59print "not " if $x ne 256.65.258 or length $x != 3;
60print "ok 7\n";
61$x =~ tr/A/B/;
62print "not " if $x ne 256.66.258 or length $x != 3;
63print "ok 8\n";
b1fb3988
GS
64
65{
66use utf8;
67
68# 9 - changing UTF8 characters in a UTF8 string, same length.
69$l = chr(300); $r = chr(400);
70$x = 200.300.400;
71$x =~ tr/\x{12c}/\x{190}/;
72printf "not (%vd) ", $x if $x ne 200.400.400 or length $x != 3;
73print "ok 9\n";
74
75# 10 - changing UTF8 characters in UTF8 string, more bytes.
76$x = 200.300.400;
77$x =~ tr/\x{12c}/\x{be8}/;
78printf "not (%vd) ", $x if $x ne 200.3048.400 or length $x != 3;
79print "ok 10\n";
80
81# 11 - introducing UTF8 characters to non-UTF8 string.
82$x = 100.125.60;
83$x =~ tr/\x{64}/\x{190}/;
84printf "not (%vd) ", $x if $x ne 400.125.60 or length $x != 3;
85print "ok 11\n";
86
87# 12 - removing UTF8 characters from UTF8 string
88$x = 400.125.60;
89$x =~ tr/\x{190}/\x{64}/;
90printf "not (%vd) ", $x if $x ne 100.125.60 or length $x != 3;
91print "ok 12\n";
92
93# 13 - counting UTF8 chars in UTF8 string
94$x = 400.125.60.400;
95$y = $x =~ tr/\x{190}/\x{190}/;
96print "not " if $y != 2;
97print "ok 13\n";
98
99# 14 - counting non-UTF8 chars in UTF8 string
100$x = 60.400.125.60.400;
101$y = $x =~ tr/\x{3c}/\x{3c}/;
102print "not " if $y != 2;
103print "ok 14\n";
104
105# 15 - counting UTF8 chars in non-UTF8 string
106$x = 200.125.60;
107$y = $x =~ tr/\x{190}/\x{190}/;
108print "not " if $y != 0;
109print "ok 15\n";
110}