diff options
Diffstat (limited to 'source4/selftest/output/html.pm')
| -rw-r--r-- | source4/selftest/output/html.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/source4/selftest/output/html.pm b/source4/selftest/output/html.pm index 13d2f10938..1e2dacac6f 100644 --- a/source4/selftest/output/html.pm +++ b/source4/selftest/output/html.pm @@ -9,13 +9,13 @@ use warnings; use FindBin qw($RealBin); -sub new($$$$) { +sub new$($$$) { my ($class, $dirname, $statistics) = @_; my $self = { dirname => $dirname, - statistics => $statistics, active_test => undef, local_statistics => {}, + statistics => {}, msg => "", error_summary => { skip => [], @@ -248,7 +248,9 @@ sub summary($) print INDEX "<tr>\n"; print INDEX " <td class=\"testSuiteTotal\">Total</td>\n"; - if ($st->{SUITES_FAIL} == 0) { + if ($st->{TESTS_UNEXPECTED_OK} == 0 and + $st->{TESTS_UNEXPECTED_FAIL} == 0 and + $st->{TESTS_ERROR} == 0) { print INDEX " <td class=\"resultOk\">"; } else { print INDEX " <td class=\"resultFailure\">"; |