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

tests: run-program: add test for escape-arguents (windows)

Browse source
This commit is contained in:
Daniel Kochmański 2017-03-17 09:37:08 +01:00
parent 656696e62a
commit 4256ac7e2b
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -35,7 +35,11 @@
(test arg-test
(is (equal '(nil :exited 0)
(with-run-program (arg-test ("a" "b c" "d \\" "e\ 4\\
")))) "ext:run-program doesn't escape arguments properly"))
")))) "ext:run-program doesn't escape arguments properly")
#+windows
(is-false (equal '(nil :exited 0)
(with-run-program (arg-test ("a" "b c" "d \\" "e\ 4\\
") :escape-arguments nil))) "ext:run-program doesn't escape arguments properly"))
(test output-streams
;; error is a separate stream