anchor.diff:  ssl_get() ->
       Port = start(ssl, [fun webserver_utils:simple_response/5]),
       URL = ssl_url(Port, "/simple"),
  -    {ok, Response} = lhttpc:request(URL, "GET", [], 1000),
  +    {ok, _PoolManager} = lhttpc:add_pool(lhttpc_manager),	
  +    {ok, Response} = lhttpc:request(URL, "GET", [], [], 1000, [{pool_options, [{pool_ensure, true}, {pool, lhttpc_manager}]}]),
       ?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),
  +    {ok, Response} = lhttpc:request(URL, "GET", [], [], 1000, [{pool_options, [{pool_ensure, true}, {pool, lhttpc_manager}]}]),
       ?assertEqual({200, "OK"}, status(Response)),
       ?assertEqual(list_to_binary(webserver_utils:default_string()), body(Response)).
   
  
positive.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, 1}],
  %%     ok = lhttpc:request(URL, post, [], hd(Body), 1000, Options),
  %%     {ok, Response} = lhttpc:send_body_part(
  %% 		       lists:foldl(fun upload_parts/2, Client, tl(Body)),
  %% 		       http_eob
  %% 		      ),
  %%     ?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}}},
  
negative.code:     URL = ssl_url(Port, "/simple"),
      Body = "SSL Test <o/",
      BinaryBody = list_to_binary(Body),
      {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"),
  	{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_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)),
  