diff options
Diffstat (limited to 'contrib/perl5/t/op/ord.t')
| -rwxr-xr-x | contrib/perl5/t/op/ord.t | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/contrib/perl5/t/op/ord.t b/contrib/perl5/t/op/ord.t index ba943f4..22ff3af 100755 --- a/contrib/perl5/t/op/ord.t +++ b/contrib/perl5/t/op/ord.t @@ -1,8 +1,6 @@ #!./perl -# $RCSfile: ord.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:09 $ - -print "1..3\n"; +print "1..5\n"; # compile time evaluation @@ -10,9 +8,16 @@ print "1..3\n"; # 193 EBCDIC if (ord('A') == 65 || ord('A') == 193) {print "ok 1\n";} else {print "not ok 1\n";} +print "not " unless ord(chr(500)) == 500; +print "ok 2\n"; + # run time evaluation $x = 'ABC'; -if (ord($x) == 65 || ord($x) == 193) {print "ok 2\n";} else {print "not ok 2\n";} +if (ord($x) == 65 || ord($x) == 193) {print "ok 3\n";} else {print "not ok 3\n";} + +if (chr 65 eq 'A' || chr 193 eq 'A') {print "ok 4\n";} else {print "not ok 4\n";} -if (chr 65 == 'A' || chr 193 == 'A') {print "ok 3\n";} else {print "not ok 3\n";} +$x = 500; +print "not " unless ord(chr($x)) == $x; +print "ok 5\n"; |
