anchor.diff:      {ok, "H"++_} = Remote(fun() -> gen_tcp:recv(C, 0) end),
       {A, C}.
   
  -timeout_sink_loop(Action) ->
  -    timeout_sink_loop(Action, 100).
  +%% timeout_sink_loop(Action) ->
  +%%     timeout_sink_loop(Action, 1).
   
   timeout_sink_loop(Action, To) ->
       put(action,  nothing),
  
positive.code:                                           Self ! Res,
                                            Res
                                    end,
                             {{error, timeout}, _} = timeout_sink_loop(Send)
                     end),
      Diff = get_max_diff(),
      ?P("Max time for send: ~p", [Diff]),
  
negative.code:     ?P("create (slave) node"),
      {ok, RNode} = ?START_SLAVE_NODE(?UNIQ_NODE_NAME, "-pa " ++ Dir),
  
      {TslTimeout, SndTimeout, BinData, SndBuf} = 
  	case ?IS_SOCKET_BACKEND(Config) of
  	    true ->
  		{100, 3000, binary:copy(<<$a:8>>, 10*1024), 5*1024};
  	    false ->
  		{1,   1000, binary:copy(<<$a:8>>, 1*1024),  16*1024}
  	end,
  
      %% Basic
      ?P("basic check wo autoclose"),
      send_timeout_basic(Config, BinData, SndBuf, TslTimeout, SndTimeout,
  		       false, RNode),
      ?P("basic check w autoclose"),
      send_timeout_basic(Config, BinData, SndBuf, TslTimeout, SndTimeout,
  		       true, RNode),
  
      %% Check timeout length.
      ?P("spawn sink process (check timeout length)"),
  