basis/alarms/alarms-tests.factor

   1 IN: alarms.tests\r
   2 USING: alarms alarms.private kernel calendar sequences\r
   3 tools.test threads concurrency.count-downs ;\r
   4 \r
   5 [ ] [\r
   6     1 <count-down>\r
   7     { f } clone 2dup\r
   8     [ first cancel-alarm count-down ] 2curry 1 seconds later\r
   9     swap set-first\r
  10     await\r
  11 ] unit-test\r
  12 \r
  13 [ ] [\r
  14     [\r
  15         [ resume ] curry instant later drop\r
  16     ] "test" suspend drop\r
  17 ] unit-test\r
  18 \r
  19 \ alarm-thread-loop must-infer\r