From 77b77e6ba13137522b542d364891aba031a3ede8 Mon Sep 17 00:00:00 2001
From: Andrew Tridgell <tridge@samba.org>
Date: Fri, 19 Mar 2010 14:24:31 +1100
Subject: subunit: keep total error and failure counts

---
 selftest/Subunit/Filter.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'selftest/Subunit')

diff --git a/selftest/Subunit/Filter.pm b/selftest/Subunit/Filter.pm
index 896721a67b..4a94f258f1 100644
--- a/selftest/Subunit/Filter.pm
+++ b/selftest/Subunit/Filter.pm
@@ -88,20 +88,24 @@ sub end_test($$$$$)
 	if (($result eq "fail" or $result eq "failure") and not $unexpected) {
 		$result = "xfail";
 		$self->{xfail_added}++;
+		$self->{total_xfail}++;
 	}
 	my $xfail_reason = find_in_list($self->{expected_failures}, $testname);
 	if (defined($xfail_reason) and ($result eq "fail" or $result eq "failure")) {
 		$result = "xfail";
 		$self->{xfail_added}++;
+		$self->{total_xfail}++;
 		$reason .= $xfail_reason;
 	}
 
 	if ($result eq "fail" or $result eq "failure") {
 		$self->{fail_added}++;
+		$self->{total_fail}++;
 	}
 
 	if ($result eq "error") {
 		$self->{error_added}++;
+		$self->{total_error}++;
 	}
 
 	if ($self->{strip_ok_output}) {
@@ -124,6 +128,7 @@ sub start_testsuite($;$)
 {
 	my ($self, $name) = @_;
 	Subunit::start_testsuite($name);
+
 	$self->{error_added} = 0;
 	$self->{fail_added} = 0;
 	$self->{xfail_added} = 0;
@@ -171,6 +176,9 @@ sub new {
 		expected_failures => $expected_failures,
 		strip_ok_output => $strip_ok_output,
 		xfail_added => 0,
+		total_xfail => 0,
+		total_error => 0,
+		total_fail => 0
 	};
 	bless($self, $class);
 }
-- 
cgit