2008-03-12 04:22:46 -04:00
|
|
|
USING: alarms alarms.private kernel calendar sequences
|
|
|
|
|
tools.test threads concurrency.count-downs ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: alarms.tests
|
2008-03-03 03:22:27 -05:00
|
|
|
|
|
|
|
|
[ ] [
|
|
|
|
|
1 <count-down>
|
|
|
|
|
{ f } clone 2dup
|
|
|
|
|
[ first cancel-alarm count-down ] 2curry 1 seconds later
|
|
|
|
|
swap set-first
|
|
|
|
|
await
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [
|
|
|
|
|
[
|
|
|
|
|
[ resume ] curry instant later drop
|
|
|
|
|
] "test" suspend drop
|
|
|
|
|
] unit-test
|
