Integrate mainline
[p5sagit/p5-mst-13.2.git] / t / op / ord.t
1 #!./perl
2
3 print "1..5\n";
4
5 # compile time evaluation
6
7 # 65    ASCII
8 # 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 $x = 500;
22 print "not " unless ord(chr($x)) == $x;
23 print "ok 5\n";