anchor.diff:      {Pid, Host, Port} = ssh_test_lib:daemon([{system_dir, SystemDir},
   					     {public_key_alg, ssh_dsa},
   					     {failfun, fun ssh_test_lib:failfun/2}]),
  -    
  +
       ct:sleep(500),
   
       Cmd = "ssh -p " ++ integer_to_list(Port) ++
  
positive.code: erlang_client_openssh_server_publickey_dsa() ->
      [{doc, "Validate using dsa publickey."}].
  erlang_client_openssh_server_publickey_dsa(Config) when is_list(Config) ->
      {ok,[[Home]]} = init:get_argument(home),
      KeyFile =  filename:join(Home, ".ssh/id_dsa"),
      case file:read_file(KeyFile) of
  	{ok, Pem} ->
  	    case public_key:pem_decode(Pem) of
  		[{_,_, not_encrypted}] ->
  		    ConnectionRef =
  			ssh_test_lib:connect(?SSH_DEFAULT_PORT,
  					     [{public_key_alg, ssh_dsa},
  					      {user_interaction, false},
  					      silently_accept_hosts]),
  		    {ok, Channel} =
  			ssh_connection:session_channel(ConnectionRef, infinity),
  		    ok = ssh_connection:close(ConnectionRef, Channel),
  		    ok = ssh:close(ConnectionRef);
  		_ ->
  		    {skip, {error, "Has pass phrase can not be used by automated test case"}} 
  	    end;
  	_ ->
  	    {skip, "no ~/.ssh/id_dsa"}  
      end.
  %%--------------------------------------------------------------------
  erlang_server_openssh_client_public_key_dsa() ->
      [{doc, "Validate using dsa publickey."}].
  
negative.code:     SshPort = open_port({spawn, Cmd}, [binary]),
  
      receive
  	{SshPort,{data, <<"2\n">>}} ->
  	    ok
      after ?TIMEOUT ->
  	    ct:fail("Did not receive answer")
      end,
      ssh:stop_daemon(Pid).
  
  %%--------------------------------------------------------------------
  erlang_client_openssh_server_password() ->
  