From 1ae762d3bc924245aa96378929a9a048d385a61e Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Thu, 20 Dec 2007 15:54:08 +0100
Subject: r26549: Remove suite-specific bits. (This used to be commit
 ac01d515b71ce44a0d98e50d58a76e1ce9e1f5d9)

---
 source4/selftest/output/html.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'source4/selftest/output/html.pm')

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\">";
-- 
cgit