anchor.diff:      client_closed(Config, "base-srv", fun no_common_security/1, 5017).
   
   no_common_security(Config) ->
  +    [Common, _Acct] = apps(Config),
       connect(Config, base, [{capabilities, [{'Acct-Application-Id', []},
                                              {'Inband-Security-Id', [17, 18]}]},
  -                           {applications, [common]}]).
  +                           {applications, [Common]}]).
   
   %% ====================
   %% Have the base server reject a decent CER with the protocol error
  
positive.code:     server_reject(Config, fun base/1, 3010).
  
  c_unknown_peer(Config) ->
      true = diameter:subscribe(?CLIENT),
      OH = ?HOST("base-srv"),
  
      {CRef, _} = base(Config),
  
      {'CEA', ?caps{},
              ?packet{msg = ?answer_message{'Origin-Host' = OH,
                                            'Result-Code' = 3010}}}
          = client_recv(CRef).
  
  base(Config) ->
      connect(Config, base, []).
  
  %% ====================
  %% Have the base server reject a decent CER with the non-protocol
  
negative.code: %%
  %% %CopyrightBegin%
  %%
  %% Copyright Ericsson AB 2010-2013. All Rights Reserved.
  %%
  %% The contents of this file are subject to the Erlang Public License,
  %% Version 1.1, (the "License"); you may not use this file except in
  