basis/io/directories/search/search-tests.factor

   1 USING: combinators.smart io.directories
   2 io.directories.hierarchy io.directories.search io.files
   3 io.files.unique io.pathnames kernel namespaces sequences
   4 sorting strings tools.test ;
   5 IN: io.directories.search.tests
   6
   7 [ t ] [
   8     [
   9         10 [ "io.paths.test" "gogogo" make-unique-file ] replicate
  10         current-temporary-directory get [ ] find-all-files
  11     ] cleanup-unique-directory [ natural-sort ] bi@ =
  12 ] unit-test
  13
  14 [ f ] [
  15     { "omg you shoudnt have a directory called this" "or this" }
  16     t
  17     [ "asdfasdfasdfasdfasdf" tail? ] find-in-directories
  18 ] unit-test
  19
  20 [ f ] [
  21     { } t [ "asdfasdfasdfasdfasdf" tail? ] find-in-directories
  22 ] unit-test
  23
  24 [ t ] [
  25     [
  26         current-temporary-directory get
  27         "the-head" unique-file drop t
  28         [ file-name "the-head" head? ] find-file string?
  29     ] cleanup-unique-directory
  30 ] unit-test
  31
  32 [ t ] [
  33     [ unique-directory unique-directory ] output>array
  34     [ [ "abcd" append-path touch-file ] each ]
  35     [ [ file-name "abcd" = ] find-all-in-directories length 2 = ]
  36     [ [ delete-tree ] each ] tri
  37 ] unit-test