diff options
Diffstat (limited to 't/base/term.t')
| -rwxr-xr-x | t/base/term.t | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/t/base/term.t b/t/base/term.t index 7bbb80ee90..782ad397d3 100755 --- a/t/base/term.t +++ b/t/base/term.t @@ -2,7 +2,7 @@ # $RCSfile: term.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:07 $ -print "1..6\n"; +print "1..7\n"; # check "" interpretation @@ -27,16 +27,19 @@ if ($#x == '1') {print "ok 3\n";} else {print "not ok 3\n";} $x = 1; if ($x == '1') {print "ok 4\n";} else {print "not ok 4\n";} +$x = '1E2'; +if (($x | 1) == 101) {print "ok 5\n";} else {print "not ok 5\n";} + # check <> pseudoliteral open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null."); if (<try> eq '') { - print "ok 5\n"; + print "ok 6\n"; } else { - print "not ok 5\n"; + print "not ok 6\n"; die "/dev/null IS NOT A CHARACTER SPECIAL FILE!!!!\n" unless -c '/dev/null'; } open(try, "../Configure") || (die "Can't open ../Configure."); -if (<try> ne '') {print "ok 6\n";} else {print "not ok 6\n";} +if (<try> ne '') {print "ok 7\n";} else {print "not ok 7\n";} |