extra/wordtimer/wordtimer-tests.factor

   1 USING: tools.test wordtimer math kernel tools.annotations prettyprint ;
   2 IN: wordtimer.tests
   3
   4 : testfn ( a b c d -- a+b c+d )
   5   + [ + ] dip ;
   6
   7 { 3 7 }
   8 [ reset-word-timer
   9   \ testfn [ reset ] [ add-timer ] bi
  10   1 2 3 4 testfn ] unit-test