Loading test/test-run-program.script +3 −5 Original line number Original line Diff line number Diff line Loading @@ -25,11 +25,9 @@ #+(and sbcl os-windows) #+(and sbcl os-windows) (leave-test "SBCL won't let us pass unquoted arguments to cmd.exe" 0) (leave-test "SBCL won't let us pass unquoted arguments to cmd.exe" 0) #-(and sbcl os-windows) (progn (DBG "Testing echo ok 1 via run-program as a string") (DBG "Testing echo ok 1 via run-program as a string") (assert-equal "ok 1" (assert-equal "ok 1" (dewindowize (run-program "echo ok 1" :output '(:string :stripped t))))) (dewindowize (run-program "echo ok 1" :output '(:string :stripped t)))) ;;; test asdf run-shell-command function ;;; test asdf run-shell-command function (setf *verbose-out* nil) (setf *verbose-out* nil) Loading Loading
test/test-run-program.script +3 −5 Original line number Original line Diff line number Diff line Loading @@ -25,11 +25,9 @@ #+(and sbcl os-windows) #+(and sbcl os-windows) (leave-test "SBCL won't let us pass unquoted arguments to cmd.exe" 0) (leave-test "SBCL won't let us pass unquoted arguments to cmd.exe" 0) #-(and sbcl os-windows) (progn (DBG "Testing echo ok 1 via run-program as a string") (DBG "Testing echo ok 1 via run-program as a string") (assert-equal "ok 1" (assert-equal "ok 1" (dewindowize (run-program "echo ok 1" :output '(:string :stripped t))))) (dewindowize (run-program "echo ok 1" :output '(:string :stripped t)))) ;;; test asdf run-shell-command function ;;; test asdf run-shell-command function (setf *verbose-out* nil) (setf *verbose-out* nil) Loading