From 3ce69e812519b93d217889d6415d9bd2a7672dea Mon Sep 17 00:00:00 2001
From: eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Thu, 5 Jan 2012 14:13:39 +0000
Subject: Explicitly list passing test cases

git-svn-id: http://svn.cactuscode.org/flesh/trunk@4780 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 lib/sbin/RunTestUtils.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'lib')

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"}++;
     }
-- 
cgit v1.2.3