add Class::MOP::metaclass_is_weak

[gitmo/Class-MOP.git] / t / 048_anon_class_create_init.t

diff --git a/t/048_anon_class_create_init.t b/t/048_anon_class_create_init.t
index a1cbb23..e24319c 100644 (file)
--- a/t/048_anon_class_create_init.t
+++ b/t/048_anon_class_create_init.t
@@ -89,10 +89,23 @@ my $instance;
 {
     my $meta_name;
     {
-        $meta_name = Class::MOP::Class->create_anon_class(
+        my $meta = Class::MOP::Class->create_anon_class(
+            superclasses => ['Class::MOP::Class'],
+        );
+        $meta_name = $meta->name;
+        ok(Class::MOP::metaclass_is_weak($meta_name),
+           "default is for anon metaclasses to be weakened");
+    }
+    ok(!Class::MOP::class_of($meta_name),
+       "and weak metaclasses go away when all refs do");
+    {
+        my $meta = Class::MOP::Class->create_anon_class(
             superclasses => ['Class::MOP::Class'],
             weaken => 0,
-        )->name;
+        );
+        $meta_name = $meta->name;
+        ok(!Class::MOP::metaclass_is_weak($meta_name),
+           "anon classes can be told not to weaken");
     }
     ok(Class::MOP::class_of($meta_name), "metaclass still exists");
     {