Run tests recursively.

[gitmo/moose-dev-utils.git] / cpan-stable-smolder

diff --git a/cpan-stable-smolder b/cpan-stable-smolder
index e59c70a..87b3c6b 100755 (executable)
--- a/cpan-stable-smolder
+++ b/cpan-stable-smolder
@@ -5,7 +5,6 @@ use warnings;
 use CPAN;
 use Cwd;
 use File::chdir;
-use File::Path qw( rmtree );
 use IPC::Run3 qw( run3 );
 
 
@@ -33,7 +32,7 @@ my @modules;
     @modules = map { chomp; $_ } <$fh>;
 }
 
-test_all_modules(@modules); 
+test_all_modules(@modules);
 
 close $log;
 
@@ -55,16 +54,13 @@ sub test_all_modules {
 
         my $status = $passed && $warned ? 'WARN' : $passed ? 'PASS' : 'FAIL';
 
-        push @statuses, "$status: $project - " . $dist->base_id();
+        my $summary = "$status: $project - " . $dist->base_id();
+        print {$log} "$summary\n";
 
         push @details, [ $project, $output ]
             if $warned || ! $passed;
     }
 
-    for my $status (@statuses) {
-        print {$log} "$status\n";
-    }
-
     if (@details) {
         print {$log} "\n\n";
 
@@ -136,7 +132,7 @@ sub _run_commands {
 sub _run_tests {
     my $output;
 
-    run3 [ qw( prove -b ) ], undef, \$output, \$output;
+    run3 [ qw( prove -br ) ], undef, \$output, \$output;
 
     my $passed = $output =~ /Result: PASS/;
     my $warned = $output =~ /at .+ line \d+/;