Add name of test that generated the warning to "warnings" file

This commit is contained in:
msvensson@pilot.(none) 2007-06-21 16:37:13 +02:00
parent c021fc9a92
commit 840344589e

View File

@ -272,6 +272,7 @@ sub mtr_report_stats ($) {
{ {
foreach my $errlog ( sort glob("$::opt_vardir/log/*.err") ) foreach my $errlog ( sort glob("$::opt_vardir/log/*.err") )
{ {
my $testname= "";
unless ( open(ERR, $errlog) ) unless ( open(ERR, $errlog) )
{ {
mtr_warning("can't read $errlog"); mtr_warning("can't read $errlog");
@ -287,10 +288,14 @@ sub mtr_report_stats ($) {
{ {
next; # Skip these lines next; # Skip these lines
} }
if ( /CURRENT_TEST: (.*)/ )
{
$testname= $1;
}
if ( /$pattern/ ) if ( /$pattern/ )
{ {
$found_problems= 1; $found_problems= 1;
print WARN basename($errlog) . ": $_"; print WARN basename($errlog) . ": $testname: $_";
} }
} }
} }