1BEGIN { 2 chdir 't' if -d 't'; 3 @INC = qw(../lib uni .); 4 require "case.pl"; 5} 6 7casetest(0, # No extra tests run here, 8 "Titlecase_Mapping", sub { ucfirst $_[0] }, 9 sub { my $a = ""; ucfirst ($_[0] . $a) }); 10