diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-06-18 15:24:06 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-06-18 15:24:06 +0000 |
commit | 0d3694da361c1084f95d530c3ed5a90562f67f9e (patch) | |
tree | aea85ef70636ac0abca5e47de09eae0fdabe692c | |
parent | 7b47712161936835ec70eea4ad90b0e7b17e8e9c (diff) |
Changes to information given in the warning messages
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2235 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/Runtest.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/sbin/Runtest.pl b/lib/sbin/Runtest.pl index 9d1ddf2b..35e67d69 100644 --- a/lib/sbin/Runtest.pl +++ b/lib/sbin/Runtest.pl @@ -251,6 +251,7 @@ if ($tests =~ /All/) else { push(@not_tested, $testnames[$ntested]); + push(@not_tested_parfile, $t); push(@not_tested_thorns, $thorn); print "Ignoring test '$testnames[$ntested]' from thorn '$thorn' - missing thorns.\n"; } @@ -308,7 +309,7 @@ if ($tests =~ /All/) print " Tests Missed for lack of thorns:\n"; for ($i=0; $i<$number_missing;$i++) { - print " ". $not_tested[$i]." (from ". $not_tested_thorns[$i].")\n"; + print " ". $not_tested[$i]."\n (".$not_tested_parfile[$i]." from ". $not_tested_thorns[$i].")\n"; } print "\n"; } @@ -318,7 +319,7 @@ if ($tests =~ /All/) print " Tests with different numbers of output files:\n"; for ($i=0; $i<$number_extra;$i++) { - print " ". $which_extra[$i]." (from ". $thorn_extra[$i].")\n"; + print " ". $thorn_extra_desc[$i]."\n (".$thorn_extra_parfile[$i]." from ". $thorn_extra[$i].")\n"; } print "\n"; } @@ -585,7 +586,8 @@ sub runtest } } $number_extra++; - @which_extra = (@which_extra,$tp); + @thorn_extra_desc = (@thorn_extra_desc,$testnames[$num]); + @thorn_extra_parfile = (@thorn_extra_parfile,$tp); @thorn_extra = (@thorn_extra,$inthorn); } |