anchor.diff:  %%% Connect to an erlang server and check that the testlib acts as a client.
   lib_works_as_client(Config) ->
       %% Connect and negotiate keys
  -    {ok,InitialState} =
  -	ssh_trpt_test_lib:exec(
  -	  [{set_options, [print_ops, print_seqnums, print_messages]},
  -	   {connect,
  -	    server_host(Config),server_port(Config),
  -	    [{preferred_algorithms,[{kex,['diffie-hellman-group1-sha1']}]},
  -	     {silently_accept_hosts, true},
  -	     {user_dir, user_dir(Config)},
  -	     {user_interaction, false}]},
  -	   receive_hello,
  -	   {send, hello},
  -	   {send, ssh_msg_kexinit},
  -	   {match, #ssh_msg_kexinit{_='_'}, receive_msg},
  -	   {send, ssh_msg_kexdh_init},
  -	   {match,# ssh_msg_kexdh_reply{_='_'}, receive_msg},
  -	   {send, #ssh_msg_newkeys{}},
  -	   {match, #ssh_msg_newkeys{_='_'}, receive_msg}
  -	  ]
  -	 ),
  +    {ok,InitialState} = ssh_trpt_test_lib:exec(
  +			  [{set_options, [print_ops, print_seqnums, print_messages]}]
  +			 ),
  +    {ok,AfterKexState} = connect_and_kex(Config, InitialState),
   
       %% Do the authentcation
       {User,Pwd} = server_user_password(Config),
  
positive.code: 		gex_client_init_default_exact,
  		gex_client_init_option_groups,
  		gex_client_init_option_groups_file
  		]}
      ].
  
  
  
negative.code: 						     ?STRING(unicode:characters_to_binary(Pwd))>>
  					   }},
  	   {match, #ssh_msg_userauth_success{_='_'}, receive_msg}
  	  ], AfterKexState),
  
      %% Disconnect
      {ok,_} =
  