1BEGIN { 2 chdir 't'; 3 @INC = '../lib'; 4 require './test.pl'; 5} 6 7plan tests => 4; 8 9sub ToUpper { 10 return <<END; 110061 0063 0041 12END 13} 14 15is("\Ufoo\x{101}", "foo\x{101}", "no changes on 'foo'"); 16is("\Ubar\x{101}", "BAr\x{101}", "changing 'ab' on 'bar' "); 17 18sub ToLower { 19 return <<END; 200041 0061 21END 22} 23 24is("\LFOO\x{100}", "FOO\x{100}", "no changes on 'FOO'"); 25is("\LBAR\x{100}", "BaR\x{100}", "changing 'A' on 'BAR' "); 26 27