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 | } | |
a0338eda | 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, |
227e818e KW |
13 | "Titlecase_Mapping", |
14 | ucfirst => sub { ucfirst $_[0] }, | |
15 | ucfirst_with_appended_null_arg => sub { my $a = ""; ucfirst ($_[0] . $a) } | |
16 | ); |