diff options
Diffstat (limited to 'tests/010/strstream.txr')
-rw-r--r-- | tests/010/strstream.txr | 11 |
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"))) |