make sure accessors are properly removed on reinitialize

[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 c47163c..92c5f8a 100644 (file)
--- a/t/071_immutable_w_custom_metaclass.t
+++ b/t/071_immutable_w_custom_metaclass.t
@@ -4,7 +4,7 @@ use warnings;
 use FindBin;
 use File::Spec::Functions;
 
-use Test::More tests => 14;
+use Test::More;
 use Test::Exception;
 use Scalar::Util;
 
@@ -40,17 +40,17 @@ use lib catdir( $FindBin::Bin, 'lib' );
         shift->meta->mymetaclass_attributes;
     }
 
-    ::lives_ok{ Baz->meta->superclasses('Bar');
-        } '... we survive the metaclass incompatibility test';
+    ::lives_ok{ Baz->meta->superclasses('Bar') }
+        '... we survive the metaclass incompatibility test';
 }
 
 {
     my $meta = Baz->meta;
     ok( $meta->is_mutable, '... Baz is mutable' );
-    isnt(
+    is(
         Scalar::Util::blessed( Foo->meta ),
         Scalar::Util::blessed( Bar->meta ),
-        'Foo and Bar immutable metaclasses do not match'
+        'Foo and Bar immutable metaclasses match'
     );
     is( Scalar::Util::blessed($meta), 'MyMetaClass',
         'Baz->meta blessed as MyMetaClass' );
@@ -71,3 +71,5 @@ use lib catdir( $FindBin::Bin, 'lib' );
     lives_ok { $meta->make_mutable } "Baz is now mutable";
     ok( $meta->is_mutable, '... Baz is mutable again' );
 }
+
+done_testing;