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