Explicitly list passing test cases

git-svn-id: http://svn.cactuscode.org/flesh/trunk@4780 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 16 insertions, 0 deletions

diff --git a/lib/sbin/RunTestUtils.pl b/lib/sbin/RunTestUtils.pl
index 370c3077..6d6d2a64 100644
--- a/lib/sbin/RunTestUtils.pl
+++ b/lib/sbin/RunTestUtils.pl
@@ -831,6 +831,20 @@ sub WriteFullResults
   push (@summary, "               set tolerance -> $rundata->{'NPASSEDTOTOL'}");
   push (@summary, "    Number failed            -> $rundata->{'NFAILED'}");
 
+  if ($rundata->{'NPASSED'})
+  {
+    push (@summary, '');
+    push (@summary, '  Tests passed:');
+    push (@summary, '');
+    foreach $thorn (sort split(' ',$testdata->{'THORNS'}))
+    {
+      foreach $file (sort split(' ',$rundata->{"$thorn PASSED"}))
+      {
+        push (@summary, "    $file (from $thorn)");
+      }
+    }
+  }
+
   if ($rundata->{'NFAILED'})
   {
     push (@summary, '');
@@ -1390,6 +1404,7 @@ sub ReportOnTest
   {
     $summary = "Success: $testdata->{\"$thorn $test NDATAFILES\"} files identical";
     printf("\n  $summary\n");
+    $rundata->{"$thorn PASSED"} .= "$test ";
     $rundata->{"NPASSED"}++;
   }
   else
@@ -1398,6 +1413,7 @@ sub ReportOnTest
     {
       $summary = "Success: $testdata->{\"$thorn $test NDATAFILES\"} files compared, $rundata->{\"$thorn $test NFAILWEAK\"} differ in the last digits";
       printf "\n  $summary\n";
+      $rundata->{"$thorn PASSED"} .= "$test ";
       $rundata->{"NPASSED"}++;
       $rundata->{"NPASSEDTOTOL"}++;
     }