anchor.diff:  %%--------------------------------------------------------------------
   %% 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"),
  
positive.code: %% Note: This directive should only be used in test suites.
  -compile(export_all).
  
  -define(TIMEOUT, 50000).
  
  %%--------------------------------------------------------------------
  %% Common Test interface functions -----------------------------------
  
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.
  
  