Add promises unit tests

2009-03-22 21:42:23 -05:00 · 2009-03-22 21:42:23 -05:00 · ccc4c41725
parent 9ebd9c8d01
commit ccc4c41725
1 changed files with 7 additions and 0 deletions
--- a/extra/promises/promises-tests.factor
+++ b/extra/promises/promises-tests.factor
@ -0,0 +1,7 @@
+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