Commit 9ba454c4 authored by Elias Pipping's avatar Elias Pipping
Browse files

Fix hanging test on windows

parent 0a3268b0
Loading
Loading
Loading
Loading
+6 −3
Original line number Diff line number Diff line
@@ -51,7 +51,10 @@
 (multiple-value-bind (o e c)
     (run-program #+os-unix "cat ; echo bar  baz >&2 ; exit 42"
                  #+os-windows "findstr \"^\" & echo bar baz >&2 & exit 42"
		  :input '("foo") :output '(:string :stripped t) :error-output '(:string :stripped t)
                  ;; On some versions of windows, findstr hangs indefinitely
                  ;; when passed input without a trailing newline
                  :input '("foo" :terpri t)
                  :output '(:string :stripped t) :error-output '(:string :stripped t)
                  :ignore-error-status t)
   (DBG "aaa" o e c)
   (list (dewindowize o) (dewindowize e) c)))