Permalink
Browse files

[t] merge braces_in_rules.t into spec/S05-metasyntax/unknown.t

git-svn-id: http://svn.pugscode.org/pugs@27402 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 3e06152 commit fc2d82ce89ec1f1307c3bc141fb363ce650a0901 moritz committed Jul 4, 2009
Showing with 9 additions and 1 deletion.
  1. +9 −1 S05-metasyntax/unknown.t
View
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 6;
+plan 8;
# L<S05/Simplified lexical parsing of patterns/not all non-identifier glyphs are currently meaningful as metasyntax>
@@ -14,3 +14,11 @@ lives_ok({"aa!" ~~ /'!'/}, 'quoted "!" is valid');
eval_dies_ok('"aa!" ~~ /\a/', 'escaped "a" is not valid metasyntax');
lives_ok({"aa!" ~~ /a/}, '"a" is valid');
lives_ok({"aa!" ~~ /'a'/}, 'quoted "a" is valid');
+
+# used to be a pugs bug
+
+rule foo { \{ };
+ok '{' ~~ /<foo>/, '\\{ in a rule (+)';
+ok '!' !~~ /<foo>/, '\\{ in a rule (-)';
+
+# vim: ft=perl6

0 comments on commit fc2d82c

Please sign in to comment.