diff options
author | doy <doy@tozt.net> | 2009-04-14 23:48:19 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-14 23:48:19 -0500 |
commit | 934ff0ce3fd0701e86f5435294829d6b306667a1 (patch) | |
tree | 9ce38051d5eacbdf5f3b3230fc21c0b35424a91a /t | |
parent | c30d06653dde603af53fdedbef6789fbbeed2980 (diff) | |
download | moosex-nonmoose-934ff0ce3fd0701e86f5435294829d6b306667a1.tar.gz moosex-nonmoose-934ff0ce3fd0701e86f5435294829d6b306667a1.zip |
add more failing tests
Diffstat (limited to 't')
-rw-r--r-- | t/004-multi-level.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/004-multi-level.t b/t/004-multi-level.t index 2a61d77..5a2b141 100644 --- a/t/004-multi-level.t +++ b/t/004-multi-level.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 7; +use Test::More tests => 11; package Foo; @@ -45,3 +45,11 @@ is $foo_moose_sub->bar, 'BAR', 'Foo::Moose::Sub::bar'; is $foo_moose_sub->baz, 'BAZ', 'Foo::Moose::Sub::baz'; is(Foo::Moose::Sub->meta->get_method('new'), undef, 'Foo::Moose::Sub just uses the constructor for Foo::Moose'); + +Foo::Moose::Sub->meta->make_immutable; +$foo_moose_sub = Foo::Moose::Sub->new; +is $foo_moose_sub->foo, 'FOO', 'Foo::Moose::Sub::foo (immutable)'; +is $foo_moose_sub->bar, 'BAR', 'Foo::Moose::Sub::bar (immutable)'; +is $foo_moose_sub->baz, 'BAZ', 'Foo::Moose::Sub::baz (immutable)'; +isnt(Foo::Moose::Sub->meta->get_method('new'), undef, + 'Foo::Moose::Sub has an inlined constructor'); |