diff options
author | Hans Dieter Pearcey <hdp@weftsoar.net> | 2009-05-11 11:58:06 -0700 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-05-12 22:48:45 -0500 |
commit | ccb6255a4b4416d5257c7d2275fe0c945f58ecef (patch) | |
tree | 405c02b402aff2fab6de8f60d07540605c3fb7ca /t | |
parent | cd6b831bc983387f5b7fadd4684db16dfaf10394 (diff) | |
download | moosex-nonmoose-ccb6255a4b4416d5257c7d2275fe0c945f58ecef.tar.gz moosex-nonmoose-ccb6255a4b4416d5257c7d2275fe0c945f58ecef.zip |
failing test for MXIO+MXNM
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)'); |