anchor.diff:           killing_multi_acceptors/1,
            killing_multi_acceptors2/1,
   	 several_accepts_in_one_go/1, accept_system_limit/1,
  -	 active_once_closed/1, send_timeout/1, send_timeout_active/1,
  +	 active_once_closed/1,
  +         send_timeout_basic_wo_autoclose/1,
  +         send_timeout_basic_w_autoclose/1,
  +         send_timeout_check_length/1,
  +         send_timeout_para_wo_autoclose/1,
  +         send_timeout_para_w_autoclose/1,
  +         send_timeout_active/1,
            send_timeout_resume/1,
            otp_7731/1, zombie_sockets/1, otp_7816/1, otp_8102/1,
            wrapping_oct/0, wrapping_oct/1, otp_9389/1, otp_13939/1,
  
positive.code:     ?P("[para] cleanup - await sender terminations"),
      st_await_sender_termination(Snd1, Snd2),
      ?P("[para] cleanup - close socket"),
      (catch gen_tcp:close(A)),
      ?P("[para] cleanup - kill sink"),
      exit(Pid, kill),
      ?P("[para] done"),
      ok.
  
  st_await_sender_termination(undefined, undefined) ->
      ok;
  st_await_sender_termination(Sender1, Sender2) ->
  
negative.code:     ?P("await (timeout checker) process death"),
      receive {'DOWN', Mon, process, Pid, _} -> ok end,
  
      ?P("done"),
      ok.
  
  %% Test the send_timeout socket option.
  send_timeout_para_wo_autoclose(Config) when is_list(Config) ->
      Pre  = fun() ->
                     Dir = filename:dirname(code:which(?MODULE)),
                     ?P("create node"),
                     {ok, RNode} = ?START_NODE(?UNIQ_NODE_NAME, "-pa " ++ Dir),
                     RNode
             end,
      Case = fun(Node) -> do_send_timeout_para_wo_autoclose(Config, Node) end,
      Post = fun(Node) ->
                     ?P("stop node ~p", [Node]),
                     ?STOP_NODE(Node)
             end,
      ?TC_TRY(?FUNCTION_NAME, Pre, Case, Post).
  
  do_send_timeout_para_wo_autoclose(Config, RNode) ->
      ?P("begin"),
      {TslTimeout, SndTimeout, BinData, SndBuf} = send_timeout_cfg(Config),
  
      %% Check that parallel writers do not hang forever
      ?P("check parallel writers wo autoclose"),
      send_timeout_para(Config, BinData, SndBuf, TslTimeout, SndTimeout,
  		      false, RNode),
  
      ?P("done"),
      ok.
  
  %% Test the send_timeout socket option.
  send_timeout_para_w_autoclose(Config) when is_list(Config) ->
      Pre  = fun() ->
                     Dir = filename:dirname(code:which(?MODULE)),
                     ?P("create node"),
                     {ok, RNode} = ?START_NODE(?UNIQ_NODE_NAME, "-pa " ++ Dir),
                     RNode
             end,
      Case = fun(Node) -> do_send_timeout_para_w_autoclose(Config, Node) end,
      Post = fun(Node) ->
                     ?P("stop node ~p", [Node]),
                     ?STOP_NODE(Node)
             end,
      ?TC_TRY(?FUNCTION_NAME, Pre, Case, Post).
  
  do_send_timeout_para_w_autoclose(Config, RNode) ->
      ?P("begin"),
      {TslTimeout, SndTimeout, BinData, SndBuf} = send_timeout_cfg(Config),
  
      %% Check that parallel writers do not hang forever
      ?P("check parallel writers wo autoclose"),
      send_timeout_para(Config, BinData, SndBuf, TslTimeout, SndTimeout,
  		      true, RNode),
  
      ?P("done"),
      ok.
  
  send_timeout_para(Config, BinData, BufSz, TslTimeout, SndTimeout,
  		  AutoClose, RNode) ->
  