diff options
Diffstat (limited to 'selftest/output')
| -rw-r--r-- | selftest/output/buildfarm.pm | 3 | ||||
| -rw-r--r-- | selftest/output/plain.pm | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/selftest/output/buildfarm.pm b/selftest/output/buildfarm.pm index 95c5423383..bd21fc683d 100644 --- a/selftest/output/buildfarm.pm +++ b/selftest/output/buildfarm.pm @@ -86,6 +86,9 @@ sub end_testsuite($$$$$$) BuildFarm::end_testsuite($name, ($self->{last_time} - $self->{START_TIME}), (not $unexpected), $self->{test_output}->{$name}, $reason); + if ($result ne "success") { + $self->{statistics}->{SUITES_FAIL}++; + } } sub start_test($$$) diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm index bfdced2936..5e75ce9511 100644 --- a/selftest/output/plain.pm +++ b/selftest/output/plain.pm @@ -125,7 +125,7 @@ sub end_testsuite($$$$) } if (not $self->{immediate}) { - if (not $unexpected) { + unless($unexpected) { $out .= " ok\n"; } else { $out .= " " . uc($result) . "\n"; |