fix unit test
parent
11feb563eb
commit
e62c3c323c
|
@ -4,7 +4,7 @@ IN: classes.singleton.tests
|
||||||
[ ] [ SINGLETON: bzzt ] unit-test
|
[ ] [ SINGLETON: bzzt ] unit-test
|
||||||
[ 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 -- )
|
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 ] unit-test
|
||||||
|
|
Loading…
Reference in New Issue