2008-03-01 17:00:45 -05:00
|
|
|
IN: concurrency.exchangers.tests
|
2008-02-18 17:20:18 -05:00
|
|
|
USING: sequences tools.test concurrency.exchangers
|
|
|
|
|
concurrency.count-downs concurrency.promises locals kernel
|
|
|
|
|
threads ;
|
|
|
|
|
|
2008-02-26 19:40:32 -05:00
|
|
|
:: exchanger-test ( -- )
|
2008-02-18 17:20:18 -05:00
|
|
|
[let |
|
|
|
|
|
ex [ <exchanger> ]
|
|
|
|
|
c [ 2 <count-down> ]
|
|
|
|
|
v1! [ f ]
|
|
|
|
|
v2! [ f ]
|
|
|
|
|
pr [ <promise> ] |
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
c await
|
|
|
|
|
v1 ", " v2 3append pr fulfill
|
|
|
|
|
] "Awaiter" spawn drop
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
"Goodbye world" ex exchange v1! c count-down
|
|
|
|
|
] "Exchanger 1" spawn drop
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
"Hello world" ex exchange v2! c count-down
|
|
|
|
|
] "Exchanger 2" spawn drop
|
|
|
|
|
|
|
|
|
|
pr ?promise
|
|
|
|
|
] ;
|
|
|
|
|
|
|
|
|
|
[ "Hello world, Goodbye world" ] [ exchanger-test ] unit-test
|
