mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: run-program: add test for various values for streams

Browse source
This commit is contained in:
Daniel Kochmański 2017-03-17 09:32:03 +01:00
parent a307623564
commit 656696e62a
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -31,6 +31,7 @@
(last nil line))
((eql line :eof) last)))
(test arg-test
(is (equal '(nil :exited 0)
(with-run-program (arg-test ("a" "b c" "d \\" "e\ 4\\
@ -58,6 +59,20 @@
;; process will have :eof on input and should quit with "1"
(is-equal '(nil :exited 1) (with-run-program (io/err nil :input nil))))
(test stream-values
(is-equal '(nil :exited 0)
(with-run-program (print-test nil :output nil :error nil :input nil)))
(is-equal '(nil :exited 0)
(with-run-program (print-test nil :output nil :error :output :input nil)))
(is-equal '(nil :exited 0)
(with-run-program (print-test nil :output nil :error :output :input :stream)))
(is-equal '(nil :exited 0)
(with-run-program (print-test nil :output :stream :error :output :input :stream)))
(is-equal '(nil :exited 0)
(with-run-program (print-test nil :output :stream :error :stream :input :stream)))
(signals simple-error
(with-run-program (print-test nil :output :bam :error :stream :input :stream))))
(test terminate-process
(is-equal `(t :signaled ,ext:+sigterm+)