t/op/ord.t

   1 #!./perl
   2
   3 print "1..8\n";
   4
   5 # compile time evaluation
   6
   7 # 'A' 65        ASCII
   8 # 'A' 193       EBCDIC
   9 if (ord('A') == 65 || ord('A') == 193) {print "ok 1\n";} else {print "not ok 1\n";}
  10
  11 print "not " unless ord(chr(500)) == 500;
  12 print "ok 2\n";
  13
  14 # run time evaluation
  15
  16 $x = 'ABC';
  17 if (ord($x) == 65 || ord($x) == 193) {print "ok 3\n";} else {print "not ok 3\n";}
  18
  19 if (chr 65 eq 'A' || chr 193 eq 'A') {print "ok 4\n";} else {print "not ok 4\n";}
  20
  21 print "not " unless ord(chr(500)) == 500;
  22 print "ok 5\n";
  23
  24 $x = 500;
  25 print "not " unless ord(chr($x)) == $x;
  26 print "ok 6\n";
  27
  28 print "not " unless ord("\x{1234}") == 0x1234;
  29 print "ok 7\n";
  30
  31 $x = "\x{1234}";
  32 print "not " unless ord($x) == 0x1234;
  33 print "ok 8\n";
  34