Configure peer service from supervisor.

lasp-lang · Jul 23, 2016 · 9c80291 · 9c80291
1 parent 51257a2
commit 9c80291
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/src/lasp_sup.erl b/src/lasp_sup.erl
@@ -69,6 +69,10 @@ init(_Args) ->
             ok
     end,
 
+    %% Configure the peer service.
+    partisan_config:set(partisan_peer_service_manager,
+                        partisan_default_peer_service_manager),
+
     Partisan = {partisan_sup,
                 {partisan_sup, start_link, []},
                  permanent, infinity, supervisor, [partisan_sup]},

diff --git a/test/lasp_SUITE.erl b/test/lasp_SUITE.erl
@@ -508,8 +508,11 @@ membership_test(Config) ->
                                                 [WrongPassive])
                                 end
                           end, Nodes);
-        _ ->
-            ok
+        partisan_default_peer_service_manager ->
+            lists:foreach(fun(Node) ->
+                                {ok, Members} = rpc:call(Node, Manager, members, []),
+                                lists:usort(Members) =:= lists:usort(Nodes)
+                          end, Nodes)
     end,
 
     ok.