anchor.diff:              [Node | collect_nodes(N+1, Max)]
       end.
   
  -only_element(_E, []) ->
  -    true;
  -only_element(E, [E|R]) ->
  -    only_element(E, R);
  -only_element(_E, _) ->
  -    false.
  -
   exit_p(Pid) ->
       Ref = erlang:monitor(process, Pid),
       Pid ! die,
  
positive.code:     rpc_cast(Cp5, ?MODULE, single_node, [Time, Cp4, Config]),
  
      %% sleep to make the partitioned net ready
      ct:sleep(Time - msec()),
  
      pong = net_adm:ping(Cp0),
      pong = net_adm:ping(Cp1),
  
negative.code:     rpc_cast(Cp8, ?MODULE, single_node, [Time, Cp7, Config]),
  
      %% Sleep to make the partitioned net ready
      sleep(Time - msec()),
  
      pong = net_adm:ping(Cp0),
      pong = net_adm:ping(Cp1),
  