From 06fd3243794207ca0e9e1ba4a3f32cfe689fb652 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 4 Jun 2017 10:41:26 -0500 Subject: [PATCH] singleton: Move definitions to top level in tests. --- core/classes/singleton/singleton-tests.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/core/classes/singleton/singleton-tests.factor b/core/classes/singleton/singleton-tests.factor index 279ac39440..b7aedb5b99 100644 --- 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