anchor.diff:  	  ]
   	 ).
   
  +
  +%%%--------------------------------------------------------------------
  +bad_service_name(Config) -> 
  +    bad_service_name(Config, "kfglkjf").
  +    
  +bad_long_service_name(Config) -> 
  +    bad_service_name(Config, 
  +		     lists:duplicate(?SSH_MAX_PACKET_SIZE div 2, $a)).
  +
  +bad_very_long_service_name(Config) -> 
  +    bad_service_name(Config,
  +		     lists:duplicate(4*?SSH_MAX_PACKET_SIZE, $a)).
  +
  +empty_service_name(Config) ->
  +    bad_service_name(Config, "").
  +    
  +bad_service_name_then_correct(Config) ->
  +    {ok,InitialState} = connect_and_kex(Config),
  +    {ok,_} =
  +	ssh_trpt_test_lib:exec(
  +	  [{set_options, [print_ops, print_seqnums, print_messages]},
  +	   {send, #ssh_msg_service_request{name = "kdjglkfdjgkldfjglkdfjglkfdjglkj"}},
  +	   {send, #ssh_msg_service_request{name = "ssh-connection"}},
  +	   {match, {'or',[#ssh_msg_disconnect{_='_'},
  +			  tcp_closed
  +			 ]},
  +		    receive_msg}
  +	   ], InitialState).
  +
  +
  +bad_service_name(Config, Name) ->
  +    {ok,InitialState} = connect_and_kex(Config),
  +    {ok,_} =
  +	ssh_trpt_test_lib:exec(
  +	  [{set_options, [print_ops, print_seqnums, print_messages]},
  +	   {send, #ssh_msg_service_request{name = Name}},
  +	   {match, {'or',[#ssh_msg_disconnect{_='_'},
  +			  tcp_closed
  +			 ]},
  +		    receive_msg}
  +	  ], InitialState).
  +
   %%%================================================================
   %%%==== Internal functions ========================================
   %%%================================================================
  
positive.code: 						     ?STRING(unicode:characters_to_binary(Pwd))>>
  					   }},
  	   {match, #ssh_msg_userauth_success{_='_'}, receive_msg}
  	  ], InitialState),
  
      %% Disconnect
      {ok,_} =
  
negative.code: 		30000).
      
  %%%----------------------------------------------------------------	
  connect_and_kex(Config) ->
      connect_and_kex(Config, ssh_trpt_test_lib:exec([]) ).
  
  connect_and_kex(Config, InitialState) ->
      ssh_trpt_test_lib:exec(
        [{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}
        ],
        InitialState).
  