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