Tests for RT #120788.

Raku · Nov 12, 2015 · 7a7165d · 7a7165d
1 parent eff792a
commit 7a7165d
Showing 1 changed file with 10 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 176;
+plan 178;
 
 my $foo = "FOO";
 my $bar = "BAR";
@@ -593,4 +593,13 @@ is "\c@a", "\0a", '\c@ is a NUL';
     is $res, 1, '<< a b >> does not accidentally flatten into arg list';
 }
 
+# RT #120788
+is q :heredoc :c "EOF", "2+3=5\n", ':c applied after :heredoc has effect';
+    2+3={2+3}
+    EOF
+is q :heredoc :w "EOF", <omg wtf bbq amazing cat>, ':w applied after :heredoc has effect';
+    omg wtf bbq
+    amazing cat
+    EOF
+
 # vim: ft=perl6