Browse Source

Don't use gproc_dist all on the EUnit slave nodes

Doing so will include the master EUnit node as a gen_leader candidate,
but we have no intention of starting an instance on that node.
Curiously, this may have been the source of occasional hangings in
gen_leader (which never left safe_loop()).
Ulf Wiger 14 years ago
parent
commit
d3576424ea
1 changed files with 4 additions and 3 deletions
  1. 4 3
      test/gproc_dist_tests.erl

+ 4 - 3
test/gproc_dist_tests.erl

@@ -27,8 +27,10 @@ dist_test_() ->
        fun() ->
 	       Ns = start_slaves([dist_test_n1, dist_test_n2]),
 	       ?assertMatch({[ok,ok],[]},
+			    rpc:multicall(Ns, application, set_env,
+					  [gproc, gproc_dist, Ns])),
+	       ?assertMatch({[ok,ok],[]},
 			    rpc:multicall(Ns, application, start, [gproc])),
-%%	       ?debugVal(Ns)
 	       Ns
        end,
        fun(Ns) ->
@@ -240,8 +242,7 @@ start_slave(Name) ->
     end,
     {ok, Node} = slave:start(
 		   host(), Name,
-		   "-pa . -pz ../ebin -pa ../deps/gen_leader/ebin "
-		   "-gproc gproc_dist all"),
+		   "-pa . -pz ../ebin -pa ../deps/gen_leader/ebin "),
     %% io:fwrite(user, "Slave node: ~p~n", [Node]),
     Node.