2016-11-10 05:32:08 -05:00
|
|
|
USING: arrays calendar concurrency.distributed
|
|
|
|
|
concurrency.messaging io.sockets kernel math namespaces
|
|
|
|
|
sequences threads tools.test ;
|
2009-05-16 01:29:21 -04:00
|
|
|
FROM: concurrency.messaging => receive send ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: concurrency.distributed.tests
|
2008-04-02 19:25:33 -04:00
|
|
|
|
2010-09-19 22:39:14 -04:00
|
|
|
CONSTANT: test-ip "127.0.0.1"
|
2016-11-10 05:32:08 -05:00
|
|
|
CONSTANT: test-port 57234
|
2010-09-19 22:39:14 -04:00
|
|
|
|
2016-11-10 05:32:08 -05:00
|
|
|
[ 8 ] [
|
|
|
|
|
local-node get
|
|
|
|
|
test-ip test-port <inet4> start-node
|
|
|
|
|
local-node get swap local-node set-global
|
|
|
|
|
local-node [
|
2010-09-19 22:39:14 -04:00
|
|
|
[
|
|
|
|
|
receive first2 [ 3 + ] dip send
|
|
|
|
|
"thread-a" unregister-remote-thread
|
|
|
|
|
] "Thread A" spawn
|
|
|
|
|
"thread-a" register-remote-thread
|
|
|
|
|
5 self 2array
|
2016-11-10 05:32:08 -05:00
|
|
|
test-ip test-port <inet4> "thread-a" <remote-thread> send
|
2010-09-19 22:39:14 -04:00
|
|
|
100 seconds receive-timeout
|
2016-11-10 05:32:08 -05:00
|
|
|
stop-node
|
|
|
|
|
] with-variable
|
|
|
|
|
] unit-test
|
|
|
|
|
|
