63 lines
1.2 KiB
Factor
63 lines
1.2 KiB
Factor
IN: temporary
|
|
USING: io kernel math parser strings test ;
|
|
|
|
[ 4 ] [ "/library/test/io/no-trailing-eol.factor" run-resource ] unit-test
|
|
|
|
: lines-test ( stream -- line1 line2 )
|
|
[ readln readln ] with-stream ;
|
|
|
|
[
|
|
"This is a line."
|
|
"This is another line."
|
|
] [
|
|
"/library/test/io/windows-eol.txt" <resource-stream> lines-test
|
|
] unit-test
|
|
|
|
[
|
|
"This is a line."
|
|
"This is another line."
|
|
] [
|
|
"/library/test/io/mac-os-eol.txt" <resource-stream> lines-test
|
|
] unit-test
|
|
|
|
[
|
|
"This is a line."
|
|
"This is another line."
|
|
] [
|
|
"/library/test/io/unix-eol.txt" <resource-stream> lines-test
|
|
] unit-test
|
|
|
|
[
|
|
"This is a line.\rThis is another line.\r"
|
|
] [
|
|
"/library/test/io/mac-os-eol.txt" <resource-stream>
|
|
[ 500 read ] with-stream
|
|
] unit-test
|
|
|
|
[
|
|
255
|
|
] [
|
|
"/library/test/io/binary.txt" <resource-stream>
|
|
[ read1 ] with-stream >fixnum
|
|
] unit-test
|
|
|
|
! Make sure we use correct to_c_string form when writing
|
|
[ ] [ "\0" write ] unit-test
|
|
|
|
[ -1 read ] unit-test-fails
|
|
|
|
[ "" ] [ 0 read ] unit-test
|
|
|
|
! [ ] [ "123" write 9000 CHAR: x <string> write flush ] unit-test
|
|
|
|
[ "line 1" CHAR: l ]
|
|
[
|
|
"line 1\nline 2\nline 3" <string-reader>
|
|
dup stream-readln swap stream-read1
|
|
]
|
|
unit-test
|
|
|
|
[ f ]
|
|
[ "" <string-reader> stream-readln ]
|
|
unit-test
|