]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/suffix-arrays/suffix-arrays-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / basis / suffix-arrays / suffix-arrays-tests.factor
index 5431684d0e5cc95b7d7ac47abb6f5dd99c538b27..9658c6702d3b8bfc17aaffae593d48804d76e026 100644 (file)
@@ -4,7 +4,7 @@ USING: tools.test suffix-arrays kernel namespaces sequences ;
 IN: suffix-arrays.tests
 
 ! built from [ all-words 10 head [ name>> ] map ]
-{ } [
+[ ] [
      {
         "run-tests"
         "must-fail-with"
@@ -19,20 +19,20 @@ IN: suffix-arrays.tests
     } >suffix-array "suffix-array" set
 ] unit-test
 
-{ t }
+[ t ]
 [ "suffix-array" get "" swap query empty? not ] unit-test
 
-{ { } }
+[ { } ]
 [ SA{ } "something" swap query ] unit-test
 
-{ { "unit-test" "(unit-test)" } }
+[ { "unit-test" "(unit-test)" } ]
 [ "suffix-array" get "unit-test" swap query ] unit-test
 
-{ t }
+[ t ]
 [ "suffix-array" get "something else" swap query empty? ] unit-test
 
-{ { "rofl" } } [ SA{ "rofl" } "r" swap query ] unit-test
-{ { "rofl" } } [ SA{ "rofl" } "o" swap query ] unit-test
-{ { "rofl" } } [ SA{ "rofl" } "f" swap query ] unit-test
-{ { "rofl" } } [ SA{ "rofl" } "l" swap query ] unit-test
-{ { } } [ SA{ "rofl" } "t" swap query ] unit-test
+[ { "rofl" } ] [ SA{ "rofl" } "r" swap query ] unit-test
+[ { "rofl" } ] [ SA{ "rofl" } "o" swap query ] unit-test
+[ { "rofl" } ] [ SA{ "rofl" } "f" swap query ] unit-test
+[ { "rofl" } ] [ SA{ "rofl" } "l" swap query ] unit-test
+[ { } ] [ SA{ "rofl" } "t" swap query ] unit-test