Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Improve last change

Browse source 
* test/src/process-tests.el (process-tests/broken-pipe): Use
CONNECTION-TYPE.
(process-tests/broken-pipe/pipe-all)
(process-tests/broken-pipe/pipe-stdin): Skip via 'skip-when'.
(process-tests/broken-pipe/pty)
(process-tests/broken-pipe/pty-stdin): Remove these invalid tests; EPIPE
from a PTY doesn't make sense.
This commit is contained in:
Jim Porter 2026-05-18 08:34:50 -07:00
parent e381cf1fc9
commit d4cb550dba
1 changed files with 9 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
test/src/process-tests.el
View file

@ -1073,7 +1073,7 @@ should also run to completion, printing out the line of text it read."
(message "closed stream")
(sit-for 1)
(message "%s" line))))
:connection-type 'pipe)))
:connection-type connection-type)))
(process-send-string proc "hello\n")
(while (not (string-prefix-p "closed stream\n" (buffer-string)))
(accept-process-output))
@ -1102,20 +1102,15 @@ should also run to completion, printing out the line of text it read."
;; These tests only works when running Emacs interactively, since we
;; don't catch SIGPIPE in batch mode. TODO: Fixing bug#66186 would
;; probably allow running these tests in batch mode.
(when (not noninteractive)
(ert-deftest process-tests/broken-pipe/pipe ()
(process-tests/broken-pipe 'pipe))
(ert-deftest process-tests/broken-pipe/pipe-all ()
(skip-when noninteractive)
(process-tests/broken-pipe 'pipe))
;; Emacs doesn't support PTYs on MS-Windows.
(unless (memq system-type '(ms-dos windows-nt))
(ert-deftest process-tests/broken-pipe/pty ()
(process-tests/broken-pipe 'pty))
(ert-deftest process-tests/broken-pipe/pipe-stdin ()
(process-tests/broken-pipe '(pipe . pty)))
(ert-deftest process-tests/broken-pipe/pty-stdin ()
(process-tests/broken-pipe '(pty . pipe)))))
(ert-deftest process-tests/broken-pipe/pipe-stdin ()
(skip-when (or noninteractive
;; Emacs doesn't support PTYs on MS-Windows.
(not (memq system-type '(ms-dos windows-nt)))))
(process-tests/broken-pipe '(pipe . pty)))
(ert-deftest process-num-processors ()
"Sanity checks for num-processors."