anchor.diff:  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.
  +    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).
  +
   %%--------------------------------------------------------------------
   erlang_server_openssh_client_public_key_dsa() ->
       [{doc, "Validate using dsa publickey."}].
  
positive.code:     {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) ++
  
negative.code:     UserDir = ?config(data_dir, Config),
      {error, Reason0} =
  	ssh:connect(any, ?SSH_DEFAULT_PORT, [{silently_accept_hosts, true},
  					     {user, "foo"},
  					     {password, "morot"},
  					     {user_interaction, false},
  					     {user_dir, UserDir}]),
      
      ct:log("Test of user foo that does not exist. "
  		       "Error msg: ~p~n", [Reason0]),
  