diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-27 21:00:46 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-09-27 21:00:46 +0000 |
commit | 1a28cb2b298fe0fe5bb3c21b46e1f47d939fcf19 (patch) | |
tree | a37a516fcffa85991e724ec32dc9165331bafe59 | |
parent | f8a6accc91dc8dae3a5af139eb1fc244a5e21a8f (diff) |
Fix for correct thorn report when test fails
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1003 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/Runtest.pl | 5 |
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"); |