anchor.diff:  send_bad_answer(Config) ->
       Req = ['ACR', {'Accounting-Record-Type', ?EVENT_RECORD},
                     {'Accounting-Record-Number', 2}],
  -    {error, timeout} = call(Config, Req).
  +    {timeout, _} = call(Config, Req).
   
   %% Send an ACR that the server callback answers explicitly with a
   %% protocol error.
  
positive.code: %% Timeout before the server manages an answer.
  send_timeout(Config) ->
      Req = ['RAR', {'Re-Auth-Request-Type', ?AUTHORIZE_ONLY}],
      {error, timeout} = call(Config, Req, [{timeout, 1000}]).
  
  %% Explicitly answer with an answer-message and ensure that we
  %% received the Session-Id.
  
negative.code: 
  %% handle_answer/6-7
  
  handle_answer(Pkt, Req, ?CLIENT, Peer, {Name, Group}, _) ->
      answer(Pkt, Req, Peer, Name, Group).
  
  handle_answer(Pkt, Req, ?CLIENT, Peer, {send_detach = Name, Group}, _, X) ->
      {Pid, Ref} = X,
      Pid ! {Ref, answer(Pkt, Req, Peer, Name, Group)}.
  
  