anchor.diff:  %% testcases
   -export([start_ssl/1,
            start_diameter/1,
  +         make_certs/1, make_certs/0,
            start_services/1,
            add_transports/1,
            send1/1,
  
positive.code:     [{'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}]}].
  
  make_cert(Dir, Keyfile, Certfile) ->
      [K,C] = Paths = [filename:join([Dir, F]) || F <- [Keyfile, Certfile]],
  
negative.code: 
  start_diameter(_Config) ->
      ok = diameter:start().
  
  make_certs() ->
      [{timetrap, {seconds, 30}}].
  
  make_certs(Config) ->
      Dir = proplists:get_value(priv_dir, Config),
  
      [] = ?util:run([[fun make_cert/2, Dir, B] || B <- ["server1",
                                                         "server2",
                                                         "server4",
                                                         "server5",
                                                         "client"]]).
  
  start_services(Config) ->
      Dir = proplists:get_value(priv_dir, Config),
  