basis/io/paths/paths-tests.factor

   1 USING: io.paths kernel tools.test io.files.unique sequences
   2 io.files namespaces sorting ;
   3 IN: io.paths.tests
   4
   5 [ t ] [
   6     [
   7         10 [ "io.paths.test" "gogogo" make-unique-file* ] replicate
   8         current-directory get t [ ] find-all-files
   9     ] with-unique-directory
  10     [ natural-sort ] bi@ =
  11 ] unit-test