t/oo/class/basic.t path for class Foo::Bar {} failure

0 views
Skip to first unread message

Stevan Little

unread,
May 11, 2005, 5:11:33 PM5/11/05
to perl6-c...@perl.org
Index: t/oo/class/basic.t
===================================================================
--- t/oo/class/basic.t (revision 2970)
+++ t/oo/class/basic.t (working copy)
@@ -21,6 +21,11 @@
my $foo_clone = $foo.clone();
ok($foo_clone ~~ Foo, '... smartmatch our $foo_clone to the Foo
class');

+eval 'class Foo::Bar {}';
+
+my $foo_bar = eval 'Foo::Bar.new()';
+eval_ok('$foo_bar ~~ Foo::Bar', '... smartmatch our $foo_bar to the
Foo::Bar class');
+
# L<S12/"Classes" /An \"isa\" is just a trait that happens to be
another class\:/>

eval 'class Bar is Foo {}';

Autrijus Tang

unread,
May 11, 2005, 5:32:15 PM5/11/05
to Stevan Little, perl6-c...@perl.org
Thanks, both yours and Shillo's tests are applied (and implemented).

/Autrijus/

Reply all
Reply to author
Forward
0 new messages