CVS commit by ossi: handle abnormal program exit during regtest
M +14 -2 run-tests.pl 1.18 --- isync/src/run-tests.pl #1.17:1.18 @@ -282,8 +282,9 @@ sub runsync($) { +# open FILE, "valgrind -q --log-fd=3 ../mbsync ".shift()." -c .mbsyncrc test 3>&2 2>&1 |"; open FILE, "../mbsync -D ".shift()." -c .mbsyncrc test 2>&1 |"; my @out = <FILE>; close FILE or push(@out, $! ? "*** error closing mbsync: $!\n" : "*** mbsync exited with signal ".($?&127).", code ".($?>>8)."\n"); - return @out; + return $?, @out; } @@ -585,5 +586,16 @@ mkchan($$sx[0], $$sx[1], @{ $$sx[2] }); &writecfg(@{ $$tx[0] }); - my @ret = runsync("-J"); + my ($xc, @ret) = runsync("-J"); + if ($xc) { + print "Input:\n"; + printchan($$sx[0], $$sx[1], @{ $$sx[2] }); + print "Options:\n"; + print " [ ".join(", ", map('"'.qm($_).'"', @{ $$tx[0] }))." ]\n"; + print "Expected result:\n"; + printchan($$tx[1], $$tx[2], @{ $$tx[3] }); + print "Debug output:\n"; + print @ret; + exit 1; + } if (ckchan($$tx[1], $$tx[2], @{ $$tx[3] })) { print "Input:\n"; ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys - and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ isync-devel mailing list isync-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/isync-devel