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 ;
7 IN: io.streams.peek.tests
10 [ "abc" <string-reader> <peek-stream> stream-read1 ] unit-test
13 [ "abc" <string-reader> <peek-stream> stream-peek1 ] unit-test
16 [ "" <string-reader> <peek-stream> stream-peek1 ] unit-test
19 [ "abc" <string-reader> <peek-stream> stream-peek1 ] unit-test
22 [ "abc" <string-reader> <peek-stream> "c" swap stream-read-until ] unit-test
25 [ "ab" <string-reader> <peek-stream> "c" swap stream-read-until ] unit-test
29 "abc" <string-reader> <peek-stream>
36 "abc" <string-reader> <peek-stream>
42 "abc" <string-reader> <peek-stream>
43 2 over stream-peek drop
50 B{ 97 98 99 100 101 102 }
56 B{ 105 106 107 108 109 110 111 112 }
57 B{ 105 106 107 108 109 110 111 112 113 114 }
61 "abcdefghijklmnopqrstuvwxyz" >byte-array binary <byte-reader> <peek-stream>
89 "abcdefghijklmnopqrstuvwxyz" >byte-array ascii <byte-reader> <peek-stream>
111 B{ 8 9 10 11 12 13 14 15 }
112 B{ 8 9 10 11 12 13 14 15 16 17 }
118 26 iota >byte-array <memory-stream> <peek-stream>
127 10 swap stream-read ,
134 "resource:LICENSE.txt" binary [
135 input-stream [ <peek-stream> ] change
142 "resource:LICENSE.txt" binary [
143 input-stream [ <peek-stream> ] change