basis/concurrency/promises/promises-tests.factor

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