one more immutability test (t0m)
Jesse Luehrs [Sat, 3 Apr 2010 00:59:25 +0000 (19:59 -0500)]
t/050_metaclasses/052_metaclass_compat.t

index 8e71ee5..f09dcf5 100644 (file)
@@ -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 };
     }
 }