Requires Test::DependentModules 0.13+

[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 52f1e92..19b0709 100644 (file)
--- a/xt/author/test-my-dependents.t
+++ b/xt/author/test-my-dependents.t
@@ -10,10 +10,11 @@ BEGIN {
 }
 
 use Test::Requires {
-    'Archive::Zip' => 0, # or else .zip dists won't be able to be installed
-    'Test::DependentModules' => '0.09', # skip all if not installed
-    'MetaCPAN::API' => '0.33',
+    'Archive::Zip' => 0,    # or else .zip dists won't be able to be installed
+    'Test::DependentModules' => '0.13',
+    'MetaCPAN::API'          => '0.33',
 };
+
 use Test::DependentModules qw( test_module );
 
 use DateTime;
@@ -120,12 +121,26 @@ my %name_fix = (
     'X11-XCB'                        => 'X11::XCB::Connection',
     'XML-Ant-BuildFile'              => 'XML::Ant::BuildFile::Project',
 );
+
 my @dists = sort
             grep { !$skip{$_} }
             grep { my $dist = $_; !any { $dist =~ /^$_-/ } @skip_prefix }
             map  { $_->{fields}{distribution} }
             @{ $res->{hits}{hits} };
 
+unless ( $ENV{MOOSE_TEST_MD} eq 'all' ) {
+    diag(
+        'Picking 200 random dependents to test. Set MOOSE_TEST_MD=all to test all dependents'
+    );
+
+    my %indexes;
+    while ( keys %indexes < 200 ) {
+        $indexes{ int rand( scalar @dists ) } = 1;
+    }
+
+    @dists = @dists[ sort keys %indexes ];
+}
+
 plan tests => scalar @dists;
 for my $dist (@dists) {
     note($dist);
@@ -285,6 +300,7 @@ Template-JavaScript                    # requires v8
 TheSchwartz-Moosified                  # requires DBI::Pg ?
 WebService-SendGrid                    # requires curl
 WebService-Tesco-API                   # requires curl
+WWW-Contact                            # depends on curl
 WWW-Curl-Simple                        # requires curl
 ZeroMQ-PubSub                          # requires zmq
 ZMQ-Declare                            # requires zmq
@@ -493,7 +509,7 @@ Verby                                  # deps on poe::component::resourcepool
 Weather-TW                             # missing dep on Mojo::DOM
 Web-API-Mapper                         # broken
 WebNano-Controller-CRUD                # broken
-WebService-Intermine                   # broken tests
+Webservice-Intermine                   # broken tests
 WebService-Yes24                       # broken
 WiX3                                   # broken
 WWW-Alltop                             # XML::SimpleObject configure fail