diff options
| -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'); |