# 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");
--
<Schwern> What we learned was if you get confused, grab someone and swing
them around a few times
-- Life's lessons from square dancing
