basis/concurrency/count-downs/count-downs-tests.factor

   1 USING: concurrency.count-downs threads kernel tools.test ;
   2 IN: concurrency.count-downs.tests`
   3
   4 [ ] [ 0 <count-down> await ] unit-test
   5
   6 [ 1 <count-down> dup count-down count-down ] must-fail
   7
   8 [ ] [
   9     1 <count-down>
  10     3 <count-down>
  11     2dup [ await count-down ] 2curry "Master" spawn drop
  12     dup [ count-down ] curry "Slave" spawn drop
  13     dup [ count-down ] curry "Slave" spawn drop
  14     dup [ count-down ] curry "Slave" spawn drop
  15     drop await
  16 ] unit-test