1BEGIN { 2 chdir 't' if -d 't'; 3 @INC = qw(../lib uni .); 4 require "case.pl"; 5} 6 7is(uc("\x{3B1}\x{345}\x{301}"), "\x{391}\x{301}\x{399}", 'Verify moves YPOGEGRAMMENI'); 8 9casetest( 1, # extra tests already run 10 "Uppercase_Mapping", 11 sub { uc $_[0] }, 12 sub { my $a = ""; uc ($_[0] . $a) }); 13