Commit 4ef46a98 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Check exit status in a RUN-SHELL-COMMAND test with verbose set.

parent 56cec7c3
...@@ -25,7 +25,9 @@ ...@@ -25,7 +25,9 @@
(with-output-to-string (s) (with-output-to-string (s)
(let ((*verbose-out* t) (let ((*verbose-out* t)
(*standard-output* s)) (*standard-output* s))
(run-shell-command "echo ok ~D" 1))) (let ((status (run-shell-command "echo ok ~D" 1)))
(unless (zerop status)
(error "Didn't get good exit status.")))))
ok1)) ok1))
;; 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.
......
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