2008-12-14 22:21:44 -05:00
|
|
|
USING: io.directories.search io.files io.files.unique
|
|
|
|
|
io.pathnames kernel namespaces sequences sorting tools.test ;
|
|
|
|
|
IN: io.directories.search.tests
|
2008-12-14 21:03:00 -05:00
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
[
|
2009-01-26 21:16:18 -05:00
|
|
|
10 [ "io.paths.test" "gogogo" make-unique-file ] replicate
|
2009-02-26 22:50:01 -05:00
|
|
|
current-temporary-directory get [ ] find-all-files
|
2009-01-26 21:16:18 -05:00
|
|
|
] with-unique-directory drop [ natural-sort ] bi@ =
|
2008-12-14 21:03:00 -05:00
|
|
|
] unit-test
|
2009-03-12 18:01:44 -04:00
|
|
|
|
|
|
|
|
[ f ] [
|
|
|
|
|
{ "omg you shoudnt have a directory called this" "or this" }
|
|
|
|
|
t
|
|
|
|
|
[ "asdfasdfasdfasdfasdf" tail? ] find-in-directories
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [
|
|
|
|
|
{ } t [ "asdfasdfasdfasdfasdf" tail? ] find-in-directories
|
|
|
|
|
] unit-test
|
