1 IN: concurrency.exchangers.tests
\r
2 USING: sequences tools.test concurrency.exchangers
\r
3 concurrency.count-downs concurrency.promises locals kernel
\r
6 :: exchanger-test ( -- string )
\r
16 v1 ", " v2 3append pr fulfill
\r
17 ] "Awaiter" spawn drop
\r
20 "Goodbye world" ex exchange v1! c count-down
\r
21 ] "Exchanger 1" spawn drop
\r
24 "Hello world" ex exchange v2! c count-down
\r
25 ] "Exchanger 2" spawn drop
\r
30 [ "Hello world, Goodbye world" ] [ exchanger-test ] unit-test
\r