anchor.diff:  			    ssh_connect_nonegtimeout_connected_sequential,
   			    ssh_connect_negtimeout_parallel,
   			    ssh_connect_negtimeout_sequential,
  -			    max_sessions]}
  +			    max_sessions_ssh_connect_parallel,
  +			    max_sessions_ssh_connect_sequential,
  +			    max_sessions_sftp_start_channel_parallel,
  +			    max_sessions_sftp_start_channel_sequential
  +			   ]}
       ].
   
   
  
positive.code: 
  %%--------------------------------------------------------------------
  
  max_sessions(Config) ->
      SystemDir = filename:join(?config(priv_dir, Config), system),
      UserDir = ?config(priv_dir, Config),
      MaxSessions = 2,
      {Pid, Host, Port} = ssh_test_lib:daemon([{system_dir, SystemDir},
  					     {user_dir, UserDir},
  					     {user_passwords, [{"carni", "meat"}]},
  					     {parallel_login, true},
  					     {max_sessions, MaxSessions}
  					    ]),
  
      Connect = fun() ->
  		      R=ssh_test_lib:connect(Host, Port, [{silently_accept_hosts, true},
  							  {user_dir, UserDir},
  							  {user_interaction, false},
  							  {user, "carni"},
  							  {password, "meat"}
  							 ]),
  		      ct:log("Connection ~p up",[R])
  	      end,
  
      try [Connect() || _ <- lists:seq(1,MaxSessions)]
      of
  	_ ->
  	    ct:pal("Expect Info Report:",[]),
  	    try Connect()
  	    of
  		_ConnectionRef ->
  		    ssh:stop_daemon(Pid),
  		    {fail,"Too many connections accepted"}
  	    catch
  		error:{badmatch,{error,"Connection closed"}} ->
  		    ssh:stop_daemon(Pid),
  		    ok
  	    end
      catch
  	error:{badmatch,{error,"Connection closed"}} ->
  
negative.code:      {group, hardening_tests}
      ].
  
  groups() ->
      [{dsa_key, [], basic_tests()},
       {rsa_key, [], basic_tests()},
       {dsa_pass_key, [], [pass_phrase]},
  