Thank you, applied as r21575 in the pugs repository, where the tests are hosted.
I see that you have a commit bit for the pugs repository already, so if you feel confident, go ahead and check in changes by yourself. Cheers, Moritz Michael G Schwern (via RT) wrote: > # New Ticket Created by Michael G Schwern > # Please include the string: [perl #57318] > # in the subject line of all future correspondence about this issue. > # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57318 > > > > The "value can be used for attribute name in derived classes" is passing on > my > machine. Remove the TODO flag. > > > Index: t/spec/S12-class/inheritance.t > =================================================================== > --- t/spec/S12-class/inheritance.t (revision 21559) > +++ t/spec/S12-class/inheritance.t (working copy) > @@ -43,12 +43,13 @@ > > #?rakudo skip 'stringification of objects' > is($foo_bar.getme, $foo_bar, 'can call inherited methods'); > -#?rakudo 4 todo 'various oo bugs' > +#?rakudo todo 'various oo bugs' > is($foo_bar.getme.baz, "Foo::Bar::baz", 'chained method dispatch on altered > method'); > > is($foo_bar.value, undef, 'value can be used for attribute name in derived > classes'); > my $fud; > > +#?rakudo 2 todo 'various oo bugs' > lives_ok { $fud = $foo_bar.getme.fud }, 'chained method dispatch on altered > method'; > is($fud, "Foo::Bar::fud", "returned value is correct"); > > > -- Moritz Lenz http://moritz.faui2k3.org/ | http://perl-6.de/
