anchor.diff:  %% ===========================================================================
   
   suite() ->
  -    [{timetrap, {seconds, 15}}].
  +    [{timetrap, {seconds, 10}}].
   
   all() ->
       [start_ssl,
        start_diameter,
  +     make_certs,
        start_services,
        add_transports]
           ++ [{group, N} || {N, _, _} <- groups()]
  
positive.code: 
  start_diameter(_Config) ->
      ok = diameter:start().
  
  start_services(Config) ->
      Dir = proplists:get_value(priv_dir, Config),
  
negative.code:     [{'Inband-Security-Id', Ids}].
  
  ssl_options(Dir, Base) ->
      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]],
  