anchor.diff:      [{'Inband-Security-Id', Ids}].
   
   ssl_options(Dir, Base) ->
  -    {Key, Cert} = make_cert(Dir, Base ++ "_key.pem", Base ++ "_ca.pem"),
  -    [{ssl_options, [{certfile, Cert}, {keyfile, Key}]}].
  +    Root = filename:join([Dir, Base]),
  +    [{ssl_options, [{certfile, Root ++ "_ca.pem"},
  +                    {keyfile,  Root ++ "_key.pem"}]}].
  +
  +make_cert(Dir, Base) ->
  +    make_cert(Dir, Base ++ "_key.pem", Base ++ "_ca.pem").
   
   make_cert(Dir, Keyfile, Certfile) ->
       [K,C] = Paths = [filename:join([Dir, F]) || F <- [Keyfile, Certfile]],
  
positive.code: %% testcases
  -export([start_ssl/1,
           start_diameter/1,
           start_services/1,
           add_transports/1,
           send1/1,
  
negative.code: %% ===========================================================================
  
  suite() ->
      [{timetrap, {seconds, 10}}].
  
  all() ->
      [start_ssl,
       start_diameter,
       make_certs,
       start_services,
       add_transports]
          ++ [{group, N} || {N, _, _} <- groups()]
  