anchor.diff:  	    Diff = millis() - T1,
   	    if
   		Diff > Max ->
  +		    ?P("new max send time: ~w", [Diff]),
   		    get_max_diff(Diff);
   		true ->
   		    get_max_diff(Max)
  
positive.code: 
  %% Test the send_timeout socket option.
  send_timeout(Config) when is_list(Config) ->
      ?P("begin"),
      Dir = filename:dirname(code:which(?MODULE)),
      ?P("create (slave) node"),
      {ok, RNode} = test_server:start_node(?UNIQ_NODE_NAME, slave,
  					 [{args,"-pa " ++ Dir}]),
  
      %% Basic
      ?P("basic check wo autoclose"),
      send_timeout_basic(Config, false, RNode),
      ?P("basic check w autoclose"),
      send_timeout_basic(Config, true, RNode),
  
      BinData = <<1:10000>>,
  
      %% Check timeout length.
      ?P("spawn sink process (check timeout length)"),
  
negative.code:     {Pid, Mon} = spawn_monitor(
                     fun() ->
                             {A, _} = setup_timeout_sink(Config,
  						       RNode, 1000,
  						       true, SndBuf),
                             Send = fun() ->
                                            Res = gen_tcp:send(A, BinData),
                                            Self ! Res,
  