factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!

[factor.git] / basis / memoize / memoize-tests.factor

diff --git a/basis/memoize/memoize-tests.factor b/basis/memoize/memoize-tests.factor
index e89685263df3482bcb9e7d112ee9a17c49b42057..f67a1fefda89b879e4cc83ea5e91bf5bf42cb6e0 100644 (file)
--- a/basis/memoize/memoize-tests.factor
+++ b/basis/memoize/memoize-tests.factor
@@ -10,26 +10,26 @@ MEMO: fib ( m -- n )
 MEMO: x ( a b c d e -- f g h i j )
     [ 1 + ] 4 ndip ;
 
-[ 89 ] [ 10 fib ] unit-test
+{ 89 } [ 10 fib ] unit-test
 
-[
+{
     1 0 0 0 0
     1 0 0 0 0
-] [
+} [
     0 0 0 0 0 x
     0 0 0 0 0 x
 ] unit-test
 
 MEMO: see-test ( a -- b ) reverse ;
 
-[ "USING: memoize sequences ;\nIN: memoize.tests\nMEMO: see-test ( a -- b ) reverse ;\n" ]
+{ "USING: memoize sequences ;\nIN: memoize.tests\nMEMO: see-test ( a -- b ) reverse ;\n" }
 [ [ \ see-test see ] with-string-writer ]
 unit-test
 
-[ ] [ "IN: memoize.tests : fib ( -- ) ;" eval( -- ) ] unit-test
+{ } [ "IN: memoize.tests : fib ( -- ) ;" eval( -- ) ] unit-test
 
-[ "IN: memoize.tests\n: fib ( -- ) ;\n" ] [ [ \ fib see ] with-string-writer ] unit-test
+{ "IN: memoize.tests\n: fib ( -- ) ;\n" } [ [ \ fib see ] with-string-writer ] unit-test
 
 [ sq ] ( a -- b ) memoize-quot "q" set
 
-[ 9 ] [ 3 "q" get call ] unit-test
+{ 9 } [ 3 "q" get call ] unit-test