Commit e5962d73 authored by Breanndán Ó Nualláin's avatar Breanndán Ó Nualláin
Browse files

Add test for in-stream reiteration

parent 2000e6df
...@@ -438,6 +438,15 @@ ...@@ -438,6 +438,15 @@
(reducing arg by op initial-value start)) (reducing arg by op initial-value start))
13) 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 (deftest reducing.0
(iter (with expr = '(2 + 10 - 5 + 6)) (iter (with expr = '(2 + 10 - 5 + 6))
(with start = (pop expr)) (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