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

[factor.git] / core / classes / singleton / singleton-tests.factor

diff --git a/core/classes/singleton/singleton-tests.factor b/core/classes/singleton/singleton-tests.factor
index d177e1854d472583c879631b2c9886d788e6d0d1..9d0bb7d16f35ea87e82e4fdf68c143d10699fe5b 100644 (file)
--- a/core/classes/singleton/singleton-tests.factor
+++ b/core/classes/singleton/singleton-tests.factor
@@ -1,19 +1,19 @@
 USING: kernel classes.singleton tools.test prettyprint io.streams.string see ;
 IN: classes.singleton.tests
 
-{ } [ SINGLETON: bzzt ] unit-test
-{ t } [ bzzt bzzt? ] unit-test
-{ t } [ bzzt bzzt eq? ] unit-test
+[ ] [ SINGLETON: bzzt ] unit-test
+[ t ] [ bzzt bzzt? ] unit-test
+[ t ] [ bzzt bzzt eq? ] unit-test
 GENERIC: zammo ( obj -- str )
-{ } [ M: bzzt zammo drop "yes!" ; ] unit-test
-{ "yes!" } [ bzzt zammo ] unit-test
-{ } [ SINGLETON: omg ] unit-test
-{ t } [ omg singleton-class? ] unit-test
-{ "IN: classes.singleton.tests\nSINGLETON: omg\n" } [ [ omg see ] with-string-writer ] unit-test
+[ ] [ M: bzzt zammo drop "yes!" ; ] unit-test
+[ "yes!" ] [ bzzt zammo ] unit-test
+[ ] [ SINGLETON: omg ] unit-test
+[ t ] [ omg singleton-class? ] unit-test
+[ "IN: classes.singleton.tests\nSINGLETON: omg\n" ] [ [ omg see ] with-string-writer ] unit-test
 
 SINGLETON: word-and-singleton
 
 : word-and-singleton ( -- x ) 3 ;
 
-{ t } [ \ word-and-singleton word-and-singleton? ] unit-test
-{ 3 } [ word-and-singleton ] unit-test
+[ t ] [ \ word-and-singleton word-and-singleton? ] unit-test
+[ 3 ] [ word-and-singleton ] unit-test