Commit | Line | Data |
---|---|---|
e49298ea JH |
1 | BEGIN { |
2 | chdir 't' if -d 't'; | |
3 | @INC = qw(../lib uni .); | |
4 | require "case.pl"; | |
5 | } | |
6 | ||
4c8a458a KW |
7 | is(uc("\x{3B1}\x{345}\x{301}"), "\x{391}\x{301}\x{399}", 'Verify moves YPOGEGRAMMENI'); |
8 | ||
9 | casetest( 1, # extra tests already run | |
cc70200b KW |
10 | "Upper", \%utf8::ToSpecUpper, |
11 | sub { uc $_[0] }, | |
6f9b16a7 | 12 | sub { my $a = ""; uc ($_[0] . $a) }); |