From: Shawn M Moore <sartak@gmail.com>
Date: Wed, 20 May 2009 22:00:42 +0000 (-0400)
Subject: TODOify the failing test I added
X-Git-Tag: 0.80~79
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8eaf26e680eafc899cb84242819668cad94a4524;p=gitmo%2FMoose.git

TODOify the failing test I added
---

diff --git a/t/100_bugs/024_anon_method_metaclass.t b/t/100_bugs/024_anon_method_metaclass.t
index 2b97cc8..6079960 100644
--- 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;
 };