From 33c555563bc63a12227eb0c5e3cccf5d7ff35569 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@real-time.com>
Date: Tue, 21 Dec 2010 16:47:54 -0600
Subject: [PATCH] Add a quick test for run-shell-command returning status.

---
 test/run-shell-command-test.script | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 test/run-shell-command-test.script

diff --git a/test/run-shell-command-test.script b/test/run-shell-command-test.script
new file mode 100644
index 00000000..823fc309
--- /dev/null
+++ b/test/run-shell-command-test.script
@@ -0,0 +1,10 @@
+;;; -*- Lisp -*-
+(load "script-support")
+(load-asdf)
+
+;;; test asdf run-shell-command function
+;;; Stas Bokuraev found (and fixed) a bug where on clisp asdf:run-shell-command might not return
+;;; the right value.  This attemtps to test for that.
+(quit-on-error
+ (assert (eql 1 (asdf:run-shell-command "/usr/bin/false")))
+ (assert (eql 0 (asdf:run-shell-command "/usr/bin/true"))))
-- 
GitLab