Correct a test to also work on Windows.

Raku · Oct 10, 2013 · ee57fd9 · ee57fd9
1 parent 2fda98b
commit ee57fd9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/nqp/19-file-ops.t b/t/nqp/19-file-ops.t
@@ -17,8 +17,8 @@ my $credits := nqp::open('CREDITS', 'r');
 ok( $credits, 'nqp::open for read');
 ok( nqp::tellfh($credits) == 0, 'nqp::tellfh start of file');
 my $line := nqp::readlinefh($credits);
-ok( nqp::chars($line) == 5, 'nqp::readlinefh line to read'); # =pod\n
-ok( nqp::tellfh($credits) == 5, 'nqp::tellfh line two');
+ok( nqp::chars($line) == 5 || nqp::chars($line) == 6, 'nqp::readlinefh line to read'); # =pod\r?\n
+ok( nqp::tellfh($credits) == 5 || nqp::tellfh($credits) == 6, 'nqp::tellfh line two');
 my $rest := nqp::readallfh($credits);
 ok( nqp::chars($rest) > 100, 'nqp::readallfh lines to read');
 ok( nqp::tellfh($credits) == nqp::chars($line) + nqp::chars($rest), 'nqp::tellfh end of file');