diff options
Diffstat (limited to 't/io.tell')
| -rw-r--r-- | t/io.tell | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -1,14 +1,16 @@ #!./perl -# $Header: io.tell,v 1.0 87/12/18 13:13:02 root Exp $ +# $Header: io.tell,v 2.0 88/06/05 00:13:14 root Exp $ print "1..13\n"; -open(tst, '../Makefile') || (die "Can't open ../Makefile"); +$TST = 'tst'; + +open($TST, '../Makefile') || (die "Can't open ../Makefile"); if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; } -$firstline = <tst>; +$firstline = <$TST>; $secondpos = tell; $x = 0; @@ -21,7 +23,7 @@ $lastpos = tell; unless (eof) { print "not ok 3\n"; } else { print "ok 3\n"; } -if (seek(tst,0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; } +if (seek($TST,0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; } if (eof) { print "not ok 5\n"; } else { print "ok 5\n"; } @@ -31,7 +33,7 @@ if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; } if (seek(tst,0,1)) { print "ok 8\n"; } else { print "not ok 8\n"; } -if (eof) { print "not ok 9\n"; } else { print "ok 9\n"; } +if (eof($TST)) { print "not ok 9\n"; } else { print "ok 9\n"; } if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; } |