Fix for correct thorn report when test fails

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

1 files changed, 3 insertions, 2 deletions

diff --git a/lib/sbin/Runtest.pl b/lib/sbin/Runtest.pl
index 37005ec5..6692b9db 100644
--- a/lib/sbin/Runtest.pl
+++ b/lib/sbin/Runtest.pl
@@ -153,7 +153,7 @@ if ($tests =~ /All/) {
     print "\n  Tests failed:\n";
     for ($i=0; $i<$number_failed;$i++)
     {
-      print "    ".@which_failed[$i]." (from $testthorns[$i])\n";
+      print "    ".@which_failed[$i]." (from ".@thorn_failed[$i].")\n";
     }
   }
   if ($number_zerofiles > 0)
@@ -255,6 +255,7 @@ sub runtest {
         print "Please check the logfile $tsttop$sep$tp.log\n\n";
 	$number_failed++;
 	@which_failed = (@which_failed,$tp); 
+	@thorn_failed = (@thorn_failed,$inthorn);
         return;
     }
  
@@ -336,7 +337,7 @@ sub runtest {
                 "$nfiles compared, $blewit files differ, $reallyblewit differ significantly\n";
 	    $number_failed++;
 	    @which_failed = (@which_failed,$tp); 
-
+	    @thorn_failed = (@thorn_failed,$inthorn);
         }
     }
     printf ("\n\n");