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

! Copyright (C) 2010 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: destructors io io.encodings.binary io.encodings.utf8
io.files io.streams.byte-array io.streams.string
io.streams.throwing kernel namespaces tools.test ;
IN: io.streams.throwing.tests

[ "asdf" ]
[
    "asdf" [ [ 6 read-partial ] throw-on-eof ] with-string-reader
] unit-test

[
    "asdf" [ [ 4 read read1 ] throw-on-eof ] with-string-reader
] [ stream-exhausted? ] must-fail-with

[
    [
        "asdf" <string-reader> [
            4 read read1
        ] stream-throw-on-eof
    ] with-destructors
] [ stream-exhausted? ] must-fail-with

[
    "asdf" [ [ 5 read ] throw-on-eof ] with-string-reader
] [ stream-exhausted? ] must-fail-with

[
    "asdf" [ [ 4 read 4 read ] throw-on-eof ] with-string-reader
] [ stream-exhausted? ] must-fail-with

[ "as" "df" ] [
    "asdf" [ [ 2 read ] throw-on-eof 3 read ] with-string-reader
] unit-test

[ "as" "df\n" ] [
    "vocab:io/streams/throwing/asdf.txt" utf8 [
        [ 2 read ] throw-on-eof 20 read
    ] with-file-reader
] unit-test

[ B{ 0 1 2 3 } B{ 0 1 2 3 } ] [
    B{ 0 1 2 3 } binary [
        [ 4 read 0 seek-absolute seek-input 4 read ] throw-on-eof
    ] with-byte-reader
] unit-test

[
    B{ 0 1 2 3 } binary [
        [ 1 seek-absolute seek-input 4 read drop ] throw-on-eof
    ] with-byte-reader
] [ stream-exhausted? ] must-fail-with

[ "asd" CHAR: f ] [
    "asdf" [ [ "f" read-until ] throw-on-eof ] with-string-reader
] unit-test

[
    "asdf" [ [ "g" read-until ] throw-on-eof ] with-string-reader
] [ stream-exhausted? ] must-fail-with

{ 1 } [
    B{ 0 1 2 3 } binary [
        [ 1 seek-absolute seek-input tell-input ] throw-on-eof
    ] with-byte-reader
] unit-test

{ t 4 } [
    B{ 0 1 2 3 } binary [ [
        input-stream get [ stream-seekable? ] [ stream-length ] bi
    ] throw-on-eof ] with-byte-reader
] unit-test