Commit | Line | Data |
---|---|---|
3a2263fe | 1 | BEGIN { |
2 | chdir 't'; | |
3 | @INC = '../lib'; | |
4 | require './test.pl'; | |
5 | } | |
6 | ||
7 | plan tests => 4; | |
8 | ||
9 | sub ToUpper { | |
10 | return <<END; | |
11 | 0061 0063 0041 | |
12 | END | |
13 | } | |
14 | ||
15 | is("\Ufoo\x{101}", "foo\x{101}", "no changes on 'foo'"); | |
16 | is("\Ubar\x{101}", "BAr\x{101}", "changing 'ab' on 'bar' "); | |
17 | ||
18 | sub ToLower { | |
19 | return <<END; | |
20 | 0041 0061 | |
21 | END | |
22 | } | |
23 | ||
24 | is("\LFOO\x{100}", "FOO\x{100}", "no changes on 'FOO'"); | |
25 | is("\LBAR\x{100}", "BaR\x{100}", "changing 'A' on 'BAR' "); | |
26 |