3 # test added 29th April 1999 by Paul Johnson (pjcj@transeda.com)
4 # updated 28th May 1999 by Paul Johnson
16 $File =~ s/^t\W+//; # Remove first directory
18 unshift @INC, '../lib' if -d '../lib';
23 BEGIN { plan tests => 12 }
32 $l .= $f->input_line_number;
33 $l .= " $."; # check $. before and after input_line_number
39 open (F, $File) or die $!;
40 my $io = IO::File->new($File) or die $!;
43 ok(lineno($io), "10 0 10");
45 $io->getline for (1 .. 5);
46 ok(lineno($io), "5 5 5");
49 ok(lineno($io), "11 5 11");
52 ok(lineno($io), "6 6 6");
54 $t = tell F; # tell F; provokes a warning
55 ok(lineno($io), "11 6 11");
58 ok(lineno($io), "12 6 12");
61 ok(lineno($io), "12 6 12");
64 ok(lineno($io), "22 6 22");
66 $io->getline for (1 .. 5);
67 ok(lineno($io), "11 11 11");
70 # We used to have problems here before local $. worked.
71 # input_line_number() used to use select and tell. When we did the
72 # same, that mechanism broke. It should work now.
73 ok(lineno($io), "22 11 22");
77 $io->getline for (1 .. 5);
78 ok(lineno($io), "16 16 16");
81 ok(lineno($io), "22 16 22");