Update tests to cope with newline translation.

S15-nfg/crlf-encoding.t

@@ -21,9 +21,11 @@ for <utf-8 ascii latin-1 windows-1252> -> $encoding {
     }
     is $temp-file.IO.s, 12, "Wrote file of correct length ($encoding)";
 
-    given open($temp-file, :r, enc => $encoding, :!chomp) {
-        is .get.chars, 5, "Read file and got expected number of chars ($encoding)";
-        is .get, "boat\r\n", "Chars read from file were correct ($encoding)";
+    given open($temp-file, :r, :bin) {
+        my $buf = .read(12);
+        my $str = $buf.decode($encoding);
+        is $str.chars, 10, "Read file and got expected number of chars ($encoding)";
+        is $str, "goat\r\nboat\r\n", "Chars read from file were correct ($encoding)";
         .close;
     }
 }

S16-io/comb.t

@@ -23,9 +23,9 @@ sub test-comb($text,@result,|c) {
 }
 
 # standard text file
-for "\r\n", /\r\n/ -> $sep {
-    my $text  = "zero\r\none\r\ntwo\r\nthree\r\nfour";
-    my @clean = "\r\n" xx 4;
+for "\n", /\n/ -> $sep {
+    my $text  = "zero\none\ntwo\nthree\nfour";
+    my @clean = "\n" xx 4;
     test-comb($text,@clean,$sep);
 }
 

S16-io/lines.t

@@ -3,7 +3,6 @@ use Test;
 
 my @endings =
   "\n"               => "LF",
-  "\r\n"             => "CRLF",
   "\r"               => "CR",
   ";"                => "semi-colon",
   ":\n:"             => "colons",

S16-io/split.t

@@ -22,8 +22,8 @@ sub test-split($text,@result,|c) {
 }
 
 # standard text file
-for "\r\n", /\r\n/ -> $sep {
-    my $text  = "zero\r\none\r\ntwo\r\nthree\r\nfour";
+for "\n", /\n/ -> $sep {
+    my $text  = "zero\none\ntwo\nthree\nfour";
     my @clean = <zero one two three four>;
     test-split($text,@clean,$sep);
 }

S32-io/slurp.t

@@ -17,7 +17,7 @@ plan 17;
 }
 
 my $test-path = "tempfile-slurp-test";
-my $test-contents = "0123456789\nABCDEFG\n風, 薔薇, バズ\n";
+my $test-contents = "0123456789ABCDEFG風, 薔薇, バズ";
 my $empty-path = "tempfile-slurp-empty";
 
 { # write the temp files
@@ -58,15 +58,15 @@ is slurp($empty-path), '', "empty files yield empty string";
     is slurp($test-path, :enc('utf8')), $test-contents, "utf8 looks normal";
     #mojibake time
     is slurp($test-path, enc=>'iso-8859-1'),
-     "0123456789\nABCDEFG\n風, 薔薇, バズ\n", "iso-8859-1 makes mojibake correctly";
+     "0123456789ABCDEFG風, 薔薇, バズ", "iso-8859-1 makes mojibake correctly";
 
 }
 
 
 # slurp in list context
 
 my @slurped_lines = lines(open($test-path));
-is +@slurped_lines, 3, "lines() - exactly 3 lines in this file";
+is +@slurped_lines, 1, "lines() - exactly 1 line in this file";
 
 # slurp in list context on a directory
 {