factor/basis/promises/promises-tests.factor

8 lines
162 B
Factor
Raw Normal View History

2009-03-22 22:42:23 -04:00
IN: promises.tests
USING: promises math tools.test ;
LAZY: lazy-test ( a -- b ) 1 + ;
{ 1 1 } [ lazy-test ] must-infer-as
{ 3 } [ 2 lazy-test force ] unit-test