diff options
| author | Glenn Morris | 2018-01-15 13:53:40 -0800 |
|---|---|---|
| committer | Glenn Morris | 2018-01-15 13:53:40 -0800 |
| commit | 9bd8f01cd6613795e6a7bb228b1aff342cc88c8b (patch) | |
| tree | aa566ea564a3d8e344c3015b997a6478e2010b5d /test/src | |
| parent | e6b1df09551fc02aedcba4dbf5ee91dad4686e9a (diff) | |
| parent | 2c0cfa64553dc1d4d376b42b56e52a007222736b (diff) | |
| download | emacs-9bd8f01cd6613795e6a7bb228b1aff342cc88c8b.tar.gz emacs-9bd8f01cd6613795e6a7bb228b1aff342cc88c8b.zip | |
Merge from origin/emacs-26
2c0cfa6455 * ChangeLog.3: Update
4387bb44ae Update authors
bce51bd6f7 * lisp/gnus/message.el (message-do-auto-fill): Prevent do-...
bd2a2a1e84 Improve documentation of etags
7ba75b9637 Teach etags new interpreters for some languages
1f7f03742d * lisp/emacs-lisp/generator.el (iter-defun): Add 'doc-stri...
dbb4aac212 * lisp/emacs-lisp/syntax.el (syntax-propertize): Fix bug#2...
80463a43da Improve documentation of fill-separate-heterogeneous-words...
4bd2416d55 Fix documentation of some x-* functions
9c2b11484f Inherit query-on-exit flag to stderr process (Bug#30031)
3efb1e7def Fix Bug#30057
a9b884c60f Tag some unstable tests, and skip by default (bug#24503)
# Conflicts:
# test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/process-tests.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/src/process-tests.el b/test/src/process-tests.el index 34309a5817d..7d355602297 100644 --- a/test/src/process-tests.el +++ b/test/src/process-tests.el | |||
| @@ -162,5 +162,24 @@ | |||
| 162 | (error nil)))) | 162 | (error nil)))) |
| 163 | (should (equal path samepath)))) | 163 | (should (equal path samepath)))) |
| 164 | 164 | ||
| 165 | (ert-deftest make-process/noquery-stderr () | ||
| 166 | "Checks that Bug#30031 is fixed." | ||
| 167 | (skip-unless (executable-find "sleep")) | ||
| 168 | (with-temp-buffer | ||
| 169 | (let* ((previous-processes (process-list)) | ||
| 170 | (process (make-process :name "sleep" | ||
| 171 | :command '("sleep" "1h") | ||
| 172 | :noquery t | ||
| 173 | :connection-type 'pipe | ||
| 174 | :stderr (current-buffer)))) | ||
| 175 | (unwind-protect | ||
| 176 | (let ((new-processes (cl-set-difference (process-list) | ||
| 177 | previous-processes | ||
| 178 | :test #'eq))) | ||
| 179 | (should new-processes) | ||
| 180 | (dolist (process new-processes) | ||
| 181 | (should-not (process-query-on-exit-flag process)))) | ||
| 182 | (kill-process process))))) | ||
| 183 | |||
| 165 | (provide 'process-tests) | 184 | (provide 'process-tests) |
| 166 | ;; process-tests.el ends here. | 185 | ;; process-tests.el ends here. |