steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

singleton: Move definitions to top level in tests.

char-rename
Doug Coleman 2017-06-04 10:41:26 -05:00
parent b540feb95d
commit 06fd324379
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/classes/singleton/singleton-tests.factor
View File

@ -1,13 +1,15 @@
USING: classes.singleton io.streams.string kernel see tools.test ; USING: classes.singleton io.streams.string kernel see tools.test ;
IN: classes.singleton.tests IN: classes.singleton.tests
{ } [ SINGLETON: bzzt ] unit-test SINGLETON: bzzt
{ t } [ bzzt bzzt? ] unit-test { t } [ bzzt bzzt? ] unit-test
{ t } [ bzzt bzzt eq? ] unit-test { t } [ bzzt bzzt eq? ] unit-test
GENERIC: zammo ( obj -- str ) GENERIC: zammo ( obj -- str )
{ } [ M: bzzt zammo drop "yes!" ; ] unit-test { } [ M: bzzt zammo drop "yes!" ; ] unit-test
{ "yes!" } [ bzzt zammo ] unit-test { "yes!" } [ bzzt zammo ] unit-test
{ } [ SINGLETON: omg ] unit-test
SINGLETON: omg
{ t } [ omg singleton-class? ] unit-test { t } [ omg singleton-class? ] unit-test
{ "IN: classes.singleton.tests\nSINGLETON: omg\n" } [ [ omg see ] with-string-writer ] unit-test { "IN: classes.singleton.tests\nSINGLETON: omg\n" } [ [ omg see ] with-string-writer ] unit-test