diff --git a/test/run-shell-command-test.script b/test/run-shell-command-test.script index 6c490bfeade8746b4cad3eb80343dbc24454a18f..216424fbcb90268db715204656969e2b911408d2 100644 --- a/test/run-shell-command-test.script +++ b/test/run-shell-command-test.script @@ -4,7 +4,14 @@ ;;; test asdf run-shell-command function ;;; Stas Boukarev 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")))) +;;; the right value. This attempts to test for that. +(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"))))))) +