1 files changed, 44 insertions, 0 deletions
diff --git a/cpan/Test-Simple/t/dependents.t b/cpan/Test-Simple/t/dependents.t
new file mode 100644
index 0000000000..90e8938ebe
--- /dev/null
+++ b/cpan/Test-Simple/t/dependents.t
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+
+# Test important dependant modules so we don't accidentally half of CPAN.
+
+use strict;
+use warnings;
+
+use Test::More;
+
+BEGIN {
+    plan skip_all => "Dependents only tested when releasing" unless $ENV{PERL_RELEASING};
+}
+
+require File::Spec;
+use CPAN;
+
+CPAN::HandleConfig->load;
+$CPAN::Config->{test_report} = 0;
+
+# Module which depend on Test::More to test
+my @Modules = qw(
+    Test::Most
+    Test::Warn
+    Test::Exception
+    Test::Class
+    Test::Deep
+    Test::Differences
+    Test::NoWarnings
+);
+
+# Modules which are known to be broken
+my %Broken = map { $_ => 1 } qw(
+);
+
+TODO: for my $name (@ARGV ? @ARGV : @Modules) {
+    local $TODO = "$name known to be broken" if $Broken{$name};
+
+    local $ENV{PERL5LIB} = "$ENV{PERL5LIB}:" . File::Spec->rel2abs("blib/lib");
+    my $module = CPAN::Shell->expand("Module", $name);
+    $module->test;
+    ok( !$module->distribution->{make_test}->failed, $name );
+}
+
+done_testing();