core/io/files/files-tests.factor

   1 IN: temporary
   2 USING: tools.test io.files io threads kernel ;
   3
   4 [ "passwd" ] [ "/etc/passwd" file-name ] unit-test
   5 [ "awk/" ] [ "/usr/libexec/awk/" file-name ] unit-test
   6
   7 [ ] [
   8     "test-foo.txt" resource-path <file-writer> [
   9         "Hello world." print
  10     ] with-stream
  11 ] unit-test
  12
  13 [ ] [
  14     "test-foo.txt" resource-path <file-appender> [
  15         "Hello appender." print
  16     ] with-stream
  17 ] unit-test
  18
  19 [ ] [
  20     "test-bar.txt" resource-path <file-appender> [
  21         "Hello appender." print
  22     ] with-stream
  23 ] unit-test
  24
  25 [ "Hello world.\nHello appender.\n" ] [
  26     "test-foo.txt" resource-path <file-reader> contents
  27 ] unit-test
  28
  29 [ "Hello appender.\n" ] [
  30     "test-bar.txt" resource-path <file-reader> contents
  31 ] unit-test
  32
  33 [ ] [ "test-foo.txt" resource-path delete-file ] unit-test
  34
  35 [ ] [ "test-bar.txt" resource-path delete-file ] unit-test
  36
  37 [ f ] [ "test-foo.txt" resource-path exists? ] unit-test
  38
  39 [ f ] [ "test-bar.txt" resource-path exists? ] unit-test
  40
  41 [ ] [ "test-blah" resource-path make-directory ] unit-test
  42
  43 [ ] [
  44     "test-blah/fooz" resource-path <file-writer> stream-close
  45 ] unit-test
  46
  47 [ t ] [
  48     "test-blah/fooz" resource-path exists?
  49 ] unit-test
  50
  51 [ ] [ "test-blah/fooz" resource-path delete-file ] unit-test
  52
  53 [ ] [ "test-blah" resource-path delete-directory ] unit-test
  54
  55 [ f ] [ "test-blah" resource-path exists? ] unit-test
  56
  57 [ ] [ "test-quux.txt" resource-path <file-writer> [ [ yield "Hi" write ] in-thread ] with-stream ] unit-test
  58
  59 [ ] [ "test-quux.txt" resource-path delete-file ] unit-test
  60
  61 [ ] [ "test-quux.txt" resource-path <file-writer> [ [ yield "Hi" write ] in-thread ] with-stream ] unit-test
  62
  63 [ ] [ "test-quux.txt" "quux-test.txt" [ resource-path ] 2apply rename-file ] unit-test
  64 [ t ] [ "quux-test.txt" resource-path exists? ] unit-test
  65
  66 [ ] [ "quux-test.txt" resource-path delete-file ] unit-test
  67