1N/A# $RCSfile: term.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:07 $ 1N/A chdir 't' if -d 't'; 1N/A# check "" interpretation 1N/Aelsif ($x eq chr(13)) { print "ok 1 # Mac OS\n"; } 1N/Aelsif ($x eq chr(21)) { print "ok 1 # EBCDIC\n"; } 1N/Aelse {
print "not ok 1\n";}
1N/A# check `` processing 1N/A$x =
`$^X -le "print 'hi there'"`;
1N/Aif ($x eq "hi there\n") {
print "ok 2\n";}
else {
print "not ok 2\n";}
1N/Aif ($#x == '1') {
print "ok 3\n";}
else {
print "not ok 3\n";}
1N/A# check numeric literal 1N/Aif ($x == '1') {
print "ok 4\n";}
else {
print "not ok 4\n";}
1N/Aif (($x | 1) == 101) {
print "ok 5\n";}
else {
print "not ok 5\n";}
1N/A# check <> pseudoliteral 1N/Aif (<try> ne '') {
print "ok 7\n";}
else {
print "not ok 7\n";}