blob: 4e6667cd7fb261c92351efae77ab36d878a0869b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
# tr.t
BEGIN {
chdir 't' if -d 't';
unshift @INC, "../lib";
}
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).
{
no utf8;
$_ = "I\xcaJ";
tr/I-J/i-j/;
print "not " unless $_ eq "i\xcaj";
print "ok 4\n";
}
#
|
