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
9 10 [ "io.paths.test" "gogogo" make-unique-file ] replicate
10 current-temporary-directory get [ ] find-all-files
11 ] cleanup-unique-directory [ natural-sort ] same?
15 { "omg you shoudnt have a directory called this" "or this" }
17 [ "asdfasdfasdfasdfasdf" tail? ] find-in-directories
21 { } t [ "asdfasdfasdfasdfasdf" tail? ] find-in-directories
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
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