Commit 210b0601 authored by Robert Goldman's avatar Robert Goldman
Browse files

Test error output to stream.

parent ab2e5206
......@@ -205,6 +205,8 @@
(run-program (format nil "./ 0 ~a" output-string)
:error-output :output))
":output <file> (file e.)"
......@@ -380,6 +382,19 @@
(check-strings in-string out-string)
(close-streams process))))
":error-output :stream"
(let* ((error-output-string "Output to stream.")
(launch-program (format nil "./ 0 \"~a\" \"~a\"" output-string error-output-string)
:error-output :stream))
(error-output-stream (process-info-error-output process))
(wait-process process)
(setf error-output-line (read-line error-output-stream))
(handle-result "Expected error output to with error output stream?"
(equal error-output-string error-output-line))))
(defvar *dynamic-input*)
Supports Markdown
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