Permalink
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...
1 parent 0e4c5cc commit 8d2c9b0cb0484ee3e5639bf1f0c7e774fbdc77c1 @schwern schwern committed Apr 25, 2013
Showing with 4 additions and 2 deletions.
  1. +4 −2 dist/test_dists
View
@@ -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.