#!./perl # $Header: base.term,v 3.0.1.1 90/02/28 18:31:56 lwall Locked $ print "1..6\n"; # check "" interpretation $x = "\n"; if ($x lt ' ') {print "ok 1\n";} else {print "not ok 1\n";} # check `` processing $x = `echo hi there`; if ($x eq "hi there\n") {print "ok 2\n";} else {print "not ok 2\n";} # check $#array $x[0] = 'foo'; $x[1] = 'foo'; $tmp = $#x; print "#3\t:$tmp: == :1:\n"; if ($#x == '1') {print "ok 3\n";} else {print "not ok 3\n";} # check numeric literal $x = 1; if ($x == '1') {print "ok 4\n";} else {print "not ok 4\n";} # check <> pseudoliteral open(try, "/dev/null") || (die "Can't open /dev/null."); if ( eq '') { print "ok 5\n"; } else { print "not ok 5\n"; die "/dev/null IS NOT A CHARACTER SPECIAL FILE!!!!\n" unless -c '/dev/null'; } open(try, "../Makefile") || (die "Can't open ../Makefile."); if ( ne '') {print "ok 6\n";} else {print "not ok 6\n";}