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