X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F100-meta-class.t;fp=t%2F001_mouse%2F100-meta-class.t;h=15da58c468ee53e96c38c16178a0fe530c5e464b;hb=0fc9e959573bce8e397c5e68eb65b2875105c257;hp=c76b2dae3fcfec3d191e45833696abfaf3b17390;hpb=455994cf4a10e37350c65f542788e0a0b8fdaf8a;p=gitmo%2FMouse.git

diff --git a/t/001_mouse/100-meta-class.t b/t/001_mouse/100-meta-class.t
index c76b2da..15da58c 100644
--- a/t/001_mouse/100-meta-class.t
+++ b/t/001_mouse/100-meta-class.t
@@ -101,13 +101,12 @@ can_ok($child_meta, 'find_method_by_name');
 is $child_meta->find_method_by_name('child_method')->fully_qualified_name, 'Child::child_method';
 is $child_meta->find_method_by_name('pawn')->fully_qualified_name,         'Class::pawn';
 
-{
-    local $TODO = 'should be Class::MY_CONST';
-    is( join(' ', sort map{ $_->fully_qualified_name } grep{ $_->package_name ne 'Mouse::Object' } $child_meta->get_all_methods),
-        join(' ', sort qw(
-            Child::bishop Child::child_method Child::meta
 
-            Class::MY_CONST Class::has_pawn Class::pawn Class::stub Class::stub_with_attr
-        ))
-    );
-}
+is( join(' ', sort map{ $_->fully_qualified_name } grep{ $_->package_name ne 'Mouse::Object' } $child_meta->get_all_methods),
+    join(' ', sort qw(
+        Child::bishop Child::child_method Child::meta
+
+        Class::MY_CONST Class::has_pawn Class::pawn Class::stub Class::stub_with_attr
+    ))
+);
+