Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
3 | # $Header: base.term,v 1.0 87/12/18 13:11:59 root Exp $ |
4 | |
5 | print "1..6\n"; |
6 | |
7 | # check "" interpretation |
8 | |
9 | $x = "\n"; |
10 | if ($x lt ' ') {print "ok 1\n";} else {print "not ok 1\n";} |
11 | |
12 | # check `` processing |
13 | |
14 | $x = `echo hi there`; |
15 | if ($x eq "hi there\n") {print "ok 2\n";} else {print "not ok 2\n";} |
16 | |
17 | # check $#array |
18 | |
19 | $x[0] = 'foo'; |
20 | $x[1] = 'foo'; |
21 | $tmp = $#x; |
22 | print "#3\t:$tmp: == :1:\n"; |
23 | if ($#x == '1') {print "ok 3\n";} else {print "not ok 3\n";} |
24 | |
25 | # check numeric literal |
26 | |
27 | $x = 1; |
28 | if ($x == '1') {print "ok 4\n";} else {print "not ok 4\n";} |
29 | |
30 | # check <> pseudoliteral |
31 | |
32 | open(try, "/dev/null") || (die "Can't open /dev/null."); |
33 | if (<try> eq '') {print "ok 5\n";} else {print "not ok 5\n";} |
34 | |
35 | open(try, "/etc/termcap") || (die "Can't open /etc/termcap."); |
36 | if (<try> ne '') {print "ok 6\n";} else {print "not ok 6\n";} |