fix unit test

2009-01-26 20:16:18 -06:00 · 2009-01-26 20:16:18 -06:00 · 67d0fd934c
parent ffc3c062f8
commit 67d0fd934c
1 changed files with 3 additions and 4 deletions
--- a/basis/io/directories/search/search-tests.factor
+++ b/basis/io/directories/search/search-tests.factor
@ -4,8 +4,7 @@ IN: io.directories.search.tests

 [ t ] [
    [
-        10 [ "io.paths.test" "gogogo" make-unique-file* ] replicate
-        current-directory get t [ ] find-all-files
-    ] with-unique-directory
-    [ natural-sort ] bi@ =
+        10 [ "io.paths.test" "gogogo" make-unique-file ] replicate
+        current-temporary-directory get t [ ] find-all-files
+    ] with-unique-directory drop [ natural-sort ] bi@ =
 ] unit-test