X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F300_immutable%2F001_immutable_moose.t;h=2c89b94373dc1fb8f549f23f28bbbb63c86db354;hp=2e1f74c8cd24ac650e55ca13d061e6ec2331772e;hb=739525d0421188856c45329c8f001e9fbe0b30b2;hpb=fc1d8369f17d2d6a06ecdcb13199e1d4ecb2e53f diff --git a/t/300_immutable/001_immutable_moose.t b/t/300_immutable/001_immutable_moose.t index 2e1f74c..2c89b94 100644 --- a/t/300_immutable/001_immutable_moose.t +++ b/t/300_immutable/001_immutable_moose.t @@ -6,6 +6,8 @@ use warnings; use Test::More tests => 15; use Test::Exception; +use lib 't/lib'; +use Test::Mouse; # Mouse::Meta::Module->version use Mouse::Meta::Role; @@ -41,11 +43,10 @@ use Mouse::Meta::Role; is( Foo->new->bazes, 'many bazes', "correct value for 'bazes' before inlining constructor" ); lives_ok { $meta->make_immutable } "Foo is imutable"; - SKIP: { - skip "Mouse doesn't supports ->identifier, add_role", 2; - lives_ok { $meta->identifier } "->identifier on metaclass lives"; - dies_ok { $meta->add_role($foo_role) } "Add Role is locked"; - }; + + lives_ok { $meta->identifier } "->identifier on metaclass lives"; + dies_ok { $meta->add_role($foo_role) } "Add Role is locked"; + lives_ok { Foo->new } "Inlined constructor works with lazy_build"; is( Foo->new->foos, 'many foos', "correct value for 'foos' after inlining constructor" );