From f070f3cd7204b6f48d0c1198888bddf51cd8a22a Mon Sep 17 00:00:00 2001
From: Oswald Buddenhagen <ossi@users.sf.net>
Date: Tue, 27 Dec 2005 17:44:31 +0000
Subject: [PATCH] show debug output on error.

---
 src/run-tests.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/run-tests.pl b/src/run-tests.pl
index 57cccdd..2ec9e11 100755
--- a/src/run-tests.pl
+++ b/src/run-tests.pl
@@ -259,8 +259,11 @@ Slave :slave:
 SyncState *
 ".shift();
 	close FILE;
-	system "../mbsync -q -c .mbsyncrc test";
+	open FILE, "../mbsync -D -c .mbsyncrc test|";
+	my @out = <FILE>;
+	close FILE;
 	unlink ".mbsyncrc";
+	return @out;
 }
 
 # $path
@@ -516,7 +519,7 @@ sub test($$)
 	my ($sx, $tx) = @_;
 
 	mkchan($$sx[0], $$sx[1], @{ $$sx[2] });
-	&runsync(@{ $$tx[0] });
+	my @ret = &runsync(@{ $$tx[0] });
 	if (ckchan(fcfg(@{ $$tx[0] }), $$tx[1], $$tx[2], @{ $$tx[3] })) {
 		print "Input:\n";
 		printchan($$sx[0], $$sx[1], @{ $$sx[2] });
@@ -526,6 +529,8 @@ sub test($$)
 		printchan($$tx[1], $$tx[2], @{ $$tx[3] });
 		print "Actual result:\n";
 		showchan();
+		print "Debug output:\n";
+		print @ret;
 		exit 1;
 	}
 	rmtree "slave";