singleton: Move definitions to top level in tests.

diff --git a/core/classes/singleton/singleton-tests.factor b/core/classes/singleton/singleton-tests.factor
index 279ac39440caddc6af9e95fc7aec301a1c3aa84d..b7aedb5b9966f9cdbe013936c4a3235d75f5ddcb 100644 (file)
--- a/core/classes/singleton/singleton-tests.factor
+++ b/core/classes/singleton/singleton-tests.factor
@@ -1,13 +1,15 @@
 USING: classes.singleton io.streams.string kernel see tools.test ;
 IN: classes.singleton.tests
 
-{ } [ SINGLETON: bzzt ] unit-test
+SINGLETON: bzzt
 { 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
+
+SINGLETON: omg
 { t } [ omg singleton-class? ] unit-test
 { "IN: classes.singleton.tests\nSINGLETON: omg\n" } [ [ omg see ] with-string-writer ] unit-test