Permalink
Browse files

Add some more <( and )> tests.

  • Loading branch information...
1 parent de9fa2b commit baf17a461a39d29142af11c6c4b0d8ea12b1e76b @pmichaud pmichaud committed Jul 7, 2012
Showing with 5 additions and 1 deletion.
  1. +5 −1 S05-metasyntax/angle-brackets.t
View
6 S05-metasyntax/angle-brackets.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 76;
+plan 79;
=begin pod
@@ -282,6 +282,10 @@ character classes), and those are referenced at the correct spot.
is('foo456bar' ~~ /foo <(\d+ bar/, '456bar', '<( match');
is('foo789bar' ~~ /foo \d+)> bar/, 'foo789', ')> match');
ok(!('foo123' ~~ /foo <(\d+)> bar/), 'non-matching <(...)>');
+
+ is('foo123bar' ~~ /foo <( bar || ....../, 'foo123', '<( in backtracking');
+ is('foo123bar' ~~ /foo <( 123 <( bar/, 'bar', 'multiple <(');
+ is('foo123bar' ~~ /foo <( 123 [ <( xyz ]?/, '123', 'multiple <( backtracking');
}
# A « or << token indicates a left word boundary.

0 comments on commit baf17a4

Please sign in to comment.