summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorHans Dieter Pearcey <hdp@weftsoar.net>2009-05-11 11:58:06 -0700
committerJesse Luehrs <doy@tozt.net>2009-05-12 22:48:45 -0500
commitccb6255a4b4416d5257c7d2275fe0c945f58ecef (patch)
tree405c02b402aff2fab6de8f60d07540605c3fb7ca /t
parentcd6b831bc983387f5b7fadd4684db16dfaf10394 (diff)
downloadmoosex-nonmoose-ccb6255a4b4416d5257c7d2275fe0c945f58ecef.tar.gz
moosex-nonmoose-ccb6255a4b4416d5257c7d2275fe0c945f58ecef.zip
failing test for MXIO+MXNM
Diffstat (limited to 't')
-rw-r--r--t/032-moosex-insideout.t9
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)');