[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ea8c0e1: * test/lisp/simple-tests.el (simple-tests-
From: |
Tino Calancha |
Subject: |
[Emacs-diffs] master ea8c0e1: * test/lisp/simple-tests.el (simple-tests-async-shell-command-30280): Add test |
Date: |
Mon, 29 Jan 2018 08:41:42 -0500 (EST) |
branch: master
commit ea8c0e1b9eaa6651919fb4e039e3fcb5a1fa73db
Author: tino calancha <address@hidden>
Commit: tino calancha <address@hidden>
* test/lisp/simple-tests.el (simple-tests-async-shell-command-30280): Add
test
---
test/lisp/simple-tests.el | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+)
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index d13b859..91fdd5e 100644
--- a/test/lisp/simple-tests.el
+++ b/test/lisp/simple-tests.el
@@ -511,5 +511,30 @@ See Bug#21722."
(do-auto-fill)
(should (string-equal (buffer-string) "foo bar"))))
+(ert-deftest simple-tests-async-shell-command-30280 ()
+ "Test for https://debbugs.gnu.org/30280 ."
+ :expected-result :failed
+ (let* ((async-shell-command-buffer 'new-buffer)
+ (async-shell-command-display-buffer nil)
+ (str "*Async Shell Command*")
+ (buffers-name
+ (cl-loop repeat 2
+ collect (buffer-name
+ (generate-new-buffer str))))
+ (inhibit-message t))
+ (mapc #'kill-buffer buffers-name)
+ (async-shell-command
+ (format "%s -Q -batch -eval '(progn (sleep-for 3600) (message \"foo\"))'"
+ invocation-name))
+ (async-shell-command
+ (format "%s -Q -batch -eval '(progn (sleep-for 1) (message \"bar\"))'"
+ invocation-name))
+ (let ((buffers (mapcar #'get-buffer buffers-name))
+ (processes (mapcar #'get-buffer-process buffers-name)))
+ (unwind-protect
+ (should (memq (cadr buffers) (mapcar #'window-buffer (window-list))))
+ (mapc #'delete-process processes)
+ (mapc #'kill-buffer buffers)))))
+
(provide 'simple-test)
;;; simple-test.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ea8c0e1: * test/lisp/simple-tests.el (simple-tests-async-shell-command-30280): Add test,
Tino Calancha <=