From ae283cfd370fb1b96979763938ccddde3b2c243c Mon Sep 17 00:00:00 2001
From: Whiteknight <wknight8111@gmail.com>
Date: Wed, 18 Aug 2010 16:03:26 -0400
Subject: [PATCH] some upgrades to the harness to give a comprehensive report
 of all tests which fail in each file. This is something that's been missing
 and is a welcomed addition

---
 t/harness | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/t/harness b/t/harness
index cdc7589..7f8df36 100644
--- a/t/harness
+++ b/t/harness
@@ -19,11 +19,13 @@ sub MAIN () {
     my $failed_files := 0;
     my $max_length   := 30;
     my @files := get_all_tests("t", "t/pmc");
+    my %failures := {};
 
     for @files {
         my $filename := $_;
         $total_files++;
         print_filename($filename, $max_length);
+        %failures{$filename} := [];
 
         my $test_output := run_test($filename);
         my $plan := $test_output[0];
@@ -52,6 +54,8 @@ sub MAIN () {
                 if ($line_parts[0] eq 'not ') {
                     $failed++;
                     $curr_test++;
+                    my $test_name := $line.split(' - ')[1];
+                    %failures{$filename}.push($test_number ~ ": " ~ $test_name);
                 } elsif ($test_number == ($curr_test+1)) {
                     $passed++;
                     $curr_test++;
@@ -80,6 +84,19 @@ sub MAIN () {
     }
     if $total_failed {
         pir::say("FAILED " ~ $total_failed ~ '/' ~ ($total_passed+$total_failed));
+        pir::say("");
+        pir::say("========================== FAILURES ==========================");
+        for %failures {
+            my $testfile := $_;
+            my $failures_in_here := pir::elements(%failures{$testfile});
+            if $failures_in_here > 0 {
+                pir::say($testfile);
+                for %failures{$testfile} {
+                    pir::say("\t" ~ $_);
+                }
+                pir::say("");
+            }
+        }
         pir::exit(1);
     } elsif $failed_files {
         pir::say("FAILED " ~ $failed_files ~ " files, PASSED " ~ $total_passed ~ ' tests');