anchor.diff:              ct:sleep(?SECS(1)),
   	    exit({timeout, AutoClose, Second})
       end,
  -    {error,Error_2} = gen_tcp:send(A, <<"Hej">>),
  +    {error, Error_2} = gen_tcp:send(A, <<"Hej">>),
       after_send_timeout(AutoClose, Error_2),
  -    ?P("cleanup"),
  +    ?P("cleanup - close socket"),
       (catch gen_tcp:close(A)),
  +    ?P("cleanup - kill sink"),
       exit(Pid, kill),
       ?P("[para] done"),
       ok.
  
positive.code:                            {{error, timeout}, _} = timeout_sink_loop(Send)
                     end),
      Diff = get_max_diff(),
      ?P("Max time for send: ~p",[Diff]),
      true = (Diff > 500) and (Diff < 1500),
  
      %% Wait for the process to die.
  
negative.code: 
  %% Test the send_timeout socket option.
  send_timeout(Config) when is_list(Config) ->
      ?TC_TRY(send_timeout, fun() -> do_send_timeout(Config) end).
  
  do_send_timeout(Config) ->
      ?P("begin"),
      Dir = filename:dirname(code:which(?MODULE)),
      ?P("create (slave) node"),
      {ok, RNode} = test_server:start_node(?UNIQ_NODE_NAME, slave,
  					 [{args,"-pa " ++ Dir}]),
  
      {BinData, SndBuf} = 
  	case ?IS_SOCKET_BACKEND(Config) of
  	    true ->
  		{binary:copy(<<$a:8>>, 10*1024), 4*1024};
  	    false ->
  		{binary:copy(<<$a:8>>, 1*1024),  16*1024}
  	end,
  
      %% Basic
      ?P("basic check wo autoclose"),
      send_timeout_basic(Config, BinData, SndBuf, false, RNode),
      ?P("basic check w autoclose"),
      send_timeout_basic(Config, BinData, SndBuf, true, RNode),
  
      %% Check timeout length.
      ?P("spawn sink process (check timeout length)"),
  