Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
79072805 |
3 | # $RCSfile: term.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:07 $ |
8d063cd8 |
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 | |
a0d0e21e |
32 | open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null."); |
afd9f252 |
33 | if (<try> eq '') { |
34 | print "ok 5\n"; |
35 | } |
36 | else { |
37 | print "not ok 5\n"; |
38 | die "/dev/null IS NOT A CHARACTER SPECIAL FILE!!!!\n" unless -c '/dev/null'; |
39 | } |
8d063cd8 |
40 | |
a0d0e21e |
41 | open(try, "../Configure") || (die "Can't open ../Configure."); |
8d063cd8 |
42 | if (<try> ne '') {print "ok 6\n";} else {print "not ok 6\n";} |