Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
455ece5e |
3 | # $RCSfile: tell.t,v $$Revision$$Date$ |
8d063cd8 |
4 | |
58c59f01 |
5 | BEGIN { |
6 | chdir 't' if -d 't'; |
7 | @INC = '../lib'; |
8 | } |
9 | |
d26ab924 |
10 | print "1..23\n"; |
8d063cd8 |
11 | |
378cc40b |
12 | $TST = 'tst'; |
13 | |
2986a63f |
14 | $Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'dos' or |
b82baff6 |
15 | $^O eq 'os2' or $^O eq 'mint' or $^O eq 'cygwin'); |
8736538c |
16 | |
2eb25c99 |
17 | open($TST, 'harness') || (die "Can't open harness"); |
8736538c |
18 | binmode $TST if $Is_Dosish; |
8d063cd8 |
19 | if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; } |
20 | |
378cc40b |
21 | $firstline = <$TST>; |
8d063cd8 |
22 | $secondpos = tell; |
23 | |
24 | $x = 0; |
25 | while (<tst>) { |
26 | if (eof) {$x++;} |
27 | } |
28 | if ($x == 1) { print "ok 2\n"; } else { print "not ok 2\n"; } |
29 | |
30 | $lastpos = tell; |
31 | |
32 | unless (eof) { print "not ok 3\n"; } else { print "ok 3\n"; } |
33 | |
378cc40b |
34 | if (seek($TST,0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; } |
8d063cd8 |
35 | |
36 | if (eof) { print "not ok 5\n"; } else { print "ok 5\n"; } |
37 | |
38 | if ($firstline eq <tst>) { print "ok 6\n"; } else { print "not ok 6\n"; } |
39 | |
40 | if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; } |
41 | |
42 | if (seek(tst,0,1)) { print "ok 8\n"; } else { print "not ok 8\n"; } |
43 | |
378cc40b |
44 | if (eof($TST)) { print "not ok 9\n"; } else { print "ok 9\n"; } |
8d063cd8 |
45 | |
46 | if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; } |
47 | |
48 | if (seek(tst,0,2)) { print "ok 11\n"; } else { print "not ok 11\n"; } |
49 | |
50 | if ($lastpos == tell) { print "ok 12\n"; } else { print "not ok 12\n"; } |
51 | |
52 | unless (eof) { print "not ok 13\n"; } else { print "ok 13\n"; } |
455ece5e |
53 | |
54 | if ($. == 0) { print "not ok 14\n"; } else { print "ok 14\n"; } |
55 | |
56 | $curline = $.; |
2eb25c99 |
57 | open(other, 'harness') || (die "Can't open harness: $!"); |
2986a63f |
58 | binmode other if (($^O eq 'MSWin32') || ($^O eq 'NetWare')); |
455ece5e |
59 | |
60 | { |
61 | local($.); |
62 | |
63 | if ($. == 0) { print "not ok 15\n"; } else { print "ok 15\n"; } |
64 | |
65 | tell other; |
66 | if ($. == 0) { print "ok 16\n"; } else { print "not ok 16\n"; } |
67 | |
68 | $. = 5; |
69 | scalar <other>; |
70 | if ($. == 6) { print "ok 17\n"; } else { print "not ok 17\n"; } |
71 | } |
72 | |
73 | if ($. == $curline) { print "ok 18\n"; } else { print "not ok 18\n"; } |
74 | |
75 | { |
76 | local($.); |
77 | |
78 | scalar <other>; |
79 | if ($. == 7) { print "ok 19\n"; } else { print "not ok 19\n"; } |
80 | } |
81 | |
82 | if ($. == $curline) { print "ok 20\n"; } else { print "not ok 20\n"; } |
83 | |
84 | { |
85 | local($.); |
86 | |
87 | tell other; |
88 | if ($. == 7) { print "ok 21\n"; } else { print "not ok 21\n"; } |
89 | } |
d26ab924 |
90 | |
91 | close(other); |
92 | if (tell(other) == -1) { print "ok 22\n"; } else { print "not ok 22\n"; } |
93 | |
94 | if (tell(ether) == -1) { print "ok 23\n"; } else { print "not ok 23\n"; } |
95 | |
96 | # ftell(STDIN) (or any std streams) is undefined, it can return -1 or |
97 | # something else. ftell() on pipes, fifos, and sockets is defined to |
98 | # return -1. |
99 | |