factor/core/io/io-tests.factor

USING: arrays io io.files kernel math parser strings system
tools.test words namespaces io.encodings.latin1
io.encodings.binary ;
IN: io.tests

[ f ] [
    "resource:/core/io/test/no-trailing-eol.factor" run-file
    "foo" "io.tests" lookup
] unit-test

: <resource-reader> ( resource -- stream )
    resource-path latin1 <file-reader> ;

[
    "This is a line.\rThis is another line.\r"
] [
    "/core/io/test/mac-os-eol.txt" <resource-reader>
    [ 500 read ] with-stream
] unit-test

[
    255
] [
    "/core/io/test/binary.txt" <resource-reader>
    [ read1 ] with-stream >fixnum
] unit-test

! Make sure we use correct to_c_string form when writing
[ ] [ "\0" write ] unit-test

[ "" ] [ 0 read ] unit-test

! [ ] [ "123" write 9000 CHAR: x <string> write flush ] unit-test

[
    "/core/io/test/binary.txt" <resource-reader>
    [ 0.2 read ] with-stream
] must-fail

[
    {
        { "It seems " CHAR: J }
        { "obs has lost h" CHAR: i }
        { "s grasp on reality again.\n" f }
    }
] [
    [
        "/core/io/test/separator-test.txt" <resource-reader> [
            "J" read-until 2array ,
            "i" read-until 2array ,
            "X" read-until 2array ,
        ] with-stream
    ] { } make
] unit-test

[ ] [
    image binary [
        10 [ 65536 read drop ] times
    ] with-file-reader
] unit-test