# HG changeset patch
# User Ryan C. Gordon <icculus@icculus.org>
# Date 1267773506 28800
# Node ID d3ecff60a3f500d065caada48cf3e85aeee3ad48
# Parent  3f13aefabfcef2c0915b43986cc39f53b0ab39a3
List subsection in the condensed error output.

diff -r 3f13aefabfce -r d3ecff60a3f5 unit_tests/run_tests.pl
--- a/unit_tests/run_tests.pl	Thu Mar 04 23:15:10 2010 -0800
+++ b/unit_tests/run_tests.pl	Thu Mar 04 23:18:26 2010 -0800
@@ -124,7 +124,9 @@
         my $d = "$module/$testtype";
         next if (not -d $d);  # no tests at the moment.
         opendir(TESTDIR, $d) || die("Failed to open dir '$d': $!\n");
-        print(" ... $module / $testtype ...\n");
+        my $subsection = " ... $module / $testtype ...\n";
+        print($subsection);
+        my $addedsubsection = 0;
         my $fname = readdir(TESTDIR);
         while (defined $fname) {
             my $isfail = 0;
@@ -153,7 +155,14 @@
             }
             my $output = "$result ${origfname}${reason}\n";
             print($output);
-            push(@fails, $output) if $isfail;
+
+            if ($isfail) {
+                if (!$addedsubsection) {
+                    $addedsubsection = 1;
+                    push(@fails, $subsection);
+                }
+                push(@fails, $output);
+            }
 
             $totaltests++;
         }