basis/io/files/unique/unique-tests.factor

   1 USING: io.encodings.ascii sequences strings io io.files accessors
   2 tools.test kernel io.files.unique namespaces continuations
   3 io.files.info io.pathnames io.directories ;
   4 IN: io.files.unique.tests
   5
   6 { 123 } [
   7     "core" ".test" [
   8         [ [ 123 CHAR: a <string> ] dip ascii set-file-contents ]
   9         [ file-info size>> ] bi
  10     ] cleanup-unique-file
  11 ] unit-test
  12
  13 { t } [
  14     [ current-directory get file-info directory? ] cleanup-unique-directory
  15 ] unit-test
  16
  17 { t } [
  18     current-directory get
  19     [ [ "FAILDOG" throw ] cleanup-unique-directory ] [ drop ] recover
  20     current-directory get =
  21 ] unit-test
  22
  23 { t } [
  24     [
  25         "asdf" unique-file drop
  26         "asdf2" unique-file drop
  27         current-temporary-directory get directory-files length 2 =
  28     ] cleanup-unique-directory
  29 ] unit-test
  30
  31 { t } [
  32     [ ] with-unique-directory >boolean
  33 ] unit-test
  34
  35 { t } [
  36     [
  37         "asdf" unique-file drop
  38         "asdf" unique-file drop
  39         current-temporary-directory get directory-files length 2 =
  40     ] with-unique-directory drop
  41 ] unit-test