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

A better fix might be a signal handler?
Test-More · Oct 30, 2012 · ebbfadf · ebbfadf
1 parent 07ca160
commit ebbfadf
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/dist/test_dists b/dist/test_dists
@@ -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