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

Test error output to stream.

parent ab2e5206
...@@ -205,6 +205,8 @@ ...@@ -205,6 +205,8 @@
(run-program (format nil "./ 0 ~a" output-string) (run-program (format nil "./ 0 ~a" output-string)
:error-output :output)) :error-output :output))
(define-test (define-test
":output <file> (file e.)" ":output <file> (file e.)"
(progn (progn
...@@ -380,6 +382,19 @@ ...@@ -380,6 +382,19 @@
(check-strings in-string out-string) (check-strings in-string out-string)
(close-streams process)))) (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*) (defvar *dynamic-input*)
(define-test (define-test
Markdown is supported
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