From: Philipp Stephani <phst@google.com>
Date: Sun, 10 Jan 2021 09:14:27 +0000 (+0100)
Subject: Increase probability that a process test succeeds.
X-Git-Tag: emacs-28.0.90~4327
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=690cf6b8d8b8827f046bc1e24b2e556afeff976c;p=emacs.git

Increase probability that a process test succeeds.

* test/src/process-tests.el
(process-tests/fd-setsize-no-crash/make-process): Work around
potential Emacs bug.
---

diff --git a/test/src/process-tests.el b/test/src/process-tests.el
index ca98f54bdb1..921bcd5f85b 100644
--- a/test/src/process-tests.el
+++ b/test/src/process-tests.el
@@ -565,6 +565,11 @@ FD_SETSIZE file descriptors (Bug#24325)."
                 (should (memq (process-status process) '(run exit)))
                 (when (process-live-p process)
                   (process-send-eof process))
+                ;; FIXME: This `sleep-for' shouldn't be needed.  It
+                ;; indicates a bug in Emacs; perhaps SIGCHLD is
+                ;; received in parallel with `accept-process-output',
+                ;; causing the latter to hang.
+                (sleep-for 0.1)
                 (while (accept-process-output process))
                 (should (eq (process-status process) 'exit))
                 ;; If there's an error between fork and exec, Emacs