anchor.diff:  %% corrupt data. The testcase will be killed by the timetrap timeout
   %% if the bug is present.
   http_bad_packet(Config) when is_list(Config) ->
  -    ?line {ok,L} = gen_tcp:listen(0,
  -				  [{active, false},
  -				   binary,
  -				   {reuseaddr, true},
  -				   {packet, http}]),
  -    ?line {ok,Port} = inet:port(L),
  -    ?line spawn_link(fun() -> erlang:yield(), http_bad_client(Port) end),
  -    ?line case gen_tcp:accept(L) of
  -	      {ok,S} ->
  -		  http_worker(S);
  -	      Err ->
  -		  exit({accept,Err})
  -	  end.
  +    {ok,L} = gen_tcp:listen(0, [{active, false},
  +                                binary,
  +                                {reuseaddr, true},
  +                                {packet, http}]),
  +    {ok,Port} = inet:port(L),
  +    spawn_link(fun() -> erlang:yield(), http_bad_client(Port) end),
  +    case gen_tcp:accept(L) of
  +        {ok,S} ->
  +            http_worker(S);
  +        Err ->
  +            exit({accept,Err})
  +    end.
   
   http_worker(S) ->
       case gen_tcp:recv(S, 0, 30000) of
  
positive.code:     [{watchdog, Dog}|Config];
  init_per_testcase(iter_max_socks, Config) when is_list(Config) ->
      Dog = case os:type() of
  	      {win32,_} ->
  		  test_server:timetrap(test_server:minutes(30));
  	      _Else ->
  		  test_server:timetrap(test_server:seconds(240))
  	  end,
      [{watchdog, Dog}|Config];
  init_per_testcase(accept_system_limit, Config) when is_list(Config) ->
      case os:type() of
        {ose,_} -> 
            {skip,"Skip in OSE"};
        _ -> 
            Dog = test_server:timetrap(test_server:seconds(240)),
            [{watchdog,Dog}|Config]
      end;
  init_per_testcase(wrapping_oct, Config) when is_list(Config) ->
      Dog = test_server:timetrap(test_server:seconds(600)),
  
negative.code:     busy_disconnect_active_send(S, MuchoData).
  
  busy_disconnect_active_send(S, Data) ->
      case gen_tcp:send(S, Data) of
  	ok -> busy_disconnect_active_send(S, Data);
  	{error,closed} ->
  	    receive
  		{tcp_closed,S} -> ok;
  		_Other -> ?t:fail()
  	    end
      end.
  
  
  busy_disconnect_prepare_server(ConnectOpts) ->
      Sender = self(),
      Server = spawn_link(fun() -> busy_disconnect_server(Sender) end),
      receive {port,Server,Port} -> ok end,
      {ok,S} = gen_tcp:connect(localhost, Port, ConnectOpts),
      Server ! {Sender,sending},
      S.
  
  