1 USING: destructors io io.encodings io.encodings.8-bit.latin1
2 io.encodings.ascii io.encodings.binary io.encodings.string
3 io.encodings.utf8 io.files io.pipes io.streams.byte-array
4 io.streams.duplex io.streams.limited io.streams.string kernel
5 namespaces strings tools.test ;
8 "hello world\nhow are you today\nthis is a very long line indeed"
9 ascii encode binary <byte-reader> "data" set
12 { } [ "data" get 24 <limited-stream> "limited" set ] unit-test
14 { CHAR: h } [ "limited" get stream-read1 ] unit-test
16 { } [ "limited" get ascii <decoder> "decoded" set ] unit-test
18 { "ello world" } [ "decoded" get stream-readln ] unit-test
20 { "how " } [ 4 "decoded" get stream-read ] unit-test
22 { "are you " } [ "decoded" get stream-readln ] unit-test
24 { f } [ "decoded" get stream-readln ] unit-test
28 ascii encode binary <byte-reader> "data" set
31 { } [ "data" get 4 <limited-stream> "limited" set ] unit-test
34 [ "\n" "limited" get stream-read-until [ >string ] dip ] unit-test
36 { "" f } [ "\n" "limited" get stream-read-until [ >string ] dip ] unit-test
39 [ "a" <string-reader> 1 <limited-stream> stream-read1 ] unit-test
43 "abc" <string-reader> 3 <limited-stream>
49 "abc" <string-reader> 3 <limited-stream>
50 4 over stream-read drop 10 swap stream-read
53 ! pipes are duplex and not seekable
56 input-stream [ 2 <limited-stream> ] change
57 "asdf" write flush 2 read
63 input-stream [ 2 <limited-stream> ] change
64 "asdf" write flush 3 read
68 ! test seeking on limited unseekable streams
71 input-stream [ 2 <limited-stream> ] change
72 "asdf" write flush 2 read
78 input-stream [ 2 <limited-stream> ] change
79 "asdf" write flush 3 read
85 "abc" <string-reader> 3 limit-stream unlimit-stream
86 "abc" <string-reader> =
91 "abc" <string-reader> 3 limit-stream unlimit-stream
92 "abc" <string-reader> =
98 "resource:LICENSE.txt" utf8 <file-reader> &dispose
99 3 limit-stream unlimit-stream
100 "resource:LICENSE.txt" utf8 <file-reader> &dispose
106 "asdf" <string-reader> 2 <limited-stream> [
107 unlimited-input contents
112 "asdf" <string-reader> 2 <limited-stream> [
113 [ contents ] with-unlimited-input
118 "asdfgh" <string-reader> 4 <limited-stream> [
120 [ contents drop ] with-unlimited-input
122 [ contents ] with-unlimited-input
126 { 4 } [ B{ 0 1 2 3 4 5 } binary <byte-reader> 4 <limited-stream> stream-length ] unit-test
127 { 6 } [ B{ 0 1 2 3 4 5 } binary <byte-reader> 8 <limited-stream> stream-length ] unit-test