anchor.diff:  			     gen_tcp:connect(Host,Port,
   					     [{active,false},{packet,2}])
   		     end),
  -    {ok,A} = gen_tcp:accept(L),
  +    {ok, A} = gen_tcp:accept(L),
       gen_tcp:send(A,"Hello"),
       {ok, "Hello"} = Remote(fun() -> gen_tcp:recv(C,0) end),
       A.
  
positive.code:     flush(),
      ok.
  
  after_send_timeout(AutoClose, Reason) ->
      case Reason of
          timeout when AutoClose =:= false -> ok;
          enotconn when AutoClose =:= true -> ok
  %%%        timeout -> ok;
  %%%        enotconn when AutoClose -> ok;
  %%%        closed when AutoClose -> ok
      end.
  
  get_max_diff() ->
      receive
  	ok ->
  	    get_max_diff(0)
      after 10000 ->
  	    exit(timeout)
      end.
  
  get_max_diff(Max) ->
      T1 = millis(),
      receive
  	ok ->
  	    Diff = millis() - T1,
  	    if
  		Diff > Max ->
  		    get_max_diff(Diff);
  		true ->
  		    get_max_diff(Max)
  	    end;
  	{error,timeout} ->
  	    Diff = millis() - T1,
  	    if
  		Diff > Max ->
  		    Diff;
  		true ->
  		    Max
  	    end
      after 10000 ->
                exit(timeout)
      end.
  	    
  setup_closed_ao() ->
      Dir = filename:dirname(code:which(?MODULE)),
      ?P("[setup] start slave node"),
  
negative.code:     {ok, C} = Remote(fun() ->
  			     gen_tcp:connect(Host, Port, [{active,false}])
  		     end),
      {ok, A} = gen_tcp:accept(L),
      gen_tcp:send(A, "Hello"),
      {ok, "H"++_} = Remote(fun() -> gen_tcp:recv(C, 0) end),
      {A, C}.
  
  timeout_sink_loop(Action) ->
      Ret = Action(),
  