t/op/lc_user.t

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