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

13 lines
310 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