anchor.diff:      ok.
   
   init_per_suite(Config) ->
  -    init(os:find_executable("openssl"), Config).
  -
  -init(false, _) ->
  -    {skip, no_openssl};
  -init(_, Config) ->
  -    ok = ssl:start(),
  -    ok = diameter:start(),
  -
  -    Dir = proplists:get_value(priv_dir, Config),
  -    Servers = [server(S, sopts(S, Dir)) || S <- ?SERVERS],
  -
  -    ok = diameter:start_service(?CLIENT, ?SERVICE(?CLIENT, ?DICT_COMMON)),
  -    true = diameter:subscribe(?CLIENT),
  -
  -    Opts = ssl_options(Dir, "client"),
  -    Connections = [connect(?CLIENT, S, copts(N, Opts))
  -                   || {S,N} <- lists:zip(Servers, ?SERVERS)],
  -
  -    [{transports, lists:zip(Servers, Connections)} | Config].
  +    case os:find_executable("openssl") of
  +        false ->
  +            {skip, no_openssl};
  +        _ ->
  +            Config
  +    end.
   
   end_per_suite(_Config) ->
  -    ok = diameter:stop(),
  -    ok = ssl:stop().
  +    ok.
   
   %% Testcases to run when services are started and connections
  -%% established. These are trivial, the interesting stuff is setting up
  -%% the connections in init_per_suite/2.
  +%% established.
   tc() ->
       [send1,
        send2,
  
positive.code: 
  %% ===========================================================================
  %% testcases
  
  %% Send an STR intended for a specific server and expect success.
  send1(_Config) ->
  
negative.code:     call(?SERVER4).
  send5(_Config) ->
      call(?SERVER5).
  
  %% ===========================================================================
  %% diameter callbacks
  