1 files changed, 11 insertions, 0 deletions
diff --git a/tests/010/strstream.txr b/tests/010/strstream.txr
new file mode 100644
index 00000000..5800172e
--- /dev/null
+++ b/tests/010/strstream.txr
@@ -0,0 +1,11 @@
+@(do 
+   (defun lazy-byte-stream (s)
+     (let (ch) (gen (set ch (get-byte s)) ch)))
+
+   (let* ((data "春が来た (Haru-ga Kita/Spring has Come)")
+          (in-byte (make-string-byte-input-stream data))
+          (out-byte (make-string-output-stream)))
+     (each ((b (lazy-byte-stream in-byte)))
+       (put-byte b out-byte))
+     (print (get-string-from-stream out-byte))
+     (pprint "\n")))