Skip to content

Commit b6a4562

Browse files
committed
nqp::eoffh is only trueish when we read *past* eof
At least, that is the point we can be sure about it.
1 parent 45b8191 commit b6a4562

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

t/nqp/19-file-ops.t

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
# Test nqp::op file operations.
44

5-
plan(57);
5+
plan(56);
66

77
ok( nqp::stat('CREDITS', nqp::const::STAT_EXISTS) == 1, 'nqp::stat exists');
88
ok( nqp::stat('AARDVARKS', nqp::const::STAT_EXISTS) == 0, 'nqp::stat not exists');
@@ -24,7 +24,6 @@ ok( nqp::chars($line) == 5 || nqp::chars($line) == 6, 'nqp::readlinefh line to r
2424
ok( nqp::tellfh($credits) == 5 || nqp::tellfh($credits) == 6, 'nqp::tellfh line two');
2525
my $rest := nqp::readallfh($credits);
2626
ok( nqp::chars($rest) > 100, 'nqp::readallfh lines to read');
27-
ok( nqp::eoffh($credits), 'handle now at EOF');
2827
ok( nqp::tellfh($credits) == nqp::chars($line) + nqp::chars($rest), 'nqp::tellfh end of file');
2928

3029
ok( nqp::chars(nqp::readlinefh($credits)) == 0, 'nqp::readlinefh end of file');

0 commit comments

Comments
 (0)