1 ! Copyright (C) 2011 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: byte-arrays destructors io io.encodings.ascii
4 io.encodings.binary io.files io.streams.byte-array
5 io.streams.memory io.streams.peek io.streams.string kernel make
6 namespaces sequences strings tools.test ;
9 [ "abc" <string-reader> <peek-stream> stream-read1 ] unit-test
12 [ "abc" <string-reader> <peek-stream> stream-peek1 ] unit-test
15 [ "" <string-reader> <peek-stream> stream-peek1 ] unit-test
18 [ "abc" <string-reader> <peek-stream> stream-peek1 ] unit-test
21 [ "abc" <string-reader> <peek-stream> "c" swap stream-read-until ] unit-test
24 [ "ab" <string-reader> <peek-stream> "c" swap stream-read-until ] unit-test
28 "abc" <string-reader> <peek-stream>
35 "abc" <string-reader> <peek-stream>
41 "abc" <string-reader> <peek-stream>
42 2 over stream-peek drop
49 B{ 97 98 99 100 101 102 }
55 B{ 105 106 107 108 109 110 111 112 }
56 B{ 105 106 107 108 109 110 111 112 113 114 }
60 "abcdefghijklmnopqrstuvwxyz" >byte-array binary <byte-reader> <peek-stream>
88 "abcdefghijklmnopqrstuvwxyz" >byte-array ascii <byte-reader> <peek-stream>
110 B{ 8 9 10 11 12 13 14 15 }
111 B{ 8 9 10 11 12 13 14 15 16 17 }
117 26 <iota> >byte-array <memory-stream> <peek-stream>
126 10 swap stream-read ,
133 "resource:LICENSE.txt" binary [
134 input-stream [ <peek-stream> ] change
141 "resource:LICENSE.txt" binary [
142 input-stream [ <peek-stream> ] change