From 656696e62abf53470a7b96841bbfd67aba346e6a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Fri, 17 Mar 2017 09:32:03 +0100 Subject: [PATCH] tests: run-program: add test for various values for streams --- src/tests/normal-tests/run-program.lsp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/src/tests/normal-tests/run-program.lsp b/src/tests/normal-tests/run-program.lsp index aae6c52f6..c622bd90e 100644 --- a/src/tests/normal-tests/run-program.lsp +++ b/src/tests/normal-tests/run-program.lsp @@ -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+)