From ccc4c417251994338f6d56d56e4d07909b4005a3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 22 Mar 2009 21:42:23 -0500
Subject: [PATCH] Add promises unit tests

---
 extra/promises/promises-tests.factor | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 extra/promises/promises-tests.factor

diff --git a/extra/promises/promises-tests.factor b/extra/promises/promises-tests.factor
new file mode 100644
index 0000000000..79e7dc570e
--- /dev/null
+++ 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
\ No newline at end of file