Commit | Line | Data |
---|---|---|
8d063cd8 LW |
1 | #!./perl |
2 | ||
ecf52eaf | 3 | print "1..8\n"; |
8d063cd8 LW |
4 | |
5 | # compile time evaluation | |
6 | ||
ecf52eaf JH |
7 | # 'A' 65 ASCII |
8 | # 'A' 193 EBCDIC | |
9d116dd7 | 9 | if (ord('A') == 65 || ord('A') == 193) {print "ok 1\n";} else {print "not ok 1\n";} |
8d063cd8 | 10 | |
bed171df GS |
11 | print "not " unless ord(chr(500)) == 500; |
12 | print "ok 2\n"; | |
13 | ||
8d063cd8 LW |
14 | # run time evaluation |
15 | ||
16 | $x = 'ABC'; | |
bed171df GS |
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";} | |
463ee0b2 | 20 | |
ecf52eaf JH |
21 | print "not " unless ord(chr(500)) == 500; |
22 | print "ok 5\n"; | |
23 | ||
bed171df GS |
24 | $x = 500; |
25 | print "not " unless ord(chr($x)) == $x; | |
ecf52eaf JH |
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 |