Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
79072805 |
3 | # $RCSfile: ord.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:09 $ |
8d063cd8 |
4 | |
463ee0b2 |
5 | print "1..3\n"; |
8d063cd8 |
6 | |
7 | # compile time evaluation |
8 | |
9d116dd7 |
9 | # 65 ASCII |
10 | # 193 EBCDIC |
11 | if (ord('A') == 65 || ord('A') == 193) {print "ok 1\n";} else {print "not ok 1\n";} |
8d063cd8 |
12 | |
13 | # run time evaluation |
14 | |
15 | $x = 'ABC'; |
9d116dd7 |
16 | if (ord($x) == 65 || ord($x) == 193) {print "ok 2\n";} else {print "not ok 2\n";} |
463ee0b2 |
17 | |
9d116dd7 |
18 | if (chr 65 == 'A' || chr 193 == 'A') {print "ok 3\n";} else {print "not ok 3\n";} |