diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2015-03-12 00:00:53 +0000 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2015-03-12 00:00:53 +0000 |
commit | 80a7dd190f9b5e8ead24c5a35df94a32cb29127b (patch) | |
tree | 5dbe72459fbe4a29b6df9b112fc1608becda680d /cpan/Test-Simple | |
parent | 822cd0f20d99f9989acef9ef84366c9585ff44c3 (diff) | |
download | perl-80a7dd190f9b5e8ead24c5a35df94a32cb29127b.tar.gz |
Straighten Porting/Maintainers.pl out following Test::Simple restoration
Also remove a stray file that was in core when it was listed as EXCLUDED.
Diffstat (limited to 'cpan/Test-Simple')
-rw-r--r-- | cpan/Test-Simple/t/xt/dependents.t | 51 |
1 files changed, 0 insertions, 51 deletions
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(); |