anchor.diff:      ?P("done"),
       ok.
   
  -send_timeout_basic(Config, AutoClose, RNode) ->
  -    BinData = <<1:10000>>,
  -
  -    {A, Pid}              = setup_timeout_sink(Config, RNode, 1000, AutoClose),
  +send_timeout_basic(Config, BinData, SndBuf, AutoClose, RNode) ->
  +    ?P("[basic] sink"),
  +    {A, Pid}              = setup_timeout_sink(Config, RNode, 1000,
  +					       AutoClose, SndBuf),
       Send                  = fun() -> gen_tcp:send(A, BinData) end,
       {{error, timeout}, _} = timeout_sink_loop(Send),
   
  
positive.code: 
  setup_active_timeout_sink(Config, RNode, Timeout, AutoClose) ->
      Host = get_hostname(node()),
      ListenOpts =  [binary,{active,false},{packet,0},
  		   {nodelay,true},{keepalive,true},
  		   {send_timeout,Timeout},{send_timeout_close,AutoClose}],
      {ok, L} = ?LISTEN(Config, 0, ListenOpts),
      Fun = fun(F) ->
  		  receive
  
negative.code: 
      %% Check that parallell writers do not hang forever
      ?P("check parallell writers wo autoclose"),
      send_timeout_para(Config, BinData, SndBuf, false, RNode),
      ?P("check parallell writers w autoclose"),
      send_timeout_para(Config, BinData, SndBuf, true, RNode),
  
      ?P("stop (slave) node"),
      test_server:stop_node(RNode),
  