mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 11:40:45 -07:00
Code Issues Projects Releases Packages Wiki Activity

environ: add regression tests

Browse source 
Fixes #298.
This commit is contained in:
Daniel Kochmanski 2017-09-05 20:35:44 +02:00
parent 7db4543051
commit fff97049ff
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -136,3 +136,17 @@
(is-not (zerop (length (get-output-stream-string error-stream))))
(mapc #'close (list output-stream error-stream))))
#-windows
(test process-environ
(is (read-line (ext:run-program "env" nil) nil nil))
(is (read-line (ext:run-program "env" nil :environ '("foo=bar")) nil nil))
(is (read-line (ext:run-program "env" nil :environ :default) nil nil))
(signals simple-error (ext:run-program "env" nil :environ :bam) nil nil)
(is (null (slurp (ext:run-program "/usr/bin/env" nil :environ nil)))))
#+windows
(test process-environ
;; This tests need to be implemented when access to Windows platform
;; is granted (before the release). Program to use is `set', not
;; sure if it is part of Windows shell or something we can run.
(is (null "IMPLEMENT ME!")))