#!/usr/bin/pugs
use v6;
use Test;
plan 26;
class Foo {
has $.bar is rw;
method baz { return 'Foo::baz' }
method getme($self:) returns Foo { return $self }
}
class Foo::Bar is Foo {
has $.bar2 is rw;
method baz { return 'Foo::Bar::baz' }
method fud { return 'Foo::Bar::fud' }
method super_baz ($self:) { return $self.Foo::baz() }
}
my $foo_bar = Foo::Bar.new();
isa_ok($foo_bar, 'Foo::Bar');
is($foo_bar.bar2(), undef, '... we have our autogenerated accessor');
is($foo_bar.bar(), undef, '... we inherited the superclass autogenerated accessor');
lives_ok {
$foo_bar.bar = 'BAR';
}, '... our inherited the superclass autogenerated accessor is rw';
is($foo_bar.bar(), 'BAR', '... our inherited the superclass autogenerated accessor is rw');
lives_ok {
$foo_bar.bar2 = 'BAR2';
}, '... our autogenerated accessor is rw';
is($foo_bar.bar2(), 'BAR2', '... our autogenerated accessor is rw');
is($foo_bar.baz(), 'Foo::Bar::baz', '... our subclass overrides the superclass method');
is($foo_bar.super_baz(), 'Foo::baz', '... our subclass can still access the superclass method through Foo::');
is($foo_bar.fud(), 'Foo::Bar::fud', '... sanity check on uninherited method');
is($foo_bar.getme, $foo_bar, 'can call inherited methods');
is($foo_bar.getme.baz, "Foo::Bar::baz", 'chained method dispatch on altered method', :todo<bug>);
my $fud;
lives_ok {
$fud = $foo_bar.getme.fud;
}, 'chained method dispatch on altered method', :todo<bug>;
is($fud, "Foo::Bar::fud", "returned value is correct", :todo<bug>);
# See thread "Quick OO .isa question" on p6l started by Ingo Blechschmidt:
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22220">
ok Foo::Bar.isa(Foo), "subclass.isa(superclass) is true";
ok Foo::Bar.isa(Foo::Bar), "subclass.isa(same_subclass) is true";
ok Foo::Bar.isa(Class), "subclass.isa(Class) is false", :todo<feature>;
ok Foo::Bar.does(Class), "subclass.does(Class) is true", :todo<feature>;
ok !Foo::Bar.does(::CLASS), "subclass.does(CLASS) is false";
ok !Foo::Bar.isa(::CLASS), "subclass.isa(CLASS) is false";
ok !Foo::Bar.meta.isa(Foo), "subclass.meta.isa(superclass) is false", :todo<bug>;
ok !Foo::Bar.meta.isa(Foo::Bar), "subclass.meta.isa(same_subclass) is false", :todo<bug>;
ok !Foo::Bar.meta.isa(Class), "subclass.meta.isa(Class) is false";
ok !Foo::Bar.meta.does(Class), "subclass.meta.does(Class) is false";
ok !Foo::Bar.meta.isa(::CLASS), "subclass.meta.isa(CLASS) is false";
ok Foo::Bar.meta.does(::CLASS), "subclass.meta.does(CLASS) is true", :todo<feature>;