anchor.diff:  
       %% Attempt to join all nodes in the cluster.
       lists:foreach(fun(N) ->
  -                        lager:info("Locating node: ~p", [N]),
  -                        PeerPort = rpc:call(N,
  -                                            partisan_config,
  -                                            get,
  -                                            [peer_port, ?PEER_PORT]),
  -                        ct:pal("Joining node: ~p to ~p at port ~p",
  -                               [N, RunnerNode, PeerPort]),
  -                        ok = rpc:call(RunnerNode,
  -                                      lasp_peer_service,
  -                                      join,
  -                                      [{N, {127, 0, 0, 1}, PeerPort}])
  +                        join_to(N, RunnerNode)
                     end, Nodes),
   
       %% Consider the runner part of the cluster.
  
positive.code: 
  -include("lasp.hrl").
  
  -export([get_cluster_members/1,
           pmap/2,
           wait_until/3,
           wait_until_left/2,
  
negative.code: 
  stop_runner() ->
      application:stop(lasp).
  
  join_to(N, RunnerNode) ->
      lager:info("Locating node: ~p", [N]),
      PeerPort = rpc:call(N,
                          partisan_config,
                          get,
                          [peer_port, ?PEER_PORT]),
      ct:pal("Joining node: ~p to ~p at port ~p",
             [N, RunnerNode, PeerPort]),
      ok = rpc:call(RunnerNode,
                    lasp_peer_service,
                    join,
                    [{N, {127, 0, 0, 1}, PeerPort}]).
  