anchor.diff:      call(?SERVER4).
   send5(_Config) ->
       call(?SERVER5).
  -
  -%% Remove the client transports and expect the corresponding server
  -%% transport to go down.
  -remove_transports(Config) ->
  -    Ts = proplists:get_value(transports, Config),
  -    [] = [T || S <- ?SERVERS, T <- [diameter:subscribe(S)], T /= true],
  -    lists:map(fun disconnect/1, Ts).
  -
  -stop_services(_Config) ->
  -    Hs = [?CLIENT | ?SERVERS],
  -    Ok = [ok || _ <- Hs],
  -    Ok = [diameter:stop_service(H) || H <- Hs].
   
   %% ===========================================================================
   %% diameter callbacks
  
positive.code: 
  %% ===========================================================================
  %% testcases
  
  %% Send an STR intended for a specific server and expect success.
  send1(_Config) ->
  
negative.code:          end_per_suite/1]).
  
  %% testcases
  -export([start_ssl/1,
           start_diameter/1,
           start_services/1,
           add_transports/1,
           send1/1,
           send2/1,
           send3/1,
           send4/1,
           send5/1,
           remove_transports/1,
           stop_services/1,
           stop_diameter/1,
           stop_ssl/1]).
  
  %% diameter callbacks
  -export([peer_up/3,
  