From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 31 Dec 2020 14:50:19 +0000 (+0200)
Subject: Fix process-tests on MS-Windows
X-Git-Tag: emacs-28.0.90~4455
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03608312aee9990fb856ea5f865e3e918050ad21;p=emacs.git

Fix process-tests on MS-Windows

* test/src/process-tests.el (process-tests--fd-setsize-test): On
MS-Windows start the pipe processes in the "stopped" condition.
---

diff --git a/test/src/process-tests.el b/test/src/process-tests.el
index 24b09c56e2c..8d4516ff3b6 100644
--- a/test/src/process-tests.el
+++ b/test/src/process-tests.el
@@ -493,6 +493,13 @@ FD_SETSIZE."
                     for ,process = (process-tests--ignore-EMFILE
                                      (make-pipe-process
                                       :name (format "pipe %d" i)
+                                      ;; Prevent delete-process from
+                                      ;; trying to read from pipe
+                                      ;; processes that didn't exit
+                                      ;; yet, because no one is
+                                      ;; writing to those pipes, and
+                                      ;; the read will stall.
+                                      :stop (eq system-type 'windows-nt)
                                       :buffer ,buffer
                                       :coding 'no-conversion
                                       :noquery t))