anchor.diff:                                            Res
                                     end,
                              {error, timeout} = timeout_sink_loop(Send)
  -	      end),
  +                   end),
       Diff = get_max_diff(),
       ?P("Max time for send: ~p",[Diff]),
       true = (Diff > 500) and (Diff < 1500),
  
positive.code:     SenderFun = fun() ->
                          ?P("[para:sender] start"),
  			Send = fun() -> gen_tcp:send(A, BinData) end,
  			{error,Error} = timeout_sink_loop(Send),
  			Self ! {error,Error}
  		end,
      ?P("[para] spawn process 1 with sender fun"),
      Snd1 = spawn_link(SenderFun),
  
negative.code:        "~n   Sender 1: ~p"
         "~n   Sender 2: ~p", [Snd1, Snd2]),
      receive
  	{Snd1, {error, timeout}} ->
              ?P("[para] timeout received from sender 1 (~p)", [Snd1]),
              ok;
  	{Snd2, {error, timeout}} ->
              ?P("[para] timeout received from sender 2 (~p)", [Snd2]),
              ok
      after 10000 ->
              ?P("[para] UNEXPECTED timeout(1,~w) when:"
                 "~n   Sender 1 Info: ~p"
                 "~n   Sender 2 Info: ~p"
                 "~n   Message Queue: ~p",
                 [AutoClose,
                  (catch process_info(Snd1)),
                  (catch process_info(Snd2)),
                  flush()]),
  	    exit({timeout, AutoClose})
      end,
  
      ?P("await sender error"),
      receive
  	{Snd1, {error, Error_1}} ->
              ?P("[para] error (~p) received from sender 1 (~p)",
                 [Error_1, Snd1]),
              after_send_timeout(AutoClose, Error_1);
  	{Snd2, {error, Error_1}} ->
              ?P("[para] error (~p) received from sender 2 (~p)",
                 [Error_1, Snd2]),
              after_send_timeout(AutoClose, Error_1)
      after 10000 ->
              ?P("[para] UNEXPECTED timeout(2,~w)", [AutoClose]),
  