steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

better tests for stream-tell

db4
Doug Coleman 2009-10-03 19:33:54 -05:00
parent ed1636a0c0
commit 770405359e
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/io/streams/limited/limited-tests.factor
View File

@ -2,7 +2,7 @@ USING: accessors continuations destructors io io.encodings
io.encodings.8-bit io.encodings.ascii io.encodings.binary io.encodings.8-bit io.encodings.ascii io.encodings.binary
io.encodings.string io.encodings.utf8 io.files io.pipes io.encodings.string io.encodings.utf8 io.files io.pipes
io.streams.byte-array io.streams.limited io.streams.string io.streams.byte-array io.streams.limited io.streams.string
kernel namespaces strings tools.test ; kernel namespaces strings tools.test system ;
IN: io.streams.limited.tests IN: io.streams.limited.tests
[ ] [ [ ] [
@ -200,3 +200,17 @@ IN: io.streams.limited.tests
[ 2 seek-absolute rot in>> stream-seek ] [ drop ] recover [ 2 seek-absolute rot in>> stream-seek ] [ drop ] recover
2 swap stream-read 2 swap stream-read
] unit-test ] unit-test
[ 7 ] [
image binary stream-throws <limited-file-reader> [
7 read drop
tell-input
] with-input-stream
] unit-test
[ 70000 ] [
image binary stream-throws <limited-file-reader> [
70000 read drop
tell-input
] with-input-stream
] unit-test