anchor.diff:  answer(Rec, [], _) ->
       Rec.
   
  -app(_, send_unsupported_app) ->
  +app(_, send_unsupported_app, _) ->
       ?BAD_APP;
  -app(Req, _) ->
  -    Dict = dict(Req),
  +app(Req, _, Dict0) ->
  +    Dict = dict(Req, Dict0),
       Dict:id().
   
   %% handle_error/6
   
  -handle_error(Reason, _Req, ?CLIENT, _Peer, _Name, _Id) ->
  +handle_error(Reason, _Req, ?CLIENT, _Peer, _Name, _Group) ->
       {error, Reason}.
   
   %% handle_request/3
  
positive.code:     Req = ['ACR', {'Accounting-Record-Type', ?EVENT_RECORD},
                    {'Accounting-Record-Number', 1}],
  
      #diameter_base_accounting_ACA{'Result-Code' = ?SUCCESS}
          = call(Config, Req).
  
  %% Send an accounting ACR that the server answers badly to.
  
negative.code: 
  all() ->
      [start, start_services, add_transports, result_codes]
          ++ [{group, ?util:name([R,D,A,C]), P} || R <- ?ENCODINGS,
                                                   D <- ?RFCS,
                                                   A <- ?ENCODINGS,
                                                   C <- ?CONTAINERS,
                                                   P <- [[], [parallel]]]
          ++ [outstanding, remove_transports, empty, stop_services, stop].
  
  groups() ->
      Ts = tc(),
      [{?util:name([R,D,A,C]), [], Ts} || R <- ?ENCODINGS,
                                          D <- ?RFCS,
                                          A <- ?ENCODINGS,
                                          C <- ?CONTAINERS].
  
  init_per_group(Name, Config) ->
      [R,D,A,C] = ?util:name(Name),
      G = #group{client_encoding = R,
                 client_dict0 = dict0(D),
                 server_encoding = A,
                 server_container = C},
      [{group, G} | Config].
  
  end_per_group(_, _) ->
      ok.
  