Explicitly die if get_all_package_symbols is called as a class method

[gitmo/Class-MOP.git] / t / 071_immutable_w_custom_metaclass.t

diff --git a/t/071_immutable_w_custom_metaclass.t b/t/071_immutable_w_custom_metaclass.t
index 7624b6b..ad7638c 100644 (file)
--- a/t/071_immutable_w_custom_metaclass.t
+++ b/t/071_immutable_w_custom_metaclass.t
@@ -3,39 +3,64 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
+use FindBin;
+use File::Spec::Functions;
+
+use Test::More tests => 15;
 use Test::Exception;
+use Scalar::Util;
 
 BEGIN {
     use_ok('Class::MOP');
 }
 
+use lib catdir($FindBin::Bin, 'lib');
+
 {
-    package Meta::Baz;
+    package Foo;
+
     use strict;
     use warnings;
-    use base 'Class::MOP::Class';
-}
+    use metaclass;
+
+    __PACKAGE__->meta->make_immutable;
 
-{
     package Bar;
-    
+
     use strict;
     use warnings;
-    use metaclass;           
-    
+    use metaclass;
+
     __PACKAGE__->meta->make_immutable;
-    
+
     package Baz;
-    
+
     use strict;
     use warnings;
-    use metaclass 'Meta::Baz';    
+    use metaclass 'MyMetaClass';
+
+    sub mymetaclass_attributes{
+      shift->meta->mymetaclass_attributes;
+    }
 
     ::lives_ok {
-        Baz->meta->superclasses('Bar');    
+        Baz->meta->superclasses('Bar');
     } '... we survive the metaclass incompatability test';
 }
 
-
-
+{
+    my $meta = Baz->meta;
+    ok($meta->is_mutable, '... Baz is mutable');
+    is(Scalar::Util::blessed(Foo->meta), Scalar::Util::blessed(Bar->meta), 'Foo and Bar immutable metaclasses match');
+    is(Scalar::Util::blessed($meta), 'MyMetaClass', 'Baz->meta blessed as MyMetaClass');
+    ok(Baz->can('mymetaclass_attributes'), '... Baz can do method before immutable');
+    ok($meta->can('mymetaclass_attributes'), '... meta can do method before immutable');
+    lives_ok { $meta->make_immutable } "Baz is now immutable";
+    ok($meta->is_immutable, '... Baz is immutable');
+    isa_ok($meta, 'MyMetaClass', 'Baz->meta');
+    ok(Baz->can('mymetaclass_attributes'), '... Baz can do method after imutable');
+    ok($meta->can('mymetaclass_attributes'), '... meta can do method after immutable');
+    isnt(Scalar::Util::blessed(Baz->meta), Scalar::Util::blessed(Bar->meta), 'Baz and Bar immutable metaclasses are different');
+    lives_ok { $meta->make_mutable } "Baz is now mutable";
+    ok($meta->is_mutable, '... Baz is mutable again');
+}