anchor.diff:      discard.
   
   %% ===========================================================================
  -
  -fail(T) ->
  -    erlang:error({T, process_info(self(), messages)}).
   
   host(Config) ->
       {_, H} = lists:keyfind(host, 1, Config),
  
positive.code: -define(cea,            #diameter_base_CEA).
  -define(answer_message, #'diameter_base_answer-message').
  
  %% ===========================================================================
  
  suite() ->
      [{timetrap, {seconds, 10}}].
  
  all() ->
      [start, start_services, add_listeners
       | [{group, N} || {N, _, _} <- groups()]]
          ++ [remove_listeners, stop_services, stop].
  
  groups() ->
      Ts = testcases(),
  
negative.code:                                = Reason,
                                 {listen, _}}} ->
              Reason
      after ?TIMEOUT ->
              ?fail({LRef, OH})
      end.
  
  %% cliient_closed/4
  