Failing test for Immutable issue (found by trying to feed immutable classes to MooseX...

diff --git a/t/300_immutable/001_immutable_moose.t b/t/300_immutable/001_immutable_moose.t
index 77df718..026d516 100644 (file)
--- a/t/300_immutable/001_immutable_moose.t
+++ b/t/300_immutable/001_immutable_moose.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 16;
+use Test::More tests => 17;
 use Test::Exception;
 
 BEGIN {
@@ -40,6 +40,7 @@ BEGIN {
   is(Foo->new->bars, 'many bars'        , "correct value for 'bars'  before inlining constructor");
   is(Foo->new->bazes, 'many bazes'      , "correct value for 'bazes' before inlining constructor");
   lives_ok{ $meta->make_immutable       } "Foo is imutable";
+  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");
@@ -49,7 +50,6 @@ BEGIN {
   lives_ok{ $meta->add_role($foo_role)  } "Add Role is unlocked";
 
 
-
 }
 
 {