Add test for in-stream reiteration

parent 2000e6df
......@@ -438,6 +438,15 @@
(reducing arg by op initial-value start))
13)
(deftest in-stream.reiter
(let ((s (make-string-input-stream "1 2 3 4 5")))
(iter (for n below 2)
(for line in-stream s))
(iter (for n below 2)
(for line in-stream s)
(collect line)))
(3 4))
(deftest reducing.0
(iter (with expr = '(2 + 10 - 5 + 6))
(with start = (pop expr))
......
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