mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-16 09:50:25 +00:00
Code Issues Releases Activity

Fix non-deterministic process test

Browse Source 
* test/src/process-tests.el (set-process-filter-t): Don't assume
subprocess output will come in a single chunk, keep waiting for more
data until next "prompt" is read from subprocess.

(cherry picked from commit aa49aa8840)
This commit is contained in:
Noam Postavsky 2019-08-22 20:48:19 -04:00
parent 8e420c09bc
commit 7e527af72c
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
test/src/process-tests.el
View File

@ -154,24 +154,30 @@
(concat invocation-directory invocation-name)
"-Q" "--batch" "--eval"
(prin1-to-string
'(let (s)
(while (setq s (read-from-minibuffer "$ "))
'(let ((s nil) (count 0))
(while (setq s (read-from-minibuffer
(format "%d> " count)))
(princ s)
(princ "\n")))))))
(princ "\n")
(setq count (1+ count))))))))
(set-process-query-on-exit-flag proc nil)
(send-string proc "one\n")
(should
(accept-process-output proc 1)) ; Read "one".
(should (equal (buffer-string) "$ one\n$ "))
(while (not (equal (buffer-substring
(line-beginning-position) (point-max))
"1> "))
(accept-process-output proc)) ; Read "one".
(should (equal (buffer-string) "0> one\n1> "))
(set-process-filter proc t) ; Stop reading from proc.
(send-string proc "two\n")
(should-not
(accept-process-output proc 1)) ; Can't read "two" yet.
(should (equal (buffer-string) "$ one\n$ "))
(should (equal (buffer-string) "0> one\n1> "))
(set-process-filter proc nil) ; Resume reading from proc.
(should
(accept-process-output proc 1)) ; Read "two" from proc.
(should (equal (buffer-string) "$ one\n$ two\n$ ")))))
(while (not (equal (buffer-substring
(line-beginning-position) (point-max))
"2> "))
(accept-process-output proc)) ; Read "Two".
(should (equal (buffer-string) "0> one\n1> two\n2> ")))))
(ert-deftest start-process-should-not-modify-arguments ()
"`start-process' must not modify its arguments in-place."