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

View File

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