No passing TODOs
Tomas Doran [Wed, 25 Aug 2010 23:26:14 +0000 (23:26 +0000)]
t/unit_core_methodattributes_method_metaclass_on_subclasses.t

index b6f5054..8b8b659 100644 (file)
@@ -15,13 +15,13 @@ use Test::More;
 
     sub test {}
 }
-
+my $c = 0;
 foreach my $class (qw/ CT RT /) {
     my $class_name = 'NoAttributes::' . $class;
     my $meta = $class_name->meta;
     my $meth = $meta->find_method_by_name('test');
     {
-        local $TODO = "Known MX::MethodAttributes issue";
+        local $TODO = "Known MX::MethodAttributes issue" if $c++;
         ok $meth->can('attributes'), 'method metaclass has ->attributes method for ' . $class;;
     }
 }