Skip Gearman-SlotManager - it hangs

[gitmo/Moose.git] / xt / author / test-my-dependents.t

diff --git a/xt/author/test-my-dependents.t b/xt/author/test-my-dependents.t
index 6c6162d..f6a9409 100644 (file)
--- a/xt/author/test-my-dependents.t
+++ b/xt/author/test-my-dependents.t
@@ -6,19 +6,21 @@ use Test::More;
 
 BEGIN {
     my $help = <<'EOF';
+This test will not run unless you set MOOSE_TEST_MD to a true value.
 
-
-  This test will not run unless you set MOOSE_TEST_MD to a true value.
   Valid values are:
 
-     all     Test every distro which depends on Moose except those that we know
-             cannot be tested. This is a lot of distros (thousands).
+     all                  Test every dist which depends on Moose except those
+                          that we know cannot be tested. This is a lot of
+                          distros (thousands).
+
+     Dist::1,Dist::2,...  Test the individual dists listed.
 
-     MooseX  Test all Moose extension distros
-             (MooseX modules plus a few others).
+     MooseX               Test all Moose extension distros
+                          (MooseX modules plus a few others).
 
-     $true   Any other true value runs the default tests. We pick 200 random
-             distros and test them.
+     1                    Run the default tests. We pick 200 random dists and
+                          test them.
 
 EOF
 
@@ -121,9 +123,11 @@ my @dists = sort
             @{ $res->{hits}{hits} };
 
 if ( $ENV{MOOSE_TEST_MD} eq 'MooseX' ) {
-    @dists = grep { /^(?:MooseX-|Fey-ORM)/ } @dists;
+    @dists = grep {
+        /^(?:MooseX-|(?:Fey-ORM|KiokuDB|Bread-Board|Catalyst-Runtime|Reflex)$)/
+    } @dists;
 }
-elsif ( $ENV{MOOSE_TEST_MD} ne 'all' ) {
+elsif ( $ENV{MOOSE_TEST_MD} eq '1' ) {
     diag(
         <<'EOF'
   Picking 200 random dependents to test. Set MOOSE_TEST_MD=all to test all
@@ -138,6 +142,14 @@ EOF
 
     @dists = @dists[ sort keys %indexes ];
 }
+elsif ( $ENV{MOOSE_TEST_MD} ne 'all' ) {
+    my @chosen = split /,/, $ENV{MOOSE_TEST_MD};
+    my %dists = map { $_ => 1 } @dists;
+    if (my @unknown = grep { !$dists{$_} } @chosen) {
+        die "Unknown dists: @unknown";
+    }
+    @dists = @chosen;
+}
 
 plan tests => scalar @dists;
 for my $dist (@dists) {
@@ -346,6 +358,7 @@ Date-Biorhythm                         # Date::Business prompts in Makefile.PL
 DBIx-VersionedDDL                      # runs a script with /usr/bin/perl in the shbang line
 File-Tail-Scribe                       # tests hang
 Gearman-Driver                         # spews tar errors
+Gearman-SlotManager                    # tests hang
 IPC-AnyEvent-Gearman                   # tests hang
 Lingua-YALI                            # runs scripts with /usr/bin/env perl in the shbang line
 Net-SSH-Mechanize                      # the mock-ssh script it runs seems to spin endlessly