Commit 3c73a7a0 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

More test-run-program tweaking.

parent 3b8b6cad
...@@ -77,7 +77,7 @@ ...@@ -77,7 +77,7 @@
;; NB1: run-shell-command is deprecated. Use run-program instead. ;; NB1: run-shell-command is deprecated. Use run-program instead.
;; NB2: we do NOT support stderr capture to *verbose-out* anymore in run-shell-command. ;; NB2: we do NOT support stderr capture to *verbose-out* anymore in run-shell-command.
;; If you want 2>&1 redirection, you know where to find it. ;; If you want 2>&1 redirection, you know where to find it.
(assert-equal '(:ok 1) (run-program '("echo :ok 1") :output :forms)) (assert-equal '(:ok 1) (run-program "echo :ok 1" :output :forms))
(assert-equal "ok" (dewindowize (stripln (assert-equal "ok" (dewindowize (stripln
(with-output-to-string (*standard-output*) (with-output-to-string (*standard-output*)
(run-program "echo ok" :output t :error-output :output))))) (run-program "echo ok" :output t :error-output :output)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment