| Commit | Line | Data |
|---|
| 8d063cd8 |
1 | #!./perl |
| 2 | |
| 3 | # $Header: io.tell,v 1.0 87/12/18 13:13:02 root Exp $ |
| 4 | |
| 5 | print "1..13\n"; |
| 6 | |
| 7 | open(tst, '../Makefile') || (die "Can't open ../Makefile"); |
| 8 | |
| 9 | if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; } |
| 10 | |
| 11 | $firstline = <tst>; |
| 12 | $secondpos = tell; |
| 13 | |
| 14 | $x = 0; |
| 15 | while (<tst>) { |
| 16 | if (eof) {$x++;} |
| 17 | } |
| 18 | if ($x == 1) { print "ok 2\n"; } else { print "not ok 2\n"; } |
| 19 | |
| 20 | $lastpos = tell; |
| 21 | |
| 22 | unless (eof) { print "not ok 3\n"; } else { print "ok 3\n"; } |
| 23 | |
| 24 | if (seek(tst,0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; } |
| 25 | |
| 26 | if (eof) { print "not ok 5\n"; } else { print "ok 5\n"; } |
| 27 | |
| 28 | if ($firstline eq <tst>) { print "ok 6\n"; } else { print "not ok 6\n"; } |
| 29 | |
| 30 | if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; } |
| 31 | |
| 32 | if (seek(tst,0,1)) { print "ok 8\n"; } else { print "not ok 8\n"; } |
| 33 | |
| 34 | if (eof) { print "not ok 9\n"; } else { print "ok 9\n"; } |
| 35 | |
| 36 | if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; } |
| 37 | |
| 38 | if (seek(tst,0,2)) { print "ok 11\n"; } else { print "not ok 11\n"; } |
| 39 | |
| 40 | if ($lastpos == tell) { print "ok 12\n"; } else { print "not ok 12\n"; } |
| 41 | |
| 42 | unless (eof) { print "not ok 13\n"; } else { print "ok 13\n"; } |
projects / p5sagit/p5-mst-13.2.git / blame