From 759970494c047a9e64862763a6eb0a9f7c8c89df Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@real-time.com>
Date: Fri, 24 Dec 2010 10:55:08 -0600
Subject: [PATCH] Less Baroque solution.  Drop the pathnames altogether.

---
 test/run-shell-command-test.script | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/test/run-shell-command-test.script b/test/run-shell-command-test.script
index 216424fb..b0fd2901 100644
--- a/test/run-shell-command-test.script
+++ b/test/run-shell-command-test.script
@@ -8,10 +8,7 @@
 (unless (some #'(lambda (x) (member x *features*))
               '(:win :windows :mswindows :win32 :mingw32))
   (quit-on-error
-   (let ((true-false-dir
-          (cond ((probe-file "/bin/true") "/bin/")
-                ((probe-file "/usr/bin/true") "/usr/bin/")
-                (t (error "Unable to find the standard true binary.")))))
-     (assert (eql 1 (asdf:run-shell-command (concatenate 'string true-false-dir "false"))))
-     (assert (eql 0 (asdf:run-shell-command (concatenate 'string true-false-dir "true")))))))
+   (assert (eql 1 (asdf:run-shell-command "false")))
+   (assert (eql 0 (asdf:run-shell-command "true")))))
+
 
-- 
GitLab