Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tarn Burton
asdf
Commits
210b0601
Commit
210b0601
authored
Nov 18, 2020
by
Robert Goldman
Browse files
Test error output to stream.
parent
ab2e5206
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-run-program-unix.script
View file @
210b0601
...
...
@@ -205,6 +205,8 @@
(run-program (format nil "./exiter.sh 0 ~a" output-string)
:error-output :output))
(define-test
":output <file> (file e.)"
(progn
...
...
@@ -380,6 +382,19 @@
(check-strings in-string out-string)
(close-streams process))))
(define-test
":error-output :stream"
(let* ((error-output-string "Output to stream.")
(process
(launch-program (format nil "./exiter.sh 0 \"~a\" \"~a\"" output-string error-output-string)
:error-output :stream))
(error-output-stream (process-info-error-output process))
error-output-line)
(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*)
(define-test
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment