anchor.diff:  
   suite() ->
       [{ct_hooks,[ts_install_cth]},
  -     {timetrap,{seconds,40}}].
  +     {timetrap,{seconds,100}}].
   
   all() -> 
       [default_tree, sshc_subtree, sshd_subtree, sshd_subtree_profile].
  
positive.code: 	lists:keysearch(sshc_sup, 1, TopSupChildren),
      {value, {sshd_sup, _,supervisor,[sshd_sup]}} = 
  	lists:keysearch(sshd_sup, 1, TopSupChildren),
      [] = supervisor:which_children(sshc_sup),
      [] = supervisor:which_children(sshd_sup).
  
  sshc_subtree() ->
      [{doc, "Make sure the sshc subtree is correct"}].
  
negative.code: 						   {user_interaction, false},
  						   {user, ?USER}, {password, ?PASSWD},{user_dir, UserDir}]),
      
      ?wait_match([{_,SubSysSup, supervisor,[ssh_subsystem_sup]},
  		 {{ssh_acceptor_sup,_,_,_}, AccSup, supervisor,[ssh_acceptor_sup]}],
  		supervisor:which_children(Daemon),
  	       [SubSysSup,AccSup]),
      
      ?wait_match([{{server,ssh_connection_sup, _,_},
  		  ConnectionSup, supervisor,
  		  [ssh_connection_sup]},
  		 {{server,ssh_channel_sup,_ ,_},
  		  ChannelSup,supervisor,
  		  [ssh_channel_sup]}],
  		supervisor:which_children(SubSysSup),
  		[ConnectionSup,ChannelSup]),
      
      ?wait_match([{{ssh_acceptor_sup,_,_,_},_,worker,[ssh_acceptor]}],
  		supervisor:which_children(AccSup)),
      
      ?wait_match([{_, _, worker,[ssh_connection_handler]}],
  		supervisor:which_children(ConnectionSup)),
      
      ?wait_match([], supervisor:which_children(ChannelSup)),
      
      ssh_sftp:start_channel(Client),
  
      ?wait_match([{_, _,worker,[ssh_channel]}],
  		supervisor:which_children(ChannelSup)),
      ssh:close(Client).
    
  