Commit | Line | Data |
---|---|---|
e49298ea JH |
1 | BEGIN { |
2 | chdir 't' if -d 't'; | |
3 | @INC = qw(../lib uni .); | |
4 | require "case.pl"; | |
5 | } | |
6 | ||
cc70200b KW |
7 | casetest(0, # No extra tests run here, |
8 | "Lower", \%utf8::ToSpecLower, | |
6f9b16a7 NC |
9 | sub { lc $_[0] }, sub { my $a = ""; lc ($_[0] . $a) }, |
10 | sub { lcfirst $_[0] }, sub { my $a = ""; lcfirst ($_[0] . $a) }); |