From 718f9be8a2530a11e1cb16b68511b4c910a1c320 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 12 Jun 2009 14:34:24 +0200
Subject: selftest: Add option to strip output of succeeded tests, and use it
 on the buildfarm.

The matches the behaviour we had earlier in the previous output format.
---
 selftest/Subunit/Filter.pm | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

(limited to 'selftest/Subunit/Filter.pm')

diff --git a/selftest/Subunit/Filter.pm b/selftest/Subunit/Filter.pm
index 443baeb7dd..93b690df8e 100644
--- a/selftest/Subunit/Filter.pm
+++ b/selftest/Subunit/Filter.pm
@@ -54,7 +54,11 @@ sub report_time($$)
 sub output_msg($$)
 {
 	my ($self, $msg) = @_;
-	print $msg;
+	unless(defined($self->{output})) {
+		print $msg;
+	} else {
+		$self->{output}.=$msg;
+	}
 }
 
 sub start_test($$)
@@ -65,6 +69,10 @@ sub start_test($$)
 		$testname = $self->{prefix}.$testname;
 	}
 
+	if ($self->{strip_ok_output}) {
+		$self->{output} = "";
+	}
+
 	Subunit::start_test($testname);
 }
 
@@ -87,6 +95,13 @@ sub end_test($$$$$)
 		$reason .= $xfail_reason;
 	}
 
+	if ($self->{strip_ok_output}) {
+		unless ($result eq "success" or $result eq "xfail" or $result eq "skip") {
+			print $self->{output}
+		}
+	}
+	$self->{output} = undef;
+
 	Subunit::end_test($testname, $result, $reason);
 }
 
@@ -120,11 +135,12 @@ sub testsuite_count($$)
 }
 
 sub new {
-	my ($class, $prefix, $expected_failures) = @_;
+	my ($class, $prefix, $expected_failures, $strip_ok_output) = @_;
 
 	my $self = { 
 		prefix => $prefix,
 		expected_failures => $expected_failures,
+		strip_ok_output => $strip_ok_output,
 		xfail_added => 0,
 	};
 	bless($self, $class);
-- 
cgit