Tests for RT #125543.

Raku · Nov 12, 2015 · 0416b13 · 0416b13
1 parent 82c7b6b
commit 0416b13
Showing 1 changed file with 33 additions and 1 deletion.
diff --git a/S02-literals/quoting.t b/S02-literals/quoting.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 178;
+plan 180;
 
 my $foo = "FOO";
 my $bar = "BAR";
@@ -602,4 +602,36 @@ is q :heredoc :w "EOF", <omg wtf bbq amazing cat>, ':w applied after :heredoc ha
     amazing cat
     EOF
 
+# RT #125543
+{
+    my $warned = 0;
+    EVAL Q:to/CODE_END/;
+        my $here = qq:to/END_TEXT/;
+        foo\nbar
+        END_TEXT
+    CODE_END
+    CONTROL {
+        when CX::Warn {
+            $warned = 1;
+            .resume;
+        }
+    }
+    nok $warned, '\n in a heredoc does not factor into dedenting';
+}
+{
+    my $warned = 0;
+    EVAL Q:to/CODE_END/;
+        my $here = qq:to/END_TEXT/;
+        foo\r\nbar
+        END_TEXT
+    CODE_END
+    CONTROL {
+        when CX::Warn {
+            $warned = 1;
+            .resume;
+        }
+    }
+    nok $warned, '\r\n in a heredoc does not factor dedenting';
+}
+
 # vim: ft=perl6