2008-07-08 15:01:28 -04:00
|
|
|
USING: tools.test wordtimer math kernel tools.annotations prettyprint ;
|
|
|
|
IN: wordtimer.tests
|
|
|
|
|
|
|
|
: testfn ( a b c d -- a+b c+d )
|
|
|
|
+ [ + ] dip ;
|
2015-07-02 13:34:01 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 3 7 }
|
2008-07-08 15:01:28 -04:00
|
|
|
[ reset-word-timer
|
|
|
|
\ testfn [ reset ] [ add-timer ] bi
|
2015-07-02 13:34:01 -04:00
|
|
|
1 2 3 4 testfn ] unit-test
|