List subsection in the condensed error output.

icculus · Mar 5, 2010 · 6ac132d · 6ac132d
1 parent eae869e
commit 6ac132d
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/unit_tests/run_tests.pl b/unit_tests/run_tests.pl
@@ -124,7 +124,9 @@ sub compare_files {
         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 @@ sub compare_files {
             }
             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++;
         }