diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/032-moosex-insideout.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/032-moosex-insideout.t b/t/032-moosex-insideout.t index ea78cf8..200b343 100644 --- a/t/032-moosex-insideout.t +++ b/t/032-moosex-insideout.t @@ -5,7 +5,7 @@ use Test::More; BEGIN { eval "use MooseX::InsideOut ()"; plan skip_all => "MooseX::InsideOut is required for this test" if $@; - plan tests => 8; + plan tests => 10; } BEGIN { @@ -59,6 +59,9 @@ sub BUILDARGS { return $self->SUPER::BUILDARGS(@_); } +package Foo::Moose::Sub; +use base 'Foo::Moose'; + package main; my $foo = Foo::Moose->new('FOO', bar => 'BAR'); is($foo->foo, 'FOO', 'base class accessor works'); @@ -67,6 +70,8 @@ $foo->foo('OOF'); $foo->bar('RAB'); is($foo->foo, 'OOF', 'base class accessor works (setting)'); is($foo->bar, 'RAB', 'subclass accessor works (setting)'); +my $sub_foo = Foo::Moose::Sub->new(FOO => bar => 'AHOY'); +is($sub_foo->bar, 'AHOY', 'subclass constructor works'); Foo::Moose->meta->make_immutable; $foo = Foo::Moose->new('FOO', bar => 'BAR'); is($foo->foo, 'FOO', 'base class accessor works (immutable)'); @@ -75,3 +80,5 @@ $foo->foo('OOF'); $foo->bar('RAB'); is($foo->foo, 'OOF', 'base class accessor works (setting) (immutable)'); is($foo->bar, 'RAB', 'subclass accessor works (setting) (immutable)'); +$sub_foo = Foo::Moose::Sub->new(FOO => bar => 'AHOY'); +is($sub_foo->bar, 'AHOY', 'subclass constructor works (immutable)'); |