diff options
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rwxr-xr-x | Porting/Maintainers.pl | 8 | ||||
| -rw-r--r-- | cpan/Test-Simple/t/xt/dependents.t | 51 |
3 files changed, 2 insertions, 58 deletions
@@ -2470,7 +2470,6 @@ cpan/Test-Simple/t/useing.t cpan/Test-Simple/t/use_ok.t cpan/Test-Simple/t/utf8.t cpan/Test-Simple/t/versions.t -cpan/Test-Simple/t/xt/dependents.t cpan/Test-Simple/t/xxx-changes_updated.t cpan/Test/t/05_about_verbose.t See if Test works cpan/Test/t/fail.t See if Test works diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index b69ea9399d..c2cb806478 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1063,21 +1063,17 @@ use File::Glob qw(:case); }, 'Test::Simple' => { - 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.301001_098.tar.gz', + 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.001014.tar.gz', 'FILES' => q[cpan/Test-Simple], 'EXCLUDED' => [ qr{^t/xt}, qr{^xt}, - qr{^profiling}, qw( .perlcriticrc .perltidyrc examples/indent.pl examples/subtest.t - t/Legacy/00compile.t - t/Legacy/pod.t + t/00compile.t t/xxx-changes_updated.t - t/zzz-check-breaks.t - t/Legacy/ribasushi_diag.t ), ], }, diff --git a/cpan/Test-Simple/t/xt/dependents.t b/cpan/Test-Simple/t/xt/dependents.t deleted file mode 100644 index 04b9a766b8..0000000000 --- a/cpan/Test-Simple/t/xt/dependents.t +++ /dev/null @@ -1,51 +0,0 @@ -#!/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::Tester - 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 } ( - 'Test::Most', - 'Test::Differences' -); - -# Have to do it here because CPAN chdirs. -my $perl5lib = join ":", File::Spec->rel2abs("blib/lib"), File::Spec->rel2abs("lib"); - -TODO: for my $name (@ARGV ? @ARGV : @Modules) { - local $TODO = "$name known to be broken" if $Broken{$name}; - local $ENV{PERL5LIB} = $perl5lib; - - my $module = CPAN::Shell->expand("Module", $name); - $module->make; - $module->test; - my $test_result = $module->distribution->{make_test}; - ok( $test_result && !$test_result->failed, $name ); -} -done_testing(); |