2008-02-18 17:20:18 -05:00
|
|
|
USING: vectors concurrency.promises kernel threads sequences
|
|
|
|
|
tools.test ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: concurrency.promises.tests
|
2008-02-18 17:20:18 -05:00
|
|
|
|
|
|
|
|
[ 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
|
