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 @@
(with-output-to-string (s)
(let ((*verbose-out* t)
(*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.")))))
;; 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.
Supports Markdown
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