From 53cda42d44ae31567bf6284a8424e87813cdef66 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 10 May 2008 18:09:10 -0500 Subject: [PATCH] Add failing test --- core/classes/singleton/singleton-tests.factor | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/core/classes/singleton/singleton-tests.factor b/core/classes/singleton/singleton-tests.factor index 2ed51abb93..10ddde75ae 100644 --- 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