diff --git a/test/test-run-program.script b/test/test-run-program.script index 58eedc5beb7e47f402d4c57ba55d02affdd06b8b..f5fc32cac948f09e5fd38e56210f964b9df38643 100644 --- a/test/test-run-program.script +++ b/test/test-run-program.script @@ -77,8 +77,7 @@ ;; NB1: run-shell-command is deprecated. Use run-program instead. ;; NB2: we do NOT support stderr capture to *verbose-out* anymore in run-shell-command. ;; If you want 2>&1 redirection, you know where to find it. -#-(and clozure os-windows) ;; http://trac.clozure.com/ccl/ticket/1118 -(assert-equal '(:ok 1) (run-program '("echo" ":ok 1") :output :forms)) +(assert-equal '(:ok 1) (run-program '("echo :ok 1") :output :forms)) (assert-equal "ok" (dewindowize (stripln (with-output-to-string (*standard-output*) (run-program "echo ok" :output t :error-output :output)))))