From 0e496c8693d49a1866d863d50715a34dd49b5eb5 Mon Sep 17 00:00:00 2001
From: Slava Pestov
 <slava@CPE001ec21b1c01-CM0012c90d0486.cpe.net.cable.rogers.com>
Date: Fri, 21 May 2010 19:09:01 -0400
Subject: [PATCH] alarms: add a couple of unit tests

---
 basis/alarms/alarms-tests.factor | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

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