[p5sagit/p5-mst-13.2.git] / cpan / Test-Simple / t / dependents.t

#!/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};
}

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
);

# Modules which are known to be broken
my %Broken = map { $_ => 1 } qw(
    Test::Class
);

TODO: for my $name (@ARGV ? @ARGV : @Modules) {
    local $TODO = "$name known to be broken" if $Broken{$name};

    my $module = CPAN::Shell->expand("Module", $name);
    $module->test;
    ok( !$module->distribution->{make_test}->failed, $name );
}

done_testing();
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();