sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a failing test for run-program :wait nil

Browse source 
In this test, the EOF on the virtual input stream to the process is not
propagated to the child process, resulting in the test hanging.
This commit is contained in:
Eric Timmons 2020-06-26 13:07:26 -04:00
parent c1b5aee6de
commit 6cbec9fe2b
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/tests/normal-tests/run-program.lsp
View file

@ -142,6 +142,20 @@
(is (null (zerop (length (get-output-stream-string error-stream)))))
(mapc #'close (list output-stream error-stream)))))
#+threads
(test empty-string-input-stream
(with-output-to-string (output-stream)
(with-output-to-string (error-stream)
(with-input-from-string (input-stream "")
(is-equal '(nil :exited 1)
(with-run-program (io/err nil
:input input-stream
:output output-stream
:error error-stream))))
(is (null (zerop (length (get-output-stream-string output-stream)))))
(is (null (zerop (length (get-output-stream-string error-stream)))))
(mapc #'close (list output-stream error-stream)))))
#-threads
(test no-fd-streams
(with-output-to-string (output-stream)