steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More robust concurrency.distributed unit test

db4
Slava Pestov 2008-03-29 23:11:54 -05:00
parent 48501f1f6e
commit 726806b1c1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/concurrency/distributed/distributed-tests.factor
View File

@ -1,7 +1,7 @@
IN: concurrency.distributed.tests IN: concurrency.distributed.tests
USING: tools.test concurrency.distributed kernel io.files USING: tools.test concurrency.distributed kernel io.files
arrays io.sockets system combinators threads math sequences arrays io.sockets system combinators threads math sequences
concurrency.messaging ; concurrency.messaging continuations ;
: test-node : test-node
{ {
@ -9,6 +9,8 @@ concurrency.messaging ;
{ [ windows? ] [ "127.0.0.1" 1238 <inet4> ] } { [ windows? ] [ "127.0.0.1" 1238 <inet4> ] }
} cond ; } cond ;
[ ] [ [ "distributed-concurrency-test" temp-file delete-file ] ignore-errors ] unit-test
[ ] [ test-node dup 1array swap (start-node) ] unit-test [ ] [ test-node dup 1array swap (start-node) ] unit-test
[ ] [ yield ] unit-test [ ] [ yield ] unit-test