1*0Sstevel@tonic-gateBEGIN { 2*0Sstevel@tonic-gate chdir 't'; 3*0Sstevel@tonic-gate @INC = '../lib'; 4*0Sstevel@tonic-gate require './test.pl'; 5*0Sstevel@tonic-gate} 6*0Sstevel@tonic-gate 7*0Sstevel@tonic-gateplan tests => 4; 8*0Sstevel@tonic-gate 9*0Sstevel@tonic-gatesub ToUpper { 10*0Sstevel@tonic-gate return <<END; 11*0Sstevel@tonic-gate0061 0063 0041 12*0Sstevel@tonic-gateEND 13*0Sstevel@tonic-gate} 14*0Sstevel@tonic-gate 15*0Sstevel@tonic-gateis("\Ufoo\x{101}", "foo\x{101}", "no changes on 'foo'"); 16*0Sstevel@tonic-gateis("\Ubar\x{101}", "BAr\x{101}", "changing 'ab' on 'bar' "); 17*0Sstevel@tonic-gate 18*0Sstevel@tonic-gatesub ToLower { 19*0Sstevel@tonic-gate return <<END; 20*0Sstevel@tonic-gate0041 0061 21*0Sstevel@tonic-gateEND 22*0Sstevel@tonic-gate} 23*0Sstevel@tonic-gate 24*0Sstevel@tonic-gateis("\LFOO\x{100}", "FOO\x{100}", "no changes on 'FOO'"); 25*0Sstevel@tonic-gateis("\LBAR\x{100}", "BaR\x{100}", "changing 'A' on 'BAR' "); 26*0Sstevel@tonic-gate 27