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

add unit test for c stream-tell

db4
Doug Coleman 2009-10-03 19:07:16 -05:00
parent 00efd780c9
commit 1d41f4c66c
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/io/streams/c/c-tests.factor
View File

@ -1,5 +1,5 @@
USING: tools.test io.files io.files.temp io io.streams.c USING: tools.test io.files io.files.temp io io.streams.c
io.encodings.ascii strings ; io.encodings.ascii strings destructors kernel ;
IN: io.streams.c.tests IN: io.streams.c.tests
[ "hello world" ] [ [ "hello world" ] [
@ -8,3 +8,12 @@ IN: io.streams.c.tests
"test.txt" temp-file "rb" fopen <c-reader> stream-contents "test.txt" temp-file "rb" fopen <c-reader> stream-contents
>string >string
] unit-test ] unit-test
[ 0 ]
[ "test.txt" temp-file "rb" fopen <c-reader> [ stream-tell ] [ dispose ] bi ] unit-test
[ 3 ] [
"test.txt" temp-file "rb" fopen <c-reader>
3 over stream-read drop
[ stream-tell ] [ dispose ] bi
] unit-test