anchor.diff:  %%--------------------------------------------------------------------
   %% Testing all default groups
   
  -simple_exec_groups() -> [{timetrap,{seconds,90}}].
  +simple_exec_groups() -> [{timetrap,{seconds,180}}].
   
   simple_exec_groups(Config) ->
       Sizes = interpolate( public_key:dh_gex_group_sizes() ),
  
positive.code: %%--------------------------------------------------------------------
  %% Use the ssh client of the OS to connect
  
  sshc_simple_exec() -> [{timetrap,{seconds,90}}].
  
  sshc_simple_exec(Config) ->
      PrivDir = ?config(priv_dir, Config),
      KnownHosts = filename:join(PrivDir, "known_hosts"),
  
negative.code: 	    catch port_close(SshPort),
  	    ok;
  	Other ->
  	    ct:log("Got UNEXPECTED ~p",[Other]),
  	    rcv_expected(SshPort, Expect)
  
      after ?TIMEOUT ->
  	    catch port_close(SshPort),
  	    ct:fail("Did not receive answer")
      end.
  
  