[Catalyst-commits] r13538 - Catalyst-Runtime/5.80/trunk/t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-08-26 00:26:14 +0100 (Thu, 26 Aug 2010)
New Revision: 13538

Modified:
   Catalyst-Runtime/5.80/trunk/t/unit_core_methodattributes_method_metaclass_on_subclasses.t
Log:
No passing TODOs

Modified: Catalyst-Runtime/5.80/trunk/t/unit_core_methodattributes_method_metaclass_on_subclasses.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_core_methodattributes_method_metaclass_on_subclasses.t	2010-08-25 23:17:50 UTC (rev 13537)
+++ Catalyst-Runtime/5.80/trunk/t/unit_core_methodattributes_method_metaclass_on_subclasses.t	2010-08-25 23:26:14 UTC (rev 13538)
@@ -15,13 +15,13 @@
 
     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;;
     }
 }