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 | } | |
5051ccfe | 7 | require "./uni/case.pl"; |
e49298ea JH |
8 | } |
9 | ||
61900f46 KW |
10 | use feature 'unicode_strings'; |
11 | ||
cc70200b | 12 | casetest(0, # No extra tests run here, |
2d6d4018 | 13 | "Lowercase_Mapping", |
227e818e KW |
14 | lc => sub { lc $_[0] }, |
15 | lc_with_appended_null_arg => sub { my $a = ""; lc ($_[0] . $a) }, | |
16 | lcfirst => sub { lcfirst $_[0] }, | |
17 | lcfirst_with_appended_null_arg => sub { my $a = ""; lcfirst ($_[0] . $a) } | |
18 | ); |