File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -17,8 +17,8 @@ my $credits := nqp::open('CREDITS', 'r');
17
17
ok ( $ credits , ' nqp::open for read' );
18
18
ok ( nqp ::tellfh($ credits ) == 0 , ' nqp::tellfh start of file' );
19
19
my $ line := nqp ::readlinefh($ credits );
20
- ok ( nqp :: chars ($ line ) == 5 , ' nqp::readlinefh line to read' ); # =pod\n
21
- ok ( nqp ::tellfh($ credits ) == 5 , ' nqp::tellfh line two' );
20
+ ok ( nqp :: chars ($ line ) == 5 || nqp :: chars ( $ line ) == 6 , ' nqp::readlinefh line to read' ); # =pod\r? \n
21
+ ok ( nqp ::tellfh($ credits ) == 5 || nqp ::tellfh( $ credits ) == 6 , ' nqp::tellfh line two' );
22
22
my $ rest := nqp ::readallfh($ credits );
23
23
ok ( nqp :: chars ($ rest ) > 100 , ' nqp::readallfh lines to read' );
24
24
ok ( nqp ::tellfh($ credits ) == nqp :: chars ($ line ) + nqp :: chars ($ rest ), ' nqp::tellfh end of file' );
You can’t perform that action at this time.
0 commit comments