This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add t/op/lc.t to see if lc, uc, lcfirst, ucfirst, quotemeta work.
[perl5.git] / t / op / lc.t
CommitLineData
b0f2b690
JH
1#!./perl
2
3print "1..40\n";
4
5$a = "HELLO.* world";
6$b = "hello.* WORLD";
7
8print "ok 1\n" if "\Q$a\E." eq "HELLO\\.\\*\\ world.";
9print "ok 2\n" if "\u$a" eq "HELLO\.\* world";
10print "ok 3\n" if "\l$a" eq "hELLO\.\* world";
11print "ok 4\n" if "\U$a" eq "HELLO\.\* WORLD";
12print "ok 5\n" if "\L$a" eq "hello\.\* world";
13
14print "ok 6\n" if quotemeta($a) eq "HELLO\\.\\*\\ world";
15print "ok 7\n" if ucfirst($a) eq "HELLO\.\* world";
16print "ok 8\n" if lcfirst($a) eq "hELLO\.\* world";
17print "ok 9\n" if uc($a) eq "HELLO\.\* WORLD";
18print "ok 10\n" if lc($a) eq "hello\.\* world";
19
20print "ok 11\n" if "\Q$b\E." eq "hello\\.\\*\\ WORLD.";
21print "ok 12\n" if "\u$b" eq "Hello\.\* WORLD";
22print "ok 13\n" if "\l$b" eq "hello\.\* WORLD";
23print "ok 14\n" if "\U$b" eq "HELLO\.\* WORLD";
24print "ok 15\n" if "\L$b" eq "hello\.\* world";
25
26print "ok 16\n" if quotemeta($b) eq "hello\\.\\*\\ WORLD";
27print "ok 17\n" if ucfirst($b) eq "Hello\.\* WORLD";
28print "ok 18\n" if lcfirst($b) eq "hello\.\* WORLD";
29print "ok 19\n" if uc($b) eq "HELLO\.\* WORLD";
30print "ok 20\n" if lc($b) eq "hello\.\* world";
31
32$a = "\x{100}\x{101}\x{41}\x{61}";
33$b = "\x{101}\x{100}\x{61}\x{41}";
34
35print "ok 21\n" if "\Q$a\E." eq "\x{100}\x{101}\x{41}\x{61}.";
36print "ok 22\n" if "\u$a" eq "\x{100}\x{101}\x{41}\x{61}";
37print "ok 23\n" if "\l$a" eq "\x{101}\x{101}\x{41}\x{61}";
38print "ok 24\n" if "\U$a" eq "\x{100}\x{100}\x{41}\x{41}";
39print "ok 25\n" if "\L$a" eq "\x{101}\x{101}\x{61}\x{61}";
40
41print "ok 26\n" if quotemeta($a) eq "\x{100}\x{101}\x{41}\x{61}";
42print "ok 27\n" if ucfirst($a) eq "\x{100}\x{101}\x{41}\x{61}";
43print "ok 28\n" if lcfirst($a) eq "\x{101}\x{101}\x{41}\x{61}";
44print "ok 29\n" if uc($a) eq "\x{100}\x{100}\x{41}\x{41}";
45print "ok 30\n" if lc($a) eq "\x{101}\x{101}\x{61}\x{61}";
46
47print "ok 31\n" if "\Q$b\E." eq "\x{101}\x{100}\x{61}\x{41}.";
48print "ok 32\n" if "\u$b" eq "\x{100}\x{100}\x{61}\x{41}";
49print "ok 33\n" if "\l$b" eq "\x{101}\x{100}\x{61}\x{41}";
50print "ok 34\n" if "\U$b" eq "\x{100}\x{100}\x{41}\x{41}";
51print "ok 35\n" if "\L$b" eq "\x{101}\x{101}\x{61}\x{61}";
52
53print "ok 36\n" if quotemeta($b) eq "\x{101}\x{100}\x{61}\x{41}";
54print "ok 37\n" if ucfirst($b) eq "\x{100}\x{100}\x{61}\x{41}";
55print "ok 38\n" if lcfirst($b) eq "\x{101}\x{100}\x{61}\x{41}";
56print "ok 39\n" if uc($b) eq "\x{100}\x{100}\x{41}\x{41}";
57print "ok 40\n" if lc($b) eq "\x{101}\x{101}\x{61}\x{61}";
58
59