factor/basis/io/streams/limited/limited-tests.factor

USING: accessors continuations destructors io io.encodings
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 system
io.encodings.8-bit.latin1 ;
IN: io.streams.limited.tests

[ ] [
    "hello world\nhow are you today\nthis is a very long line indeed"
    ascii encode binary <byte-reader> "data" set
] unit-test

[ ] [ "data" get 24 stream-throws <limited-stream> "limited" set ] unit-test

[ CHAR: h ] [ "limited" get stream-read1 ] unit-test

[ ] [ "limited" get ascii <decoder> "decoded" set ] unit-test

[ "ello world" ] [ "decoded" get stream-readln ] unit-test

[ "how " ] [ 4 "decoded" get stream-read ] unit-test

[ "decoded" get stream-readln ] [ limit-exceeded? ] must-fail-with

[ ] [
    "abc\ndef\nghi"
    ascii encode binary <byte-reader> "data" set
] unit-test

[ ] [ "data" get 7 stream-throws <limited-stream> "limited" set ] unit-test

[ "abc" CHAR: \n ] [ "\n" "limited" get stream-read-until [ >string ] dip ] unit-test

[ "\n" "limited" get stream-read-until ] [ limit-exceeded? ] must-fail-with

[ "he" CHAR: l ] [
    B{ CHAR: h CHAR: e CHAR: l CHAR: l CHAR: o }
    ascii <byte-reader> [
        5 stream-throws limit-input
        "l" read-until
    ] with-input-stream
] unit-test

[ CHAR: a ]
[ "a" <string-reader> 1 stream-eofs <limited-stream> stream-read1 ] unit-test

[ "abc" ]
[
    "abc" <string-reader> 3 stream-eofs <limited-stream>
    4 swap stream-read
] unit-test

[ f ]
[
    "abc" <string-reader> 3 stream-eofs <limited-stream>
    4 over stream-read drop 10 swap stream-read
] unit-test

[ t ]
[
    "abc" <string-reader> 3 stream-eofs limit unlimited
    "abc" <string-reader> =
] unit-test

[ t ]
[
    "abc" <string-reader> 3 stream-eofs limit unlimited
    "abc" <string-reader> =
] unit-test

[ t ]
[
    [
        "resource:license.txt" utf8 <file-reader> &dispose
        3 stream-eofs limit unlimited
        "resource:license.txt" utf8 <file-reader> &dispose
        [ decoder? ] both?
    ] with-destructors
] unit-test

[ "HELL" ] [
    "HELLO"
    [ f stream-throws limit-input 4 read ]
    with-string-reader
] unit-test


[ "asdf" ] [
    "asdf" <string-reader> 2 stream-eofs <limited-stream> [
        unlimited-input contents
    ] with-input-stream
] unit-test

[ 4 ] [
    "abcdefgh" <string-reader> 4 stream-throws <limited-stream> [
        4 seek-relative seek-input tell-input
    ] with-input-stream
] unit-test

[
    "abcdefgh" <string-reader> 4 stream-throws <limited-stream> [
        4 seek-relative seek-input
        4 read
    ] with-input-stream
] [
    limit-exceeded?
] must-fail-with

[
    "abcdefgh" <string-reader> 4 stream-throws <limited-stream> [
        4 seek-relative seek-input
        -2 seek-relative
        2 read
    ] with-input-stream
] [
    limit-exceeded?
] must-fail-with

[
    "abcdefgh" <string-reader> [
        4 seek-relative seek-input
        2 stream-throws limit-input
        -2 seek-relative seek-input
        2 read
    ] with-input-stream
] [
    limit-exceeded?
] must-fail-with

[ "ef" ] [
    "abcdefgh" <string-reader> [
        4 seek-relative seek-input
        2 stream-throws limit-input
        4 seek-absolute seek-input
        2 read
    ] with-input-stream
] unit-test

[ "ef" ] [
    "abcdefgh" <string-reader> [
        4 seek-absolute seek-input
        2 stream-throws limit-input
        2 seek-absolute seek-input
        4 seek-absolute seek-input
        2 read
    ] with-input-stream
] unit-test

! stream-throws, pipes are duplex and not seekable
[ "as" ] [
    latin1 <pipe> [ 2 stream-throws <limited-stream> ] change-in
    "asdf" over stream-write dup stream-flush
    2 swap stream-read
] unit-test

[
    latin1 <pipe> [ 2 stream-throws <limited-stream> ] change-in
    "asdf" over stream-write dup stream-flush
    3 swap stream-read
] [
    limit-exceeded?
] must-fail-with

! stream-eofs, pipes are duplex and not seekable
[ "as" ] [
    latin1 <pipe> [ 2 stream-eofs <limited-stream> ] change-in
    "asdf" over stream-write dup stream-flush
    2 swap stream-read
] unit-test

[ "as" ] [
    latin1 <pipe> [ 2 stream-eofs <limited-stream> ] change-in
    "asdf" over stream-write dup stream-flush
    3 swap stream-read
] unit-test

! test seeking on limited unseekable streams
[ "as" ] [
    latin1 <pipe> [ 2 stream-eofs <limited-stream> ] change-in
    "asdf" over stream-write dup stream-flush
    2 swap stream-read
] unit-test

[ "as" ] [
    latin1 <pipe> [ 2 stream-eofs <limited-stream> ] change-in
    "asdf" over stream-write dup stream-flush
    3 swap stream-read
] unit-test

[
    latin1 <pipe> [ 2 stream-throws <limited-stream> ] change-in
    2 seek-absolute rot in>> stream-seek
] must-fail

[
    "as"
] [
    latin1 <pipe> [ 2 stream-throws <limited-stream> ] change-in
    "asdf" over stream-write dup stream-flush
    [ 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