Commit 4b21e1a5 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

More windows run-program test twiddling.

parent 9ad1191a
......@@ -245,7 +245,8 @@ Testing run-program
;; a basic smoke test
(assert-equal "ok" (dewindowize (run-program '("cmd" "/c" "echo" "ok") :output :line)))
(assert-equal "ok 1" (dewindowize (run-program "echo ok 1" :output :line)))
#-clozure ;; http://trac.clozure.com/ccl/ticket/1118
(assert-equal "ok 1" (dewindowize (run-program '("echo" "ok 1") :output :line)))
t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment