From: Philipp Stephani <phst@google.com>
Date: Mon, 4 Jan 2021 21:08:39 +0000 (+0100)
Subject: Make a process tests a bit more robust.
X-Git-Tag: emacs-28.0.90~4378
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57e872ac757d7a003f4a7f132a08798c3a1a6e97;p=emacs.git

Make a process tests a bit more robust.

* test/src/process-tests.el
(process-tests/fd-setsize-no-crash/make-process): Allow for processes
to fail before 'exec'.
---

diff --git a/test/src/process-tests.el b/test/src/process-tests.el
index 5294bc07ce5..1f88232c7fc 100644
--- a/test/src/process-tests.el
+++ b/test/src/process-tests.el
@@ -560,8 +560,11 @@ FD_SETSIZE file descriptors (Bug#24325)."
               ;; We should have managed to start at least one process.
               (should processes)
               (dolist (process processes)
-                (should (process-live-p process))
-                (process-send-eof process)
+                ;; The process now should either be running, or have
+                ;; already failed before `exec'.
+                (should (memq (process-status process) '(run exit)))
+                (when (process-live-p process)
+                  (process-send-eof process))
                 (while (accept-process-output process))
                 (should (eq (process-status process) 'exit))
                 ;; If there's an error between fork and exec, Emacs