anchor.diff:      Host    = get_hostname(node()),
       ?P("[sink] create listen socket"),
       {ok, L} = ?LISTEN(Config, 0, [{active,             false},
  -				  {packet,             2},
  +				  {packet,             4},
   				  {sndbuf,             BufSz},
   				  {send_timeout,       Timeout},
   				  {send_timeout_close, AutoClose}]),
  
positive.code:     ?P("create (slave) node"),
      {ok, RNode} = ?START_SLAVE_NODE(?UNIQ_NODE_NAME, "-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)"),
  
negative.code:     {Pid, Mon} = spawn_monitor(
                     fun() ->
                             {A, _} = setup_timeout_sink(Config,
  						       RNode, SndTimeout,
  						       true, SndBuf),
                             Send = fun() ->
                                            Res = gen_tcp:send(A, BinData),
  