anchor.diff:      Module:send(Socket, Chunk),
       Module:send(Socket, "0\r\n\r\n").
   
  +slow_chunked_response(Module, Socket, _, _, _) ->
  +    ChunkSize = erlang:integer_to_list(length(?LONG_BODY_PART) * 2, 16),
  +    Module:send(
  +        Socket,
  +        [
  +            "HTTP/1.1 200 OK\r\n"
  +            "Content-type: text/plain\r\n"
  +            "Transfer-Encoding: chunked\r\n\r\n"
  +        ]),
  +    Module:send(Socket, [ChunkSize, "\r\n", <<?LONG_BODY_PART>>]),
  +    timer:sleep(200),
  +    Module:send(Socket, [<<?LONG_BODY_PART>>, "\r\n"]),
  +    Module:send(Socket, "0\r\n\r\n").
  +
  +
   chunked_upload(Module, Socket, _, Headers, <<>>) ->
       TransferEncoding = lhttpc_lib:header_value("transfer-encoding", Headers),
       {Body, HeadersAndTrailers} =
  
positive.code:         {window_size, infinity}
      ],
      Options = [{partial_download, PartialDownload}],
      {ok, {Status, _, Pid}} =
          lhttpc:request(URL, get, [], <<>>, 1000, Options),
      Body = read_partial_body(Pid),
      ?assertEqual({200, "OK"}, Status),
      ?assertEqual(<<?LONG_BODY_PART ?LONG_BODY_PART ?LONG_BODY_PART>>, Body).
  
negative.code:                 ?_test(partial_download_no_content()),
                  ?_test(limited_partial_download_identity()),
                  ?_test(partial_download_chunked()),
                  ?_test(partial_download_chunked_infinite_part()),
                  ?_test(partial_download_slow_chunks()),
                  ?_test(close_connection()),
                  ?_test(message_queue()),
                  ?_test(connection_count()) % just check that it's 0 (last)
  