Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Add some more <( and )> tests.

  • Loading branch information...
commit baf17a461a39d29142af11c6c4b0d8ea12b1e76b 1 parent de9fa2b
Patrick R. Michaud pmichaud authored

Showing 1 changed file with 5 additions and 1 deletion. Show diff stats Hide diff stats

  1. +5 1 S05-metasyntax/angle-brackets.t
6 S05-metasyntax/angle-brackets.t
... ... @@ -1,7 +1,7 @@
1 1 use v6;
2 2 use Test;
3 3
4   -plan 76;
  4 +plan 79;
5 5
6 6 =begin pod
7 7
@@ -282,6 +282,10 @@ character classes), and those are referenced at the correct spot.
282 282 is('foo456bar' ~~ /foo <(\d+ bar/, '456bar', '<( match');
283 283 is('foo789bar' ~~ /foo \d+)> bar/, 'foo789', ')> match');
284 284 ok(!('foo123' ~~ /foo <(\d+)> bar/), 'non-matching <(...)>');
  285 +
  286 + is('foo123bar' ~~ /foo <( bar || ....../, 'foo123', '<( in backtracking');
  287 + is('foo123bar' ~~ /foo <( 123 <( bar/, 'bar', 'multiple <(');
  288 + is('foo123bar' ~~ /foo <( 123 [ <( xyz ]?/, '123', 'multiple <( backtracking');
285 289 }
286 290
287 291 # A « or << token indicates a left word boundary.

0 comments on commit baf17a4

Please sign in to comment.
Something went wrong with that request. Please try again.