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

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