unmaintained/io/test/io.factor

   1 USING: calendar errors io kernel libs-io math namespaces sequences\r
   2 shell test ;\r
   3 IN: temporary\r
   4 \r
   5 SYMBOL: file "file-appender-test.txt" \ file set\r
   6 [ \ file get delete-file ] catch drop\r
   7 [ f ] [ \ file get exists? ] unit-test\r
   8 \ file get <file-appender> [ "asdf" write ] with-stream\r
   9 [ t ] [ \ file get exists? ] unit-test\r
  10 [ 4 ] [ \ file get file-length ] unit-test\r
  11 \ file get <file-appender> [ "jkl;" write ] with-stream\r
  12 [ t ] [ \ file get exists? ] unit-test\r
  13 [ 8 ] [ \ file get file-length ] unit-test\r
  14 [ "asdfjkl;" ] [ \ file get <file-reader> contents ] unit-test\r
  15 \ file get delete-file\r
  16 [ f ] [ \ file get exists? ] unit-test\r
  17 \r
  18 SYMBOL: directory "test-directory" \ directory set\r
  19 \ directory get create-directory\r
  20 [ t ] [ \ directory get directory? ] unit-test\r
  21 \ directory get delete-directory\r
  22 [ f ] [ \ directory get directory? ] unit-test\r
  23 \r
  24 SYMBOL: time "time-test.txt" \ time set\r
  25 [ \ time get delete-file ] catch drop\r
  26 \ time get touch-file\r
  27 [ 0 ] [ \ time get file-length ] unit-test\r
  28 [ t ] [ \ time get exists? ] unit-test\r
  29 \ time get 0 unix-time>timestamp dup set-file-times\r
  30 [ t ] [ \ time get file-write-time 0 unix-time>timestamp = ] unit-test\r
  31 [ t ] [ \ time get file-access-time 0 unix-time>timestamp = ] unit-test\r
  32 \ time get touch-file\r
  33 [ t ] [ now \ time get file-write-time timestamp- 10 < ] unit-test\r
  34 \ time get delete-file\r
  35 \r
  36 SYMBOL: longname "" 255 CHAR: a pad-left \ longname set\r
  37 \ longname get touch-file\r
  38 [ t ] [ \ longname get exists? ] unit-test\r
  39 [ 0 ] [ \ longname get file-length ] unit-test\r
  40 \ longname get delete-file\r
  41 [ f ] [ \ longname get exists? ] unit-test\r
  42 \r