Commit 0c7a104f authored by Elias Pipping's avatar Elias Pipping

Test with ipconfig instead of echo on windows

cmd has an echo command. but there is no binary by that name without cygwin
parent 73583e56
......@@ -11,10 +11,16 @@
(return (subseq x 0 (1- (length x)))))
x))
(DBG "Testing echo ok 1 via run-program as a list")
(assert-equal "ok 1"
(dewindowize (run-program '("echo" "ok" "1") :output '(:string :stripped t))))
(os-cond
((os-unix-p)
(DBG "Testing echo ok 1 via run-program as a list")
(assert-equal "ok 1"
(run-program '("echo" "ok" "1") :output '(:string :stripped t))))
((os-windows-p)
(DBG "Testing ipconfig /all via run-progam as a string")
(run-program "ipconfig /all")
(DBG "Testing ipconfig /all via run-progam as a list")
(run-program '("ipconfig" "/all"))))
#+(and sbcl os-windows)
(leave-test "SBCL won't let us pass unquoted arguments to cmd.exe" 0)
......
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