From: Tomas Doran <bobtfish@bobtfish.net>
Date: Thu, 15 May 2008 23:12:15 +0000 (+0000)
Subject: Failing test for Immutable issue (found by trying to feed immutable classes to MooseX... 
X-Git-Tag: 0_55~174
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f33d97fce95fd0fec3be3933c04d52c2de2f889;p=gitmo%2FMoose.git

Failing test for Immutable issue (found by trying to feed immutable classes to MooseX::Storage) as discussed earlier on list
---

diff --git a/t/300_immutable/001_immutable_moose.t b/t/300_immutable/001_immutable_moose.t
index 77df718..026d516 100644
--- 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";
 
 
-
 }
 
 {