Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
79072805 |
3 | # $RCSfile: tell.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:33 $ |
8d063cd8 |
4 | |
5 | print "1..13\n"; |
6 | |
378cc40b |
7 | $TST = 'tst'; |
8 | |
a0d0e21e |
9 | open($TST, '../Configure') || (die "Can't open ../Configure"); |
5aabfad6 |
10 | binmode $TST if $^O eq 'MSWin32'; |
8d063cd8 |
11 | if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; } |
12 | |
378cc40b |
13 | $firstline = <$TST>; |
8d063cd8 |
14 | $secondpos = tell; |
15 | |
16 | $x = 0; |
17 | while (<tst>) { |
18 | if (eof) {$x++;} |
19 | } |
20 | if ($x == 1) { print "ok 2\n"; } else { print "not ok 2\n"; } |
21 | |
22 | $lastpos = tell; |
23 | |
24 | unless (eof) { print "not ok 3\n"; } else { print "ok 3\n"; } |
25 | |
378cc40b |
26 | if (seek($TST,0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; } |
8d063cd8 |
27 | |
28 | if (eof) { print "not ok 5\n"; } else { print "ok 5\n"; } |
29 | |
30 | if ($firstline eq <tst>) { print "ok 6\n"; } else { print "not ok 6\n"; } |
31 | |
32 | if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; } |
33 | |
34 | if (seek(tst,0,1)) { print "ok 8\n"; } else { print "not ok 8\n"; } |
35 | |
378cc40b |
36 | if (eof($TST)) { print "not ok 9\n"; } else { print "ok 9\n"; } |
8d063cd8 |
37 | |
38 | if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; } |
39 | |
40 | if (seek(tst,0,2)) { print "ok 11\n"; } else { print "not ok 11\n"; } |
41 | |
42 | if ($lastpos == tell) { print "ok 12\n"; } else { print "not ok 12\n"; } |
43 | |
44 | unless (eof) { print "not ok 13\n"; } else { print "ok 13\n"; } |