TODOify the failing test I added

[gitmo/Moose.git] / t / 100_bugs / 024_anon_method_metaclass.t

diff --git a/t/100_bugs/024_anon_method_metaclass.t b/t/100_bugs/024_anon_method_metaclass.t
index 2b97cc8..6079960 100644 (file)
--- a/t/100_bugs/024_anon_method_metaclass.t
+++ b/t/100_bugs/024_anon_method_metaclass.t
@@ -32,10 +32,12 @@ Ball->meta->add_method(bounce => $method_object);
 for (1, 2) {
     is(Ball->bounce, 'ok', "method still exists on Ball");
     is(Ball->meta->get_method('bounce')->meta->name, $method_class, "method's package still exists");
+
+    local $TODO = "method seems to be reinitialized" if !$method_meta;
+
     is(Ball->meta->get_method('bounce')->meta . '', $original_meta, "method's metaclass still exists");
     ok(Ball->meta->get_method('bounce')->meta->does_role('Arbitrary::Roll'), "method still does Arbitrary::Roll");
 
-    diag 'undef $method_meta' if $method_meta;
     undef $method_meta;
 };