lib/bytes.t

   1 BEGIN {
   2     chdir 't' if -d 't';
   3     @INC = '../lib';
   4 }
   5
   6 print "1..6\n";
   7
   8 my $a = chr(0x0100);
   9
  10 print ord($a)     == 0x100 ? "ok 1\n" : "not ok 1\n";
  11 print length($a)  ==     1 ? "ok 2\n" : "not ok 2\n";
  12
  13 {
  14     use bytes;
  15     my $b = chr(0x0100);
  16     print ord($b) ==     0 ? "ok 3\n" : "not ok 3\n";
  17 }
  18
  19 my $c = chr(0x0100);
  20
  21 print ord($c)     == 0x100 ? "ok 4\n" : "not ok 4\n";
  22
  23 {
  24     use bytes;
  25     if (ord('A') == 193) {
  26         print ord($c) == 0x8c ? "ok 5\n" : "not ok 5\n";
  27     } else {
  28         print ord($c) == 0xc4 ? "ok 5\n" : "not ok 5\n";
  29     }
  30     print length($c) == 2 ? "ok 6\n" : "not ok 6\n";
  31 }
  32