Actually test the important \n/\r\n case.

Author: jnthn

t/moar/03-line-seps.t

@@ -2,7 +2,7 @@
 
 # Test nqp::op line reading operations.
 
-plan(12);
+plan(18);
 
 my $test-file := 'line-seps-test-file';
 
@@ -49,3 +49,25 @@ my $test-file := 'line-seps-test-file';
 
     nqp::unlink($test-file);
 }
+
+{
+    my $wfh := nqp::open($test-file, 'w');
+    nqp::printfh($wfh, "abc\ndef\r\nghi");
+    nqp::closefh($wfh);
+
+    my $rfh := nqp::open($test-file, 'r');
+    nqp::setinputlineseps($rfh, nqp::list_s("\n", "\r\n"));
+    ok(nqp::readlinefh($rfh) eq "abc\n", '\n separator used');
+    ok(nqp::readlinefh($rfh) eq "def\r\n", '\r\n separator used');
+    ok(nqp::readlinefh($rfh) eq "ghi", 'final read to end of file worked');
+    nqp::closefh($rfh);
+
+    $rfh := nqp::open($test-file, 'r');
+    nqp::setinputlineseps($rfh, nqp::list_s("\n", "\r\n"));
+    ok(nqp::readlinechompfh($rfh) eq "abc", '\n separator used and chomped');
+    ok(nqp::readlinechompfh($rfh) eq "def", '\r\n separator used and chomped');
+    ok(nqp::readlinechompfh($rfh) eq "ghi", 'final read to end of file worked');
+    nqp::closefh($rfh);
+
+    nqp::unlink($test-file);
+}