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

add unit tests to singleton

db4
Doug Coleman 2008-03-07 20:06:23 -06:00
parent 1ceeac107b
commit 252f55d162
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/singleton/singleton-tests.factor Normal file
View File

@ -0,0 +1,9 @@
USING: kernel singleton tools.test ;
IN: singleton.tests
[ ] [ SINGLETON: bzzt ] unit-test
[ t ] [ bzzt bzzt? ] unit-test
[ t ] [ bzzt bzzt eq? ] unit-test
GENERIC: zammo ( obj -- )
[ ] [ M: bzzt zammo drop "yes!" ; ] unit-test
[ "yes!" ] [ bzzt zammo ] unit-test