anchor.diff:      end.
   
   c_client_reject(Config) ->
  +    Dict0 = dict0(Config),
       true = diameter:subscribe(?CLIENT),
  -    OH = ?HOST("acct-srv"),
  +    OH = host(Config, "acct-srv"),
   
       {CRef, _} = client_reject(Config),
   
       {'CEA', {capabilities_cb, _, discard},
               ?caps{origin_host = {_, OH}},
  -            ?packet{msg = ?cea{'Result-Code' = 2001}}}
  -        = client_recv(CRef).
  +            ?packet{msg = CEA}}
  +        = client_recv(CRef),
  +
  +    [diameter_base_CEA | _] = Dict0:'#get-'(CEA),
  +    [2001] = Dict0:'#get-'(['Result-Code'], CEA).
   
   client_reject(Config) ->
  -    connect(Config, acct, [{capabilities_cb, fun client_capx/2}]).
  +    connect(Config, acct, [{capabilities_cb, fun client_capx/2},
  +                           {applications, apps(Config)}]).
   
   %% ===========================================================================
   
  
positive.code:        N == stop_services;
         N == stop ->
      ok;
  end_per_testcase(Name, Config) ->
      CRef = ?util:read_priv(Config, Name),
      ok = diameter:remove_transport(?CLIENT, CRef).
  
negative.code: 
  client_closed(Config, Host, F, RC) ->
      true = diameter:subscribe(?CLIENT),
      OH = host(Config, Host),
  
      {CRef, _} = F(Config),
  
      {'CEA', RC, ?caps{origin_host = {_, OH}}, ?packet{}}
          = client_recv(CRef).
  
  srv(Config, Host) ->
      "rfc" ++ N = atom_to_list(proplists:get_value(rfc, Config)),
      [H, "srv" = S] = string:tokens(Host, "-"),
      H ++ N ++ "-" ++ S.
  
  host(Config, Name) ->
      ?HOST(srv(Config, Name)).
  
  %% client_recv/1
  
  