summaryrefslogtreecommitdiffstats
path: root/tests/010/strstream.txr
diff options
context:
space:
mode:
Diffstat (limited to 'tests/010/strstream.txr')
-rw-r--r--tests/010/strstream.txr11
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")))