anchor.diff:      KnownHosts = filename:join(PrivDir, "known_hosts"),
   
       {Pid, Host, Port} = ssh_test_lib:daemon([{system_dir, SystemDir},
  -                                              {failfun, fun ssh_test_lib:failfun/2}]),
  +                                             {failfun, fun ssh_test_lib:failfun/2}]),
       ct:sleep(500),
   
       RenegLimitK = 3,
  
positive.code:     chk_key(sshc, 'ssh-rsa', ".ssh/id_rsa", Config);
  init_per_testcase(erlang_client_openssh_server_publickey_dsa, Config) ->
      chk_key(sshd, 'ssh-dss', ".ssh/id_dsa", Config);
  init_per_testcase(erlang_server_openssh_client_renegotiate, Config) ->
      case os:type() of
  	{unix,_} -> ssh:start(), Config;
  
negative.code: %% setenv not meaningfull on erlang ssh daemon!
  
  %%--------------------------------------------------------------------
  erlang_client_openssh_server_publickey_rsa(Config) ->
      erlang_client_openssh_server_publickey_X(Config, 'ssh-rsa').
      
  erlang_client_openssh_server_publickey_dsa(Config) ->
      erlang_client_openssh_server_publickey_X(Config, 'ssh-dss').
  
  
  erlang_client_openssh_server_publickey_X(Config, Alg) ->
      ConnectionRef =
          ssh_test_lib:connect(?SSH_DEFAULT_PORT,
                               [{pref_public_key_algs, [Alg]},
                                {user_interaction, false},
                                {auth_methods, "publickey"},
                                silently_accept_hosts]),
      {ok, Channel} =
          ssh_connection:session_channel(ConnectionRef, infinity),
      ok = ssh_connection:close(ConnectionRef, Channel),
      ok = ssh:close(ConnectionRef).
  
  %%--------------------------------------------------------------------
  erlang_server_openssh_client_public_key_dsa() ->
      [{timetrap, {seconds,(?TIMEOUT div 1000)+10}}].
  erlang_server_openssh_client_public_key_dsa(Config) when is_list(Config) ->
      erlang_server_openssh_client_public_key_X(Config, 'ssh-dss').
  
  erlang_server_openssh_client_public_key_rsa() -> 
      [{timetrap, {seconds,(?TIMEOUT div 1000)+10}}].
  erlang_server_openssh_client_public_key_rsa(Config) when is_list(Config) ->
      erlang_server_openssh_client_public_key_X(Config, 'ssh-rsa').
  
  
  erlang_server_openssh_client_public_key_X(Config, Alg) ->
      SystemDir = proplists:get_value(data_dir, Config),
      PrivDir = proplists:get_value(priv_dir, Config),
      KnownHosts = filename:join(PrivDir, "known_hosts"),
      {Pid, Host, Port} = ssh_test_lib:daemon([{system_dir, SystemDir},
                                               {preferred_algorithms,[{public_key, [Alg]}]},
                                               {auth_methods, "publickey"},
  					     {failfun, fun ssh_test_lib:failfun/2}]),
      ct:sleep(500),
  
  