Move I18N::LangTags from ext/ to dist/
[perl.git] / ext / IO / t / io_tell.t
1 #!./perl
2
3 BEGIN {
4     $tell_file = "Makefile.PL";
5 }
6
7 use Config;
8
9 BEGIN {
10     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
11         print "1..0\n";
12         exit 0;
13     }
14 }
15
16 print "1..13\n";
17
18 use IO::File;
19
20 $tst = IO::File->new("$tell_file","r") || die("Can't open $tell_file");
21 binmode $tst; # its a nop unless it matters. Was only if ($^O eq 'MSWin32' or $^O eq 'dos');
22 if ($tst->eof) { print "not ok 1\n"; } else { print "ok 1\n"; }
23
24 $firstline = <$tst>;
25 $secondpos = tell;
26
27 $x = 0;
28 while (<$tst>) {
29     if (eof) {$x++;}
30 }
31 if ($x == 1) { print "ok 2\n"; } else { print "not ok 2\n"; }
32
33 $lastpos = tell;
34
35 unless (eof) { print "not ok 3\n"; } else { print "ok 3\n"; }
36
37 if ($tst->seek(0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; }
38
39 if (eof) { print "not ok 5\n"; } else { print "ok 5\n"; }
40
41 if ($firstline eq <$tst>) { print "ok 6\n"; } else { print "not ok 6\n"; }
42
43 if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; }
44
45 if ($tst->seek(0,1)) { print "ok 8\n"; } else { print "not ok 8\n"; }
46
47 if ($tst->eof) { print "not ok 9\n"; } else { print "ok 9\n"; }
48
49 if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; }
50
51 if ($tst->seek(0,2)) { print "ok 11\n"; } else { print "not ok 11\n"; }
52
53 if ($lastpos == $tst->tell) { print "ok 12\n"; } else { print "not ok 12\n"; }
54
55 unless (eof) { print "not ok 13\n"; } else { print "ok 13\n"; }