1N/ABEGIN {

1N/A chdir 't';

1N/A @INC = '../lib';

1N/A require './test.pl';

1N/A}

1N/A

1N/Aplan tests => 4;

1N/A

1N/Asub ToUpper {

1N/A return <<END;

1N/A0061 0063 0041

1N/AEND

1N/A}

1N/A

1N/Ais("\Ufoo\x{101}", "foo\x{101}", "no changes on 'foo'");

1N/Ais("\Ubar\x{101}", "BAr\x{101}", "changing 'ab' on 'bar' ");

1N/A

1N/Asub ToLower {

1N/A return <<END;

1N/A0041 0061

1N/AEND

1N/A}

1N/A

1N/Ais("\LFOO\x{100}", "FOO\x{100}", "no changes on 'FOO'");

1N/Ais("\LBAR\x{100}", "BaR\x{100}", "changing 'A' on 'BAR' ");

1N/A