From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 17 Apr 2012 15:35:34 +0000 (-0500)
Subject: the todo items are by dist
X-Git-Tag: 2.0502~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMoose.git;a=commitdiff_plain;h=9fe055d92cbba2a60a70ade1dd8ed187b1fda2f6

the todo items are by dist
---

diff --git a/xt/author/test-my-dependents.t b/xt/author/test-my-dependents.t
index e488fcf..d5a86f2 100644
--- a/xt/author/test-my-dependents.t
+++ b/xt/author/test-my-dependents.t
@@ -104,18 +104,19 @@ my %name_fix = (
     'X11-XCB'                        => 'X11::XCB::Connection',
     'XML-Ant-BuildFile'              => 'XML::Ant::BuildFile::Project',
 );
-my @modules = map  { exists $name_fix{$_} ? $name_fix{$_} : $_ }
-              sort
-              grep { !$skip{$_} }
-              grep { my $dist = $_; !any { $dist =~ /^$_-/ } @skip_prefix }
-              map  { $_->{fields}{distribution} }
-              @{ $res->{hits}{hits} };
+my @dists = sort
+            grep { !$skip{$_} }
+            grep { my $dist = $_; !any { $dist =~ /^$_-/ } @skip_prefix }
+            map  { $_->{fields}{distribution} }
+            @{ $res->{hits}{hits} };
 
 plan tests => scalar @modules;
-for my $module (@modules) {
-    note($module);
-    if ($todo{$module}) {
-        my $reason = $todo_reasons{$module};
+for my $dist (@dists) {
+    note($dist);
+    my $module = $dist;
+    $module = $name_fix{$module} if exists $name_fix{$module};
+    if ($todo{$dist}) {
+        my $reason = $todo_reasons{$dist};
         $reason = '???' unless defined $reason;
         local $TODO = $reason;
         eval { test_module($module); 1 }