emacs-29 89e337c3fc9: ; Make sure 'eshell-command' tests don't prompt the user

[Jim Porter]

branch: emacs-29
commit 89e337c3fc9a51454afb86176a507f46c198be9f
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>

    ; Make sure 'eshell-command' tests don't prompt the user
    
    * test/lisp/eshell/eshell-tests.el
    (eshell-test/eshell-command/background)
    (eshell-test/eshell-command/background-pipeline): Wait for the process
    to finish.
---
 test/lisp/eshell/eshell-tests.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/lisp/eshell/eshell-tests.el b/test/lisp/eshell/eshell-tests.el
index bf7ec0389f0..fbff51a8873 100644
--- a/test/lisp/eshell/eshell-tests.el
+++ b/test/lisp/eshell/eshell-tests.el
@@ -136,6 +136,8 @@ This test uses a pipeline for the command."
       ;; buffer.
       (eshell-command "*echo hi &")
       (with-current-buffer "*Eshell Async Command Output*"
+        (while (get-buffer-process (current-buffer))
+          (accept-process-output))
         (goto-char (point-min))
         (should (looking-at "\\[echo\\(\\.exe\\)?\\(<[0-9]+>\\)?\\]"))))))
 
@@ -149,6 +151,8 @@ This test uses a pipeline for the command."
       ;; XXX: As above, we can't write to the current buffer here.
       (eshell-command "*echo hi | *cat &")
       (with-current-buffer "*Eshell Async Command Output*"
+        (while (get-buffer-process (current-buffer))
+          (accept-process-output))
         (goto-char (point-min))
         (should (looking-at "\\[cat\\(\\.exe\\)?\\(<[0-9]+>\\)?\\]"))))))