factor/basis/concurrency/promises/promises-tests.factor

13 lines
298 B
Factor

USING: vectors concurrency.promises kernel threads sequences
tools.test ;
IN: concurrency.promises.tests
{ V{ 50 50 50 } } [
0 <vector>
<promise>
[ ?promise swap push ] in-thread
[ ?promise swap push ] in-thread
[ ?promise swap push ] in-thread
50 swap fulfill
] unit-test