Add tests for quote starter being escapable

Raku · Apr 19, 2014 · b6097eb · b6097eb
1 parent 637d31a
commit b6097eb
Showing 1 changed file with 7 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 156;
+plan 159;
 
 my $foo = "FOO";
 my $bar = "BAR";
@@ -577,6 +577,12 @@ is <<<\>'n'>>.join('|'), '<>|n', 'texas quotes edge case';
     ok $error ~~ / '\'I\' is not a valid number' /, "\\c followed by non-number";
 }
 
+{
+    eval_dies_ok 'q< < >', "Unmatched openers and closers fails to parse";
+    is q< \> >, " > ", "Escaped closer produces the opener unescaped";
+    is q< \< >, " < ", "Escaped opener produces the opener unescaped";
+}
+
 done;
 
 # vim: ft=perl6