factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / basis / io / directories / search / search-tests.factor

diff --git a/basis/io/directories/search/search-tests.factor b/basis/io/directories/search/search-tests.factor
index 1677f394af0a53214873b60bbd6e82790b95d721..070170c85c8121eb99375b6d0a5fca4939e4b9a9 100644 (file)
--- a/basis/io/directories/search/search-tests.factor
+++ b/basis/io/directories/search/search-tests.factor
@@ -4,24 +4,24 @@ io.files.unique io.pathnames kernel namespaces sequences
 sorting strings tools.test ;
 IN: io.directories.search.tests
 
-[ t ] [
+{ t } [
     [
         10 [ "io.paths.test" "gogogo" make-unique-file ] replicate
         current-temporary-directory get [ ] find-all-files
     ] cleanup-unique-directory [ natural-sort ] same?
 ] unit-test
 
-[ f ] [
+{ f } [
     { "omg you shoudnt have a directory called this" "or this" }
     t
     [ "asdfasdfasdfasdfasdf" tail? ] find-in-directories
 ] unit-test
 
-[ f ] [
+{ f } [
     { } t [ "asdfasdfasdfasdfasdf" tail? ] find-in-directories
 ] unit-test
 
-[ t ] [
+{ t } [
     [
         current-temporary-directory get
         "the-head" unique-file drop t
@@ -29,7 +29,7 @@ IN: io.directories.search.tests
     ] cleanup-unique-directory
 ] unit-test
 
-[ t ] [
+{ t } [
     [ unique-directory unique-directory ] output>array
     [ [ "abcd" append-path touch-file ] each ]
     [ [ file-name "abcd" = ] find-all-in-directories length 2 = ]