r26549: Remove suite-specific bits.

[jelmer/samba4-debian.git] / source / selftest / output / html.pm

diff --git a/source/selftest/output/html.pm b/source/selftest/output/html.pm
index 13d2f10938837d62b8895b622c7ace07de540111..1e2dacac6f3e0bd69b7880a99a1c2662d77485ea 100644 (file)
--- a/source/selftest/output/html.pm
+++ b/source/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\">";