Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Corrections to comments and code in what.t; remove a couple of Rakudo…
… todos. Still needs some more fixing though (both to test and to Rakudo).
  • Loading branch information
jnthn committed Aug 8, 2011
1 parent 20e88c0 commit 38ff5f7
Showing 1 changed file with 3 additions and 5 deletions.
8 changes: 3 additions & 5 deletions S12-methods/what.t
Expand Up @@ -43,18 +43,16 @@ This test tests the C<WHAT> builtin.
}
my $o = Foo.new;
is($o."WHAT"(), 'Bar', '."WHAT" calls the method instead of the macro');
#?rakudo todo '.WHAT not (easily overridable)'
is($o.WHAT.gist, 'Foo()', '.WHAT still works as intended');
my $meth = "WHAT";
#?rakudo skip 'indirect method calls'
my $meth = method () { 'Bar' };
is($o.$meth, 'Bar', '.$meth calls the method instead of the macro');
}

# these used to be Rakudo regressions, RT #62006
{
# proto as a term
lives_ok { Match }, 'proto as a term lives';
lives_ok { +Match }, 'numification of proto lives';
lives_ok { Match }, 'type object as a term lives';
lives_ok { +Match }, 'numification of type object lives';
isa_ok ("bac" ~~ /a/).WHAT, Match, '.WHAT on a Match works';
is +("bac" ~~ /a/).WHAT.gist, 0, 'numification of .WHAT of a Match works';
}
Expand Down

0 comments on commit 38ff5f7

Please sign in to comment.