1*0Sstevel@tonic-gateBEGIN { 2*0Sstevel@tonic-gate chdir 't' if -d 't'; 3*0Sstevel@tonic-gate @INC = qw(../lib uni .); 4*0Sstevel@tonic-gate require "case.pl"; 5*0Sstevel@tonic-gate} 6*0Sstevel@tonic-gate 7*0Sstevel@tonic-gatecasetest("Upper", \%utf8::ToSpecUpper, sub { uc $_[0] }); 8*0Sstevel@tonic-gate 9