Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...

[factor.git] / extra / trees / trees-tests.factor

diff --git a/extra/trees/trees-tests.factor b/extra/trees/trees-tests.factor
index 2e8eb454a8db698791db5362bf5007284acdb36d..b068c473b12fc17115eea2df3ed3ae8520c40d39 100644 (file)
--- a/extra/trees/trees-tests.factor
+++ b/extra/trees/trees-tests.factor
@@ -11,17 +11,17 @@ IN: trees.tests
     } clone ;
 
 ! test set-at, at, at*
-{ "seven" } [ <tree> "seven" 7 pick set-at 7 of ] unit-test
-{ "seven" t } [ <tree> "seven" 7 pick set-at 7 ?of ] unit-test
-{ 8 f } [ <tree> "seven" 7 pick set-at 8 ?of ] unit-test
-{ "seven" } [ <tree> "seven" 7 pick set-at 7 of ] unit-test
-{ "replacement" } [ <tree> "seven" 7 pick set-at "replacement" 7 pick set-at 7 of ] unit-test
-{ "replaced four" } [ test-tree 4 of ] unit-test
-{ "nine" } [ test-tree 9 of ] unit-test
+[ "seven" ] [ <tree> "seven" 7 pick set-at 7 of ] unit-test
+[ "seven" t ] [ <tree> "seven" 7 pick set-at 7 ?of ] unit-test
+[ 8 f ] [ <tree> "seven" 7 pick set-at 8 ?of ] unit-test
+[ "seven" ] [ <tree> "seven" 7 pick set-at 7 of ] unit-test
+[ "replacement" ] [ <tree> "seven" 7 pick set-at "replacement" 7 pick set-at 7 of ] unit-test
+[ "replaced four" ] [ test-tree 4 of ] unit-test
+[ "nine" ] [ test-tree 9 of ] unit-test
 
 ! test delete-at
-{ f } [ test-tree 9 over delete-at 9 of ] unit-test
-{ "replaced seven" } [ test-tree 9 over delete-at 7 of ] unit-test
-{ "replaced four" } [ test-tree 9 over delete-at 4 of ] unit-test
-{ "nine" "replaced four" } [ test-tree 7 over delete-at 9 over at 4 rot at ] unit-test
-{ "nine" } [ test-tree 7 over delete-at 4 over delete-at 9 of ] unit-test
+[ f ] [ test-tree 9 over delete-at 9 of ] unit-test
+[ "replaced seven" ] [ test-tree 9 over delete-at 7 of ] unit-test
+[ "replaced four" ] [ test-tree 9 over delete-at 4 of ] unit-test
+[ "nine" "replaced four" ] [ test-tree 7 over delete-at 9 over at 4 rot at ] unit-test
+[ "nine" ] [ test-tree 7 over delete-at 4 over delete-at 9 of ] unit-test