anchor.diff:  
   %% The order here is significant and causes the server to listen
   %% before the clients connect.
  --define(NODES, [compile, server, client]).
  +-define(NODES, [server, client]).
   
   %% Options to ct_slave:start/2.
   -define(TIMEOUTS, [{T, 15000} || T <- [boot_timeout,
  
positive.code:                   [[Dir, filename:join([Dir, "..", "ebin"])]]),
      Node.
  
  here() ->
      filename:dirname(code:which(?MODULE)).
  
  
negative.code:     receive {'DOWN', MRef, process, _, Reason} -> Reason end;
  
  traffic(Config) ->
      Prot = proplists:get_value(group, Config),
      Nodes = ?util:read_priv(Config, Prot),
      [] = [RC || {T,N} <- Nodes,
                  RC <- [rpc:call(N, ?MODULE, traffic, [T])],
                  RC /= ok].
  