1N/A#!./perl
1N/A
1N/A# $RCSfile: term.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:07 $
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A}
1N/A
1N/Aprint "1..7\n";
1N/A
1N/A# check "" interpretation
1N/A
1N/A$x = "\n";
1N/A# 10 is ASCII/Iso Latin, 13 is Mac OS, 21 is EBCDIC.
1N/Aif ($x eq chr(10)) { print "ok 1\n";}
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
1N/A# check `` processing
1N/A
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/A
1N/A# check $#array
1N/A
1N/A$x[0] = 'foo';
1N/A$x[1] = 'foo';
1N/A$tmp = $#x;
1N/Aprint "#3\t:$tmp: == :1:\n";
1N/Aif ($#x == '1') {print "ok 3\n";} else {print "not ok 3\n";}
1N/A
1N/A# check numeric literal
1N/A
1N/A$x = 1;
1N/Aif ($x == '1') {print "ok 4\n";} else {print "not ok 4\n";}
1N/A
1N/A$x = '1E2';
1N/Aif (($x | 1) == 101) {print "ok 5\n";} else {print "not ok 5\n";}
1N/A
1N/A# check <> pseudoliteral
1N/A
1N/Aif ($^O eq 'MacOS') {
1N/A open(try,"Dev:Null") || (die "Can't open /dev/null.");
1N/A} else {
1N/A open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null.");
1N/A}
1N/A
1N/Aif (<try> eq '') {
1N/A print "ok 6\n";
1N/A}
1N/Aelse {
1N/A print "not ok 6\n";
1N/A die "/dev/null IS NOT A CHARACTER SPECIAL FILE!!!!\n" unless -c '/dev/null';
1N/A}
1N/A
1N/Aopen(try, "harness") || (die "Can't open harness.");
1N/Aif (<try> ne '') {print "ok 7\n";} else {print "not ok 7\n";}