X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F600_todo_tests%2F002_various_role_shit.t;h=f1fbc0606e6154c50621ea53ec880ab4a2c7d8b8;hb=ce9489efb4b2b2ce125df59b12599cebcf149e3c;hp=9f227ca3a82ebdb7c4c838077b856dd8a899aecc;hpb=68b6146c1c7074aea0737301d7dfa00b1ffeebf1;p=gitmo%2FMoose.git

diff --git a/t/600_todo_tests/002_various_role_shit.t b/t/600_todo_tests/002_various_role_shit.t
index 9f227ca..f1fbc06 100644
--- a/t/600_todo_tests/002_various_role_shit.t
+++ b/t/600_todo_tests/002_various_role_shit.t
@@ -83,7 +83,6 @@ sub req_or_has ($$) {
     has twist => ( is => "rw" );
 
     {
-        local our $TODO = "accessors don't satisfy role requires";
         ::lives_ok { with qw(Dancer) };
     }
 
@@ -202,11 +201,7 @@ ok( $gorch->has_attribute("attr"), "has attribute 'attr'" );
 req_or_has($gorch, "gorch_method");
 ok( $gorch->has_method("gorch_method"), "has_method gorch_method" );
 ok( !$gorch->requires_method("gorch_method"), "requires gorch method" );
-
-{
-    local $TODO = "role method isn't a meta object yet";
-    isa_ok( $gorch->get_method("gorch_method"), "Moose::Meta::Method" );
-}
+isa_ok( $gorch->get_method("gorch_method"), "Moose::Meta::Method" );
 
 {
     local $TODO = "method modifier doesn't yet create a method requirement or meta object";
@@ -238,8 +233,9 @@ ok( $robot->has_attribute("twist"), "has attr 'twist'" );
 }
 
 {
-    local $TODO = "attribute related methods are not yet known by the role";
     req_or_has($robot, "twist");
+
+    local $TODO = "attribute related methods are not yet known by the role";
     ok( $robot->has_method("twist"), "has twist method" );
     isa_ok( $robot->get_method("twist"), "Moose::Meta::Method" );
     isa_ok( $robot->get_method("twist"), "Moose::Meta::Method::Accessor" );