From 4ef46a9880c540bb283416d0d95dfef1d41224c8 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Mon, 3 Jun 2013 14:14:02 -0500 Subject: [PATCH] Check exit status in a RUN-SHELL-COMMAND test with verbose set. --- test/test-run-program.script | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/test/test-run-program.script b/test/test-run-program.script index 4af0b8fd..aee02ce9 100644 --- a/test/test-run-program.script +++ b/test/test-run-program.script @@ -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. -- GitLab