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

Fix hanging test on windows

parent 0a3268b0

test/test-run-program.script

+4 −1
Changes for test/test-run-program.script: 4 added lines, 1 removed line.
Original line number Original line Diff line number Diff line
@@ -51,7 +51,10 @@ 
 (multiple-value-bind (o e c)

 (multiple-value-bind (o e c)

     (run-program #+os-unix "cat ; echo bar  baz >&2 ; exit 42"

     (run-program #+os-unix "cat ; echo bar  baz >&2 ; exit 42"

                  #+os-windows "findstr \"^\" & 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)

                  :ignore-error-status t)

   (DBG "aaa" o e c)

   (DBG "aaa" o e c)

   (list (dewindowize o) (dewindowize e) c)))

   (list (dewindowize o) (dewindowize e) c)))