anchor.diff:  -define(cea,            #diameter_base_CEA).
   -define(answer_message, #'diameter_base_answer-message').
   
  +-define(fail(T), erlang:error({T, process_info(self(), messages)})).
  +
  +-define(TIMEOUT, 2000).
  +
   %% ===========================================================================
   
   suite() ->
       [{timetrap, {seconds, 10}}].
   
  -all() ->
  -    [start, start_services, add_listeners
  -     | [{group, N} || {N, _, _} <- groups()]]
  -        ++ [remove_listeners, stop_services, stop].
  +all() -> [start,
  +          start_services,
  +          add_listeners,
  +          {group, sequential},
  +          {group, parallel},
  +          remove_listeners,
  +          stop_services,
  +          stop].
   
   groups() ->
       Ts = testcases(),
  
positive.code:                                = Reason,
                                 {listen, _}}} ->
              Reason
      after 2000 ->
              fail({LRef, OH})
      end.
  
  %% server_reject/3
  
negative.code:                            ?packet{}}}
                      = Info ->
              Info
      after ?TIMEOUT ->
              ?fail({LRef, OH})
      end.
  
  c_client_reject(Config) ->
  