add << #comment >> tests suggested by literal++

Raku · Feb 14, 2015 · 93b3e92 · 93b3e92
1 parent 2c3817c
commit 93b3e92
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/S02-literals/quoting.t b/S02-literals/quoting.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 170;
+plan 174;
 
 my $foo = "FOO";
 my $bar = "BAR";
@@ -241,7 +241,15 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     # L<S02/Adverbs on quotes/"the built-in «...» quoter automatically does interpolation equivalent to qq:ww/.../">
     is(~@q3, 'FOO gorch BAR', ", texas quotes");
     is(~@q4, 'FOO gorch BAR', ", and long form");
-};
+}
+
+#?rakudo todo "comments inside qq:ww NYI"
+{
+    is (try EVAL "« one #'[[[comment]]] two »"), "one two", "«» handles embedded comments";
+    is (try EVAL "« one #'«comment» two »"), "one two", "«» handles embedded comments containing french quotes";
+    is (try EVAL "<< one #'<<comment>> two >>"), "one two", "<<>> handles embedded comments containing texas quotes";
+    is (try EVAL "« one #comment\n two »"), "one two", "«» handles line-end comments";
+}
 
 {
     my $rt65654 = 'two words';