show debug output on error.

This commit is contained in:
Oswald Buddenhagen 2005-12-27 17:44:31 +00:00
parent d68dd7369e
commit f070f3cd72

View File

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