basis/io/mmap/mmap-tests.factor

   1 USING: io io.mmap io.files io.files.temp io.directories kernel
   2 tools.test continuations sequences io.encodings.ascii accessors
   3 math compiler.tree.debugger alien.data alien.c-types
   4 sequences.private ;
   5 IN: io.mmap.tests
   6
   7 [ "mmap-test-file.txt" temp-file delete-file ] ignore-errors
   8 [ ] [ "12345" "mmap-test-file.txt" temp-file ascii set-file-contents ] unit-test
   9 [ ] [ "mmap-test-file.txt" temp-file [ char <mapped-array> CHAR: 2 0 pick set-nth drop ] with-mapped-file ] unit-test
  10 [ 5 ] [ "mmap-test-file.txt" temp-file [ char <mapped-array> length ] with-mapped-file ] unit-test
  11 [ 5 ] [ "mmap-test-file.txt" temp-file [ char <mapped-array> length ] with-mapped-file-reader ] unit-test
  12 [ "22345" ] [ "mmap-test-file.txt" temp-file ascii file-contents ] unit-test
  13 [ "mmap-test-file.txt" temp-file delete-file ] ignore-errors
  14
  15
  16 [ "mmap-empty-file.txt" temp-file delete-file ] ignore-errors
  17 [ ] [ "mmap-empty-file.txt" temp-file touch-file ] unit-test
  18
  19 [
  20     "mmap-empty-file.txt" temp-file [
  21         drop
  22     ] with-mapped-file
  23 ] [ bad-mmap-size? ] must-fail-with
  24
  25 [ t ] [
  26     [ "test.txt" <mapped-file> void* <c-direct-array> first-unsafe ]
  27     { nth-unsafe } inlined?
  28 ] unit-test