anchor.diff:      true = port_command(OpenSslPort, "Hello world"),
       {OpenSslPort, Port};
   start_server(erlang, PeerCA, OwnCa, Cert, Key, Config) ->
  -    CA = new_ca("erlang_server_ca", PeerCA, OwnCa),
  +     PrivDir = proplists:get_value(priv_dir, Config),
  +    CA = new_ca(filename:join(PrivDir,"erlang_server_ca.pem"), PeerCA, OwnCa),    
       {_, ServerNode, _} = ssl_test_lib:run_where(Config),
       Server = ssl_test_lib:start_server([{node, ServerNode}, {port, 0},
   			       {from, self()},
  
positive.code:     true = port_command(OpenSslPort, "Hello world"),
      OpenSslPort;
  start_client(erlang, Port, PeerCA, OwnCa, Cert, Key, Config) ->
      CA = new_ca("erlang_client_ca", PeerCA, OwnCa),
      {ClientNode, _, Hostname} = ssl_test_lib:run_where(Config),
      ssl_test_lib:start_client([{node, ClientNode}, {port, Port},
  			       {host, Hostname},
  
negative.code:                                        {cacertfile, CA},
                                         {certfile, Cert}, {keyfile, Key}]}]).
  
  
  start_server(openssl, PeerCA, OwnCa, Cert, Key, Config) ->
      PrivDir = proplists:get_value(priv_dir, Config),
      CA = new_openssl_ca(filename:join(PrivDir,"openssl_server_ca.pem"), PeerCA, OwnCa),
      Port = ssl_test_lib:inet_port(node()),
      Version = tls_record:protocol_version(tls_record:highest_protocol_version([])),
      Exe = "openssl",
  