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

test/test-run-program.script

+3 −1
Original line number Diff line number Diff line
@@ -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.")))))

   ok1))

;; 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.