From 726806b1c14a6f0972acff54959ace69b61b5213 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 29 Mar 2008 23:11:54 -0500 Subject: [PATCH] More robust concurrency.distributed unit test --- extra/concurrency/distributed/distributed-tests.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extra/concurrency/distributed/distributed-tests.factor b/extra/concurrency/distributed/distributed-tests.factor index 0941eb4251..856c37a6bc 100755 --- a/extra/concurrency/distributed/distributed-tests.factor +++ b/extra/concurrency/distributed/distributed-tests.factor @@ -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 ] } } cond ; +[ ] [ [ "distributed-concurrency-test" temp-file delete-file ] ignore-errors ] unit-test + [ ] [ test-node dup 1array swap (start-node) ] unit-test [ ] [ yield ] unit-test