26 lines
720 B
Factor
26 lines
720 B
Factor
USING: destructors io io.directories io.encodings.binary
|
|
io.files io.files.temp kernel libc math sequences
|
|
specialized-arrays.instances.alien.c-types.int tools.test ;
|
|
IN: io.ports.tests
|
|
|
|
! Make sure that writing malloced storage to a file works, and
|
|
! also make sure that writes larger than the buffer size work
|
|
|
|
[ ] [
|
|
"test.txt" temp-file binary [
|
|
[
|
|
100,000 iota
|
|
0
|
|
100,000 malloc-int-array &free [ copy ] keep write
|
|
] with-destructors
|
|
] with-file-writer
|
|
] unit-test
|
|
|
|
[ t ] [
|
|
"test.txt" temp-file binary [
|
|
100,000 4 * read int-array-cast 100,000 iota sequence=
|
|
] with-file-reader
|
|
] unit-test
|
|
|
|
[ ] [ "test.txt" temp-file delete-file ] unit-test
|