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

Reply via email to