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

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

test/test-run-program.script

+8 −2
Original line number Diff line number Diff line
@@ -11,10 +11,16 @@ 
      (return (subseq x 0 (1- (length x)))))

    x))





(os-cond

 ((os-unix-p)

  (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))))

                (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)