X-Git-Url: http://git.samba.org/samba.git/?a=blobdiff_plain;f=selftest%2Foutput%2Fplain.pm;fp=selftest%2Foutput%2Fplain.pm;h=20e5abc253abb7fcd520ab213b8487f024b2226c;hb=9bdf76c9c214d6f12c379f8feefe120fdae84377;hp=509e0669102f2d409fa7066066fe90434293adcd;hpb=24f01e70aaefb390d081bcd8cec6cd42282430b4;p=sfrench%2Fsamba-autobuild%2F.git

diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm
index 509e0669102..20e5abc253a 100644
--- a/selftest/output/plain.pm
+++ b/selftest/output/plain.pm
@@ -143,7 +143,11 @@ sub end_test($$$$$)
 	my ($self, $parents, $testname, $result, $unexpected, $reason) = @_;
 	
 	if ($#$parents == -1) {
-		$self->end_testsuite($testname, $result, $unexpected, $reason);
+		if ($result eq "skip") {
+			$self->skip_testsuite($testname, $reason);
+		} else {
+			$self->end_testsuite($testname, $result, $unexpected, $reason);
+		}
 		return;
 	}
 
@@ -233,7 +237,9 @@ sub skip_testsuite($$)
 
 	push (@{$self->{skips}->{$reason}}, $name);
 
-	$self->{totalsuites}--;
+	if ($self->{totalsuites}) {
+		$self->{totalsuites}--;
+	}
 }
 
 1;