Commit | Line | Data |
61f2b451 |
1 | #!./perl |
2 | |
3 | # $RCSfile: tell.t,v $$Revision: 1.1 $$Date: 1996/05/01 10:52:47 $ |
4 | |
5 | BEGIN { |
6 | chdir 't' if -d 't'; |
7 | @INC = '../lib' if -d '../lib'; |
8 | require Config; import Config; |
9 | if ($Config{'extensions'} !~ /\bIO\b/ && !($^O eq 'VMS')) { |
10 | print "1..0\n"; |
11 | exit 0; |
12 | } |
13 | } |
14 | |
15 | print "1..13\n"; |
16 | |
17 | use IO::File; |
18 | |
19 | $tst = IO::File->new("TEST","r") || die("Can't open TEST"); |
20 | |
21 | if ($tst->eof) { print "not ok 1\n"; } else { print "ok 1\n"; } |
22 | |
23 | $firstline = <$tst>; |
24 | $secondpos = tell; |
25 | |
26 | $x = 0; |
27 | while (<$tst>) { |
28 | if (eof) {$x++;} |
29 | } |
30 | if ($x == 1) { print "ok 2\n"; } else { print "not ok 2\n"; } |
31 | |
32 | $lastpos = tell; |
33 | |
34 | unless (eof) { print "not ok 3\n"; } else { print "ok 3\n"; } |
35 | |
36 | if ($tst->seek(0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; } |
37 | |
38 | if (eof) { print "not ok 5\n"; } else { print "ok 5\n"; } |
39 | |
40 | if ($firstline eq <$tst>) { print "ok 6\n"; } else { print "not ok 6\n"; } |
41 | |
42 | if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; } |
43 | |
44 | if ($tst->seek(0,1)) { print "ok 8\n"; } else { print "not ok 8\n"; } |
45 | |
46 | if ($tst->eof) { print "not ok 9\n"; } else { print "ok 9\n"; } |
47 | |
48 | if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; } |
49 | |
50 | if ($tst->seek(0,2)) { print "ok 11\n"; } else { print "not ok 11\n"; } |
51 | |
52 | if ($lastpos == $tst->tell) { print "ok 12\n"; } else { print "not ok 12\n"; } |
53 | |
54 | unless (eof) { print "not ok 13\n"; } else { print "ok 13\n"; } |