commit f070f3cd7204b6f48d0c1198888bddf51cd8a22a
parent d68dd7369ece3a58a5e4cf43c53a5d869ee2874a
Author: Oswald Buddenhagen <ossi@users.sf.net>
Date: Tue, 27 Dec 2005 17:44:31 +0000
show debug output on error.
Diffstat:
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git 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";