emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 612ff133b7: Don't fail Eshell ERT tests when an internal signal g


From: Jim Porter
Subject: master 612ff133b7: Don't fail Eshell ERT tests when an internal signal gets raised
Date: Wed, 31 Aug 2022 16:51:05 -0400 (EDT)

branch: master
commit 612ff133b7720de3a551b433eb8705a6a2bbc037
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>

    Don't fail Eshell ERT tests when an internal signal gets raised
    
    * test/lisp/eshell/esh-proc-tests.el
    (esh-proc-test/pipeline-connection-type/middle)
    (esh-proc-test/pipeline-connection-type/last): Set 'debug-on-error' to
    nil.
    
    Ref: https://lists.gnu.org/archive/html/emacs-devel/2022-08/msg01452.html
---
 test/lisp/eshell/esh-proc-tests.el | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/test/lisp/eshell/esh-proc-tests.el 
b/test/lisp/eshell/esh-proc-tests.el
index 2369bb5cc0..b9f4470be6 100644
--- a/test/lisp/eshell/esh-proc-tests.el
+++ b/test/lisp/eshell/esh-proc-tests.el
@@ -76,17 +76,23 @@
 pipeline."
   (skip-unless (and (executable-find "sh")
                     (executable-find "cat")))
-  (eshell-command-result-equal
-   (concat "echo | " esh-proc-test--detect-pty-cmd " | cat")
-   nil))
+  ;; An `eshell-pipe-broken' signal might occur internally; let Eshell
+  ;; handle it!
+  (let ((debug-on-error nil))
+    (eshell-command-result-equal
+     (concat "echo hi | " esh-proc-test--detect-pty-cmd " | cat")
+     nil)))
 
 (ert-deftest esh-proc-test/pipeline-connection-type/last ()
   "Test that only output streams are PTYs when a command ends a pipeline."
   (skip-unless (executable-find "sh"))
-  (eshell-command-result-equal
-   (concat "echo | " esh-proc-test--detect-pty-cmd)
-   (unless (eq system-type 'windows-nt)
-     "stdout\nstderr\n")))
+  ;; An `eshell-pipe-broken' signal might occur internally; let Eshell
+  ;; handle it!
+  (let ((debug-on-error nil))
+    (eshell-command-result-equal
+     (concat "echo hi | " esh-proc-test--detect-pty-cmd)
+     (unless (eq system-type 'windows-nt)
+       "stdout\nstderr\n"))))
 
 (ert-deftest esh-proc-test/kill-pipeline ()
   "Test that killing a pipeline of processes only emits a single



reply via email to

[Prev in Thread] Current Thread [Next in Thread]