Loading test/test-run-program.script +6 −3 Original line number Diff line number Diff line Loading @@ -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))) Loading Loading
test/test-run-program.script +6 −3 Original line number Diff line number Diff line Loading @@ -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))) Loading