anchor.diff:      URL = ssl_url(Port, "/simple"),
       Body = "SSL Test <o/",
       BinaryBody = list_to_binary(Body),
  -    {ok, Response} = lhttpc:request(URL, "POST", [], Body, 1000),
  +    {ok, Response} = lhttpc:request(URL, "POST", [], Body, 1000, [{pool_options, [{pool_ensure, true}, {pool, lhttpc_manager}]}]),
       ?assertEqual({200, "OK"}, status(Response)),
       ?assertEqual(BinaryBody, body(Response)).
   
   ssl_chunked() ->
       Port = start(ssl, [fun webserver_utils:chunked_response/5, fun webserver_utils:chunked_response_t/5]),
       URL = ssl_url(Port, "/ssl_chunked"),
  -    FirstResult = lhttpc:request(URL, get, [], 100),
  +	{ok, Client} = lhttpc:connect_client(URL, []),
  +    FirstResult = lhttpc:request_client(Client, URL, get, [], [], 100, [{pool_options, [{pool_ensure, true}, {pool, lhttpc_manager}]}]),
       ?assertMatch({ok, _}, FirstResult),
       {ok, FirstResponse} = FirstResult,
       ?assertEqual({200, "OK"}, status(FirstResponse)),
       ?assertEqual(list_to_binary(webserver_utils:default_string()), body(FirstResponse)),
       ?assertEqual("chunked", lhttpc_lib:header_value("transfer-encoding",
               headers(FirstResponse))),
  -    SecondResult = lhttpc:request(URL, get, [], 100),
  +    SecondResult = lhttpc:request_client(Client, URL, get, [], [], 100, [{pool_options, [{pool_ensure, true}, {pool, lhttpc_manager}]}]),
       {ok, SecondResponse} = SecondResult,
       ?assertEqual({200, "OK"}, status(SecondResponse)),
       ?assertEqual(<<"Again, great success!">>, body(SecondResponse)),
  
positive.code: ssl_get() ->
      Port = start(ssl, [fun webserver_utils:simple_response/5]),
      URL = ssl_url(Port, "/simple"),
      {ok, Response} = lhttpc:request(URL, "GET", [], 1000),
      ?assertEqual({200, "OK"}, status(Response)),
      ?assertEqual(list_to_binary(webserver_utils:default_string()), body(Response)).
  
  ssl_get_ipv6() ->
      Port = start(ssl, [fun webserver_utils:simple_response/5], inet6),
      URL = ssl_url(inet6, Port, "/simple"),
      {ok, Response} = lhttpc:request(URL, "GET", [], 1000),
      ?assertEqual({200, "OK"}, status(Response)),
      ?assertEqual(list_to_binary(webserver_utils:default_string()), body(Response)).
  
  
negative.code:     ?assertEqual(element(2, Trailer),
          lhttpc_lib:header_value("x-test-orig-trailer-1", headers(Response2))).
  
  partial_upload_chunked_no_trailer() ->
      Port = start(gen_tcp, [fun webserver_utils:chunked_upload/5]),
      URL = url(Port, "/partial_upload_chunked_no_trailer"),
      Body = [<<"This">>, <<" is ">>, <<"chunky">>, <<" stuff!">>],
      Options = [{partial_upload, true}],
  	{ok, Client} = lhttpc:connect_client(URL, []),
      {ok, partial_upload} = lhttpc:request_client(Client, URL, post, [], hd(Body), 1000, Options),
  	
  	ok = upload_parts(Client, tl(Body)),
  	
  	{ok, Response} = lhttpc:send_body_part(Client, http_eob, 1000),
  	
      ?assertEqual({200, "OK"}, status(Response)),
      ?assertEqual(list_to_binary(webserver_utils:default_string()), body(Response)),
      ?assertEqual("This is chunky stuff!",
  				 	lhttpc_lib:header_value("x-test-orig-body", headers(Response))).
  
  partial_download_illegal_option() ->
      ?assertError({bad_option, {partial_download, {foo, bar}}},
  