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