Commit | Line | Data |
2c4d5b9b |
1 | #!/usr/bin/perl |
2 | |
3 | # Test important dependant modules so we don't accidentally half of CPAN. |
4 | |
5 | use strict; |
6 | use warnings; |
7 | |
8 | use Test::More; |
9 | |
10 | BEGIN { |
11 | plan skip_all => "Dependents only tested when releasing" unless $ENV{PERL_RELEASING}; |
12 | } |
13 | |
14 | use CPAN; |
15 | |
16 | CPAN::HandleConfig->load; |
17 | $CPAN::Config->{test_report} = 0; |
18 | |
19 | # Module which depend on Test::More to test |
20 | my @Modules = qw( |
21 | Test::Most |
22 | Test::Warn |
23 | Test::Exception |
24 | Test::Class |
25 | Test::Deep |
26 | Test::Differences |
27 | ); |
28 | |
29 | # Modules which are known to be broken |
30 | my %Broken = map { $_ => 1 } qw( |
31 | Test::Class |
32 | ); |
33 | |
34 | TODO: for my $name (@ARGV ? @ARGV : @Modules) { |
35 | local $TODO = "$name known to be broken" if $Broken{$name}; |
36 | |
37 | my $module = CPAN::Shell->expand("Module", $name); |
38 | $module->test; |
39 | ok( !$module->distribution->{make_test}->failed, $name ); |
40 | } |
41 | |
42 | done_testing(); |