Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

rakudo unfudges for <a::b> style subrule calls

  • Loading branch information...
commit 1a05c3dfadc9dfac8613e057f539d2d47f7257d5 1 parent a685a14
@moritz moritz authored
View
5 S05-grammar/inheritance.t
@@ -12,7 +12,6 @@ grammar Grammar::Foo {
token foo { 'foo' };
};
-#?rakudo skip '<a::b>'
#?niecza skip 'Cannot dispatch to a method on Foo because it is not inherited or done by Cursor'
is(~('foo' ~~ /^<Grammar::Foo::foo>$/), 'foo', 'got right match (foo)');
ok Grammar::Foo.parse('foo'), 'got the right match through .parse TOP';
@@ -28,12 +27,9 @@ isa_ok Grammar::Foo, Grammar, 'grammar isa Grammar';
isa_ok Grammar::Bar, Grammar, 'inherited grammar still isa Grammar';
isa_ok Grammar::Bar, Grammar::Foo, 'child isa parent';
-#?rakudo skip '<a::b>'
#?niecza 4 skip 'Cannot dispatch to a method on Bar because it is not inherited or done by Cursor'
is(~('bar' ~~ /^<Grammar::Bar::bar>$/), 'bar', 'got right match (bar)');
-#?rakudo skip 'directly calling inherited grammar rule (RT 65474)'
is(~('foo' ~~ /^<Grammar::Bar::foo>$/), 'foo', 'got right match (foo)');
-#?rakudo 2 skip '<a::b>'
is(~('foo' ~~ /^<Grammar::Bar::any>$/), 'foo', 'got right match (any)');
is(~('bar' ~~ /^<Grammar::Bar::any>$/), 'bar', 'got right match (any)');
@@ -51,7 +47,6 @@ grammar Grammar::Baz is Grammar::Bar {
token any { <foo> | <bar> | <baz> };
};
-#?rakudo 6 skip '<a::b>'
#?niecza 6 skip 'Cannot dispatch to a method on Baz because it is not inherited or done by Cursor'
is(~('baz' ~~ /^<Grammar::Baz::baz>$/), 'baz', 'got right match');
is(~('foo' ~~ /^<Grammar::Baz::foo>$/), 'foo', 'got right match');
View
1  S05-match/positions.t
@@ -28,7 +28,6 @@ ok($str !~~ m/ Z .+ a /, 'No match');
nok($/.from.defined, 'Match pos is undefined');
my regex Aa { A .* a }
-#?rakudo 3 skip 'lexical lookup of <Aa>'
ok($str ~~ m/ .*? <Aa> /, 'Subrule match from 3');
ok($/.from == 0, 'Full match pos is 0');
ok($/<Aa>.from == 3, 'Subrule match pos is 3');
View
1  S05-metasyntax/regex.t
@@ -56,7 +56,6 @@ lives_ok { my Regex $x = rx/foo/ }, 'Can store regexes in typed variables';
eval_lives_ok('regex baz {qux}', 'regex foo {...} is valid');
}
-#?rakudo skip 'lexical lookup of regexes'
{
my regex alien { ET };
my token archaeologist { Indiana };
View
1  S05-metasyntax/unknown.t
@@ -17,7 +17,6 @@ lives_ok({"aa!" ~~ /'a'/}, 'quoted "a" is valid');
# used to be a pugs bug
-#?rakudo skip 'calling <foo> from outer scopes'
{
my rule foo { \{ };
ok '{' ~~ /<foo>/, '\\{ in a rule (+)';
Please sign in to comment.
Something went wrong with that request. Please try again.