Commit | Line | Data |
---|---|---|
e49298ea JH |
1 | BEGIN { |
2 | chdir 't' if -d 't'; | |
d512ebc9 | 3 | require "uni/case.pl"; |
e49298ea JH |
4 | } |
5 | ||
61900f46 KW |
6 | use feature 'unicode_strings'; |
7 | ||
227e818e KW |
8 | is(uc("\x{3B1}\x{345}\x{301}"), "\x{391}\x{301}\x{399}", |
9 | 'Verify moves YPOGEGRAMMENI'); | |
4c8a458a KW |
10 | |
11 | casetest( 1, # extra tests already run | |
2d6d4018 | 12 | "Uppercase_Mapping", |
227e818e KW |
13 | uc => sub { uc $_[0] }, |
14 | uc_with_appended_null_arg => sub { my $a = ""; uc ($_[0] . $a) } | |
15 | ); |