Testsuite: log some stderr output on bad exit-code in --CONTINUE mode

[exim.git] / test / runtest

diff --git a/test/runtest b/test/runtest
index b000dbe4272cb9189633ab4a5bc9601d43efb40b..d9aa97fa5820f15d360cd30c770fa936622b06dd 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -3767,7 +3767,15 @@ $0 = "[runtest $testno]";
         $_ = $force_continue ? "c" : <T>;
         tests_exit(1) if /^q?$/i;
         log_failure($log_failed_filename, $testno, "exit code unexpected") if (/^c$/i && $force_continue);
         $_ = $force_continue ? "c" : <T>;
         tests_exit(1) if /^q?$/i;
         log_failure($log_failed_filename, $testno, "exit code unexpected") if (/^c$/i && $force_continue);

-        print "... continue forced\n" if $force_continue;
+        if ($force_continue)
+          {
+          print "stderr tail:\n";
+          print "===================\n";
+          system("tail -20 test-stderr");
+          print "===================\n";
+          print "... continue forced\n";
+          }
+

         last if /^[rc]$/i;
         if (/^e$/i)
           {
         last if /^[rc]$/i;
         if (/^e$/i)
           {