Skip to content

HTTPS clone URL

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
View
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.