one more immutability test (t0m)

[gitmo/Moose.git] / t / 050_metaclasses / 052_metaclass_compat.t

diff --git a/t/050_metaclasses/052_metaclass_compat.t b/t/050_metaclasses/052_metaclass_compat.t
index 8e71ee5..f09dcf5 100644 (file)
--- a/t/050_metaclasses/052_metaclass_compat.t
+++ b/t/050_metaclasses/052_metaclass_compat.t
@@ -77,6 +77,7 @@ ok(Foo::Sub->meta->constructor_class->meta->can('does_role')
     $meta->superclasses('Foo2');
     { our $TODO; local $TODO = "need to handle immutability better";
     ::lives_ok { $meta->superclasses('Bar2') };
+    ::lives_ok { $meta->make_mutable if $meta->is_immutable };
     }
 }