Permalink
Browse files

Test::Presenter always stops with a signal 15. Skip it.

A better fix might be a signal handler?
  • Loading branch information...
1 parent 07ca160 commit ebbfadff7fa8afa853de52ee51fc8a51ff7466a6 @schwern schwern committed Oct 30, 2012
Showing with 7 additions and 0 deletions.
  1. +7 −0 dist/test_dists
View
@@ -11,6 +11,8 @@ use Test::More;
CPAN::HandleConfig->load;
$CPAN::Config->{test_report} = 0;
+my %skip_dists = map { chomp; $_ => 1 } <DATA>;
+
sub get_distributions {
my $match = shift;
return map { $_->pretty_id } CPAN::Shell->expand("Distribution", $match);
@@ -25,6 +27,8 @@ for my $dist (@dist_list->shuffle) {
$mod_name =~ s{-[^-]+$}{};
$mod_name =~ s{-}{::}g;
+ next if $skip_dists{$mod_name};
+
note $mod_name;
my @results;
@@ -54,3 +58,6 @@ done_testing;
note "Failed distributions";
note "$_" for @failed_dists;
+
+__DATA__
+Test::Presenter

0 comments on commit ebbfadf

Please sign in to comment.