Add failing test

2008-05-10 18:09:10 -05:00 · 2008-05-10 18:09:10 -05:00 · 53cda42d44
parent 315110eb09
commit 53cda42d44
1 changed files with 7 additions and 0 deletions
--- a/core/classes/singleton/singleton-tests.factor
+++ b/core/classes/singleton/singleton-tests.factor
@ -10,3 +10,10 @@ GENERIC: zammo ( obj -- str )
 [ ] [ 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 3 ;
+
+[ t ] [ \ word-and-singleton word-and-singleton? ] unit-test
+[ 3 ] [ word-and-singleton ] unit-test