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

[factor.git] / basis / tools / annotations / annotations-tests.factor

diff --git a/basis/tools/annotations/annotations-tests.factor b/basis/tools/annotations/annotations-tests.factor
index 50c24736dfb9d7645c8054a6b57bd3dd85ef3e7a..77fa6bf98983c0e928d56911756da372a19d51fb 100644 (file)
--- a/basis/tools/annotations/annotations-tests.factor
+++ b/basis/tools/annotations/annotations-tests.factor
@@ -6,26 +6,26 @@ IN: tools.annotations.tests
 : foo ( -- ) ;
 \ foo watch
 
-[ ] [ foo ] unit-test
+{ } [ foo ] unit-test
 
 ! erg's bug
 GENERIC: some-generic ( a -- b )
 
 M: integer some-generic 1 + ;
 
-[ 4 ] [ 3 some-generic ] unit-test
+{ 4 } [ 3 some-generic ] unit-test
 
-[ ] [ \ some-generic watch ] unit-test
+{ } [ \ some-generic watch ] unit-test
 
-[ 4 ] [ 3 some-generic ] unit-test
+{ 4 } [ 3 some-generic ] unit-test
 
-[ ] [ "IN: tools.annotations.tests USE: math M: integer some-generic 1 - ;" eval( -- ) ] unit-test
+{ } [ "IN: tools.annotations.tests USE: math M: integer some-generic 1 - ;" eval( -- ) ] unit-test
 
-[ 2 ] [ 3 some-generic ] unit-test
+{ 2 } [ 3 some-generic ] unit-test
 
-[ ] [ \ some-generic reset ] unit-test
+{ } [ \ some-generic reset ] unit-test
 
-[ 2 ] [ 3 some-generic ] unit-test
+{ 2 } [ 3 some-generic ] unit-test
 
 ! slava's bug
 GENERIC: another-generic ( a -- b )
@@ -34,22 +34,22 @@ M: object another-generic ;
 
 \ another-generic watch
 
-[ ] [ "IN: tools.annotations.tests GENERIC: another-generic ( a -- b )" eval( -- ) ] unit-test
+{ } [ "IN: tools.annotations.tests GENERIC: another-generic ( a -- b )" eval( -- ) ] unit-test
 
-[ ] [ \ another-generic reset ] unit-test
+{ } [ \ another-generic reset ] unit-test
 
-[ "" ] [ [ 3 another-generic drop ] with-string-writer ] unit-test
+{ "" } [ [ 3 another-generic drop ] with-string-writer ] unit-test
 
 ! reset should do the right thing for generic words
-[ ] [ \ another-generic watch ] unit-test
+{ } [ \ another-generic watch ] unit-test
 
 GENERIC: blah-generic ( a -- b )
 
 M: string blah-generic ;
 
-[ ] [ M\ string blah-generic watch ] unit-test
+{ } [ M\ string blah-generic watch ] unit-test
 
-[ "hi" ] [ "hi" blah-generic ] unit-test
+{ "hi" } [ "hi" blah-generic ] unit-test
 
 ! See how well watch interacts with optimizations.
 GENERIC: my-generic ( a -- b )
@@ -60,12 +60,12 @@ M: object my-generic ;
 : some-code ( -- )
     f my-generic drop ;
 
-[ ] [ some-code ] unit-test
+{ } [ some-code ] unit-test
 
 ! Make sure annotations work on primitives
 \ gc reset
 \ gc watch
 
-[ f ] [ [ [ gc ] with-error>output ] with-string-writer empty? ] unit-test
+{ f } [ [ [ gc ] with-error>output ] with-string-writer empty? ] unit-test
 
 \ gc reset