Commit 8fa46178 authored by pfdietz's avatar pfdietz

Fixed possible test bugs.

parent 42d93029
......@@ -29,7 +29,7 @@
(deftest clear-input.5
(with-input-from-string
(is "!?*")
(let ((*terminal-io* (make-two-way-stream is *standard-output*)))
(let ((*terminal-io* (make-two-way-stream is (make-broadcast-stream))))
(clear-input t)))
nil)
......
......@@ -28,7 +28,8 @@
(deftest clear-output.5
(let ((os (make-string-output-stream)))
(let ((*terminal-io* (make-two-way-stream *standard-input* os)))
(let ((*terminal-io* (make-two-way-stream (make-string-input-stream "")
os)))
(clear-output t)))
nil)
......
......@@ -27,7 +27,8 @@
(deftest finish-output.5
(let ((os (make-string-output-stream)))
(let ((*terminal-io* (make-two-way-stream *standard-input* os)))
(let ((*terminal-io* (make-two-way-stream (make-string-input-stream "")
os)))
(finish-output t)))
nil)
......
......@@ -27,7 +27,8 @@
(deftest force-output.5
(let ((os (make-string-output-stream)))
(let ((*terminal-io* (make-two-way-stream *standard-input* os)))
(let ((*terminal-io* (make-two-way-stream (make-string-input-stream "")
os)))
(force-output t)))
nil)
......
......@@ -50,7 +50,7 @@
(deftest listen.8
(with-input-from-string
(is "abc")
(let ((*terminal-io* (make-two-way-stream is *standard-output*)))
(let ((*terminal-io* (make-two-way-stream is (make-broadcast-stream))))
(notnot-mv (listen t))))
t)
......
......@@ -262,7 +262,7 @@
(deftest peek-char.22
(with-input-from-string
(is "!?*")
(let ((*terminal-io* (make-two-way-stream is *standard-output*)))
(let ((*terminal-io* (make-two-way-stream is (make-string-output-stream))))
(peek-char nil t)))
#\!)
......
......@@ -75,7 +75,7 @@
(deftest read-char-no-hang.9
(with-input-from-string
(is "!?*")
(let ((*terminal-io* (make-two-way-stream is *standard-output*)))
(let ((*terminal-io* (make-two-way-stream is (make-string-output-stream))))
(read-char-no-hang t)))
#\!)
......
......@@ -75,7 +75,7 @@
(deftest read-char.9
(with-input-from-string
(is "!?*")
(let ((*terminal-io* (make-two-way-stream is *standard-output*)))
(let ((*terminal-io* (make-two-way-stream is (make-string-output-stream))))
(read-char t)))
#\!)
......
......@@ -62,7 +62,8 @@
(deftest unread-char.5
(with-input-from-string
(is "abc")
(let ((*terminal-io* (make-two-way-stream is *standard-output*)))
(let ((*terminal-io* (make-two-way-stream
is (make-string-output-stream))))
(values
(read-char t)
(unread-char #\a t)
......
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