Remove no-longer-needed line endings hack.

integration/advent2013-day04.t

@@ -3,9 +3,7 @@ use Test;
 
 plan 7;
 
-sub un-r($str) { $str.subst("\r\n", "\n", :g) }
-
-is un-r(q:to"FIN"), "Hello again.\n", 'basic heredoc with :to';
+is q:to"FIN", "Hello again.\n", 'basic heredoc with :to';
 Hello again.
 FIN
 
@@ -15,7 +13,7 @@ HELLO WORLD noend
 
 throws-like { $str.EVAL }, Exception, 'Runaway multiline is an error, no exception object yet';
 
-is un-r(q:to[finished]), "  Hello there\n    everybody\n", "indention of heredocs
+is q:to[finished], "  Hello there\n    everybody\n", "indention of heredocs
 (1)";
   Hello there
     everybody
@@ -36,7 +34,7 @@ is $first, $second, "Indention stripped to end delimiter indention";
 my $dlrs = 21;
 my $cnts = 18;
 
-is un-r(q:to/EOF/).chop, '$dlrs dollars and {$cnts} cents.', 'no interpolation by
+is q:to/EOF/.chop, '$dlrs dollars and {$cnts} cents.', 'no interpolation by
 default';
 $dlrs dollars and {$cnts} cents.
 EOF
@@ -45,6 +43,6 @@ is q:to:c/EOF/.chop, '$dlrs dollars and 18 cents.', ':c enables closure compilat
 $dlrs dollars and {$cnts} cents.
 EOF
 
-is un-r(qq:to/EOF/).chop, '21 dollars and 18 cents.', 'heredocs with qq interpolate';
+is qq:to/EOF/.chop, '21 dollars and 18 cents.', 'heredocs with qq interpolate';
 $dlrs dollars and {$cnts} cents.
 EOF