Commit 96d0679f authored by pfdietz's avatar pfdietz
Browse files

More tests of various stream operations on concatenated-streams

parent 52acf0af
......@@ -259,6 +259,42 @@
(open-stream-p s))))
t t t t nil)
(deftest make-concatenated-stream.28
(with-input-from-string
(s1 "a")
(let ((s (make-concatenated-stream s1)))
(notnot-mv (listen s))))
t)
(deftest make-concatenated-stream.28
(listen (make-concatenated-stream))
nil)
(deftest make-concatenated-stream.29
(with-input-from-string
(s1 "")
(let ((s (make-concatenated-stream s1)))
(listen s)))
nil)
(deftest make-concatenated-stream.30
(with-input-from-string
(s1 "")
(with-input-from-string
(s2 "a")
(let ((s (make-concatenated-stream s1 s2)))
(notnot-mv (listen s)))))
t)
(deftest make-concatenated-stream.31
(with-input-from-string
(s1 "")
(with-input-from-string
(s2 "")
(let ((s (make-concatenated-stream s1 s2)))
(listen s))))
nil)
;;; Error cases
(deftest make-concatenated-stream.error.1
......
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