X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F001_mouse%2F100-meta-class.t;h=15da58c468ee53e96c38c16178a0fe530c5e464b;hp=c76b2dae3fcfec3d191e45833696abfaf3b17390;hb=7fc1f782a03cad730507528abb9707a107b8eba8;hpb=920139b3efca66d2caeeef306c97fa0da62c6b73 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 + )) +); +