basis/concurrency/promises/promises-tests.factor

   1 USING: vectors concurrency.promises kernel threads sequences
   2 tools.test ;
   3 IN: concurrency.promises.tests
   4
   5 [ V{ 50 50 50 } ] [
   6     0 <vector>
   7     <promise>
   8     [ ?promise swap push ] in-thread
   9     [ ?promise swap push ] in-thread
  10     [ ?promise swap push ] in-thread
  11     50 swap fulfill
  12 ] unit-test