basis/concurrency/futures/futures-tests.factor

   1 USING: concurrency.futures kernel tools.test threads ;\r
   2 IN: concurrency.futures.tests\r
   3 \r
   4 [ 50 ] [\r
   5     [ 50 ] future ?future\r
   6 ] unit-test\r
   7 \r
   8 [\r
   9     [ "this should propogate" throw ] future ?future \r
  10 ] must-fail\r
  11 \r
  12 [ ] [\r
  13     [ "this should not propogate" throw ] future drop \r
  14 ] unit-test\r
  15 \r
  16 ! Race condition with futures\r
  17 [ 3 3 ] [\r
  18     [ 3 ] future\r
  19     dup ?future swap ?future\r
  20 ] unit-test\r
  21 \r
  22 ! Another race\r
  23 [ 3 ] [\r
  24     [ 3 yield ] future ?future\r
  25 ] unit-test\r