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
1 # tr.t
2
3 BEGIN {
4     chdir 't' if -d 't';
5     unshift @INC, "../lib";
6 }
7
8 print "1..15\n";
9
10 $_ = "abcdefghijklmnopqrstuvwxyz";
11
12 tr/a-z/A-Z/;
13
14 print "not " unless $_ eq "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
15 print "ok 1\n";
16
17 tr/A-Z/a-z/;
18
19 print "not " unless $_ eq "abcdefghijklmnopqrstuvwxyz";
20 print "ok 2\n";
21
22 tr/b-y/B-Y/;
23
24 print "not " unless $_ eq "aBCDEFGHIJKLMNOPQRSTUVWXYz";
25 print "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).
30 {
31     no utf8;
32     $_ = "I\xcaJ";
33
34     tr/I-J/i-j/;
35
36     print "not " unless $_ eq "i\xcaj";
37     print "ok 4\n";
38 }
39 #
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/;
46 print "not " unless $x + $y + $f + $g == 71;
47 print "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//;
53 s/^(\s*)f/$1F/;
54 print "not " if $_ ne 'Fred';
55 print "ok 6\n";
56
57 # check tr handles UTF8 correctly
58 ($x = 256.65.258) =~ tr/a/b/;
59 print "not " if $x ne 256.65.258 or length $x != 3;
60 print "ok 7\n";
61 $x =~ tr/A/B/;
62 print "not " if $x ne 256.66.258 or length $x != 3;
63 print "ok 8\n";
64
65 {
66 use 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}/;
72 printf "not (%vd) ", $x if $x ne 200.400.400 or length $x != 3;
73 print "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}/;
78 printf "not (%vd) ", $x if $x ne 200.3048.400 or length $x != 3;
79 print "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}/;
84 printf "not (%vd) ", $x if $x ne 400.125.60 or length $x != 3;
85 print "ok 11\n";
86
87 # 12 - removing UTF8 characters from UTF8 string
88 $x = 400.125.60;
89 $x =~ tr/\x{190}/\x{64}/;
90 printf "not (%vd) ", $x if $x ne 100.125.60 or length $x != 3;
91 print "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}/;
96 print "not " if $y != 2;
97 print "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}/;
102 print "not " if $y != 2;
103 print "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}/;
108 print "not " if $y != 0;
109 print "ok 15\n";
110 }