anchor.diff:      end,
       Module:close(Socket).
   
  -slow_response(Module, Socket, _, _, _) ->
  +very_slow_response(Module, Socket, _, _, _) ->
       timer:sleep(1000),
       Module:send(
           Socket,
  
positive.code:     ?assertEqual(<<>>, body(ThirdResponse)).
  
  request_timeout() ->
      Port = start(gen_tcp, [fun slow_response/5]),
      URL = "http://localhost:" ++ integer_to_list(Port) ++ "/slow",
      ?assertEqual({error, timeout}, lhttpc:request(URL, get, [], 50)).
  
  
negative.code:     {ok, Response} = lhttpc:request(URL, "GET", [], 1000),
      ?assertEqual({200, "OK"}, status(Response)),
      ?assertEqual(<<>>, body(Response)).
  
  get_with_mandatory_hdrs() ->
      Port = start(gen_tcp, [fun simple_response/5]),
      URL = "http://localhost:" ++ integer_to_list(Port) ++ "/host",
      Body = <<?DEFAULT_STRING>>,
      Hdrs = [
          {"content-length", integer_to_list(size(Body))},
          {"host", "localhost"}
      ],
      {ok, Response} = lhttpc:request(URL, "POST", Hdrs, Body, 1000),
      ?assertEqual({200, "OK"}, status(Response)),
      ?assertEqual(<<?DEFAULT_STRING>>, body(Response)).
  
  no_content_length_get() ->
      Port = start(gen_tcp, [fun no_content_length/5]),
  