Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Test all distributions which have a module in them matching /Test/

This catches a broader range of test modules, including things like Test::Moose.
  • Loading branch information...
commit 8d2c9b0cb0484ee3e5639bf1f0c7e774fbdc77c1 1 parent 0e4c5cc
@schwern schwern authored
Showing with 4 additions and 2 deletions.
  1. +4 −2 dist/test_dists
View
6 dist/test_dists
@@ -26,10 +26,12 @@ my %skip_dists = map { chomp; $_ => 1 } <DATA>;
sub get_distributions {
my $match = shift;
- return map { $_->pretty_id } CPAN::Shell->expand("Distribution", $match);
+ my @dists = grep { defined $_ } map { $_->distribution } CPAN::Shell->expand("Module", $match);
+ my %unique_dists = map { ($_->pretty_id => 1) } @dists;
+ return keys %unique_dists;
}
-my @dist_list = @ARGV ? @ARGV : get_distributions("/Test-/");
+my @dist_list = @ARGV ? @ARGV : get_distributions("/Test/");
my @failed_dists;

0 comments on commit 8d2c9b0

Please sign in to comment.
Something went wrong with that request. Please try again.