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

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.string io.encodings.utf8 io.files io.pipes
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
[ ] [
@ -200,3 +200,17 @@ IN: io.streams.limited.tests
[ 2 seek-absolute rot in>> stream-seek ] [ drop ] recover
2 swap stream-read
] 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