Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Correct misunderstanding of the spec in the tests. Unfudging for Rakudo.

  • Loading branch information...
commit e53b22877964775667c8b0a86bc03ffbe716cc44 1 parent 7372a63
@jnthn jnthn authored
Showing with 2 additions and 4 deletions.
  1. +2 −4 S05-metasyntax/angle-brackets.t
6 S05-metasyntax/angle-brackets.t
@@ -137,18 +137,16 @@ character classes), and those are referenced at the correct spot.
# A leading $ indicates an indirect subrule. The variable must contain
# either a Regex object, or a string to be compiled as the regex.
-#?rakudo skip 'indirect subrule call not implemented'
my $rule = rx/bar/;
my $str = 'qwe';
ok('bar' ~~ /<$rule>/, '<$whatever> subrule (Regex, 1)');
ok('qwer' ~~ /<$str>/, '<$whatever> subrule (String, 1)');
- # The assertion is not captured.
#?niecza todo 'the assertion is not captured'
- is('abar' ~~ /a<$rule>/, 'a', '<$whatever> subrule (Regex, 2)');
+ is('abar' ~~ /a<$rule>/, 'abar', '<$whatever> subrule (Regex, 2)');
#?niecza todo 'the assertion is not captured'
- is('qwer' ~~ /<$str>r/, 'r', '<$whatever> subrule (String, 2)');
+ is('qwer' ~~ /<$str>r/, 'qwer', '<$whatever> subrule (String, 2)');
# A leading :: indicates a symbolic indirect subrule
Please sign in to comment.
Something went wrong with that request. Please try again.