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: 
  
  init_per_testcase(erlang_server_openssh_client_public_key_dsa, Config) ->
      case ssh_test_lib:openssh_supports(sshc, public_key, 'ssh-dss') of
  	true ->
  	    init_per_testcase('__default__',Config);
  	false ->
  	    {skip,"openssh client does not support DSA"}
      end;
  init_per_testcase(erlang_client_openssh_server_publickey_dsa, Config) ->
      case ssh_test_lib:openssh_supports(sshd, public_key, 'ssh-dss') of
  	true ->
  	    init_per_testcase('__default__',Config);
  	false ->
  	    {skip,"openssh client does not support DSA"}
      end;
  init_per_testcase(_TestCase, Config) ->
      ssh:start(),
      Config.
  
negative.code: end_per_testcase(_TestCase, _Config) ->
      ssh:stop(),
      ok.
  
  
  chk_key(Pgm, Name, File, Config) ->
      case ssh_test_lib:openssh_supports(Pgm, public_key, Name) of
  	true ->
  	    {skip,lists:concat(["openssh client does not support ",Name])};
  	false ->
  	    {ok,[[Home]]} = init:get_argument(home),
  	    KeyFile =  filename:join(Home, File),
  	    case file:read_file(KeyFile) of
  		{ok, Pem} ->
  		    case public_key:pem_decode(Pem) of
  			[{_,_, not_encrypted}] ->
  			    init_per_testcase('__default__',Config);
  			_ ->
  			    {skip, {error, "Has pass phrase can not be used by automated test case"}} 
  		    end;
  		_ ->
  		    {skip, lists:concat(["no ~/",File])}  
  	    end
      end.
  
  %%--------------------------------------------------------------------
  %% Test Cases --------------------------------------------------------
  