alarms: add a couple of unit tests

diff --git a/basis/alarms/alarms-tests.factor b/basis/alarms/alarms-tests.factor
index 8f7868324d1f874061bf0f07de26015280f96c23..17dd08cfcf13b58f32e09fe8285b4b622b5cf88a 100644 (file)
--- a/basis/alarms/alarms-tests.factor
+++ b/basis/alarms/alarms-tests.factor
@@ -1,5 +1,6 @@
 USING: alarms alarms.private kernel calendar sequences\r
-tools.test threads concurrency.count-downs ;\r
+tools.test threads concurrency.count-downs concurrency.promises\r
+fry tools.time math ;\r
 IN: alarms.tests\r
 \r
 [ ] [\r
@@ -14,3 +15,17 @@ IN: alarms.tests
     self [ resume ] curry instant later drop\r
     "test" suspend drop\r
 ] unit-test\r
+\r
+[ t ] [\r
+    [\r
+        <promise>\r
+        '[ t _ fulfill ] 5 seconds later drop\r
+    ] benchmark 4,000,000,000 >\r
+] unit-test\r
+\r
+[ { 3 } ] [\r
+    { 3 } dup\r
+    '[ 4 _ set-first ] 2 seconds later\r
+    1/2 seconds sleep\r
+    cancel-alarm\r
+] unit-test\r