anchor.diff:  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
  -	false ->
  -	    {skip,lists:concat(["openssh client does not support ",Name])};
  -	true ->
  -	    {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 --------------------------------------------------------
  
positive.code:     end.
  
  groups() -> 
      [{erlang_client, [], [erlang_shell_client_openssh_server,
  			  erlang_client_openssh_server_exec_compressed,
  			  erlang_client_openssh_server_setenv,
  			  erlang_client_openssh_server_publickey_dsa,
  			  erlang_client_openssh_server_publickey_rsa,
  			  erlang_client_openssh_server_password,
  			  erlang_client_openssh_server_kexs,
  			  erlang_client_openssh_server_nonexistent_subsystem,
  			  erlang_client_openssh_server_renegotiate
  			 ]},
       {erlang_server, [], [erlang_server_openssh_client_public_key_dsa,
  			  erlang_server_openssh_client_public_key_rsa,
  			  erlang_server_openssh_client_renegotiate
  			 ]}
      ].
  
  
negative.code:     receive_logout(),
      receive_normal_exit(Shell).
     
  %%--------------------------------------------------------------------
  %% Test that the Erlang/OTP server can renegotiate with openSSH
  erlang_server_openssh_client_renegotiate(Config) ->
  