anchor.diff:      do_request(Endpoint, Headers, Method, Body, []).
   do_request(Endpoint, Headers, Method, Body, Options) ->
       % Add insecure option - we do not want the GR server cert to be checked.
  -    random:seed(now()),
  -    RandomPoolName = list_to_atom(str_utils:format("test_pool_~B", [random:uniform(999999)])),
  -    ok = hackney_pool:start_pool(RandomPoolName, [{timeout, 150000}, {max_connections, 2}]),
  -    Res = http_client:request(Method, Endpoint, Headers, Body, [insecure, {pool, RandomPoolName} | Options]),
  -    hackney_pool:stop_pool(RandomPoolName),
  +    % Use two pools of connections, one for auth, one for noauth requests
  +    Pool = case proplists:get_value(ssl_options, Options, undefined) of
  +               undefined ->
  +                   no_auth;
  +               _ ->
  +                   auth
  +           end,
  +%%     random:seed(now()),
  +%%     RandomPoolName = list_to_atom(str_utils:format("test_pool_~B", [random:uniform(999999)])),
  +%%     ok = hackney_pool:start_pool(RandomPoolName, [{timeout, 150000}, {max_connections, 2}]),
  +    Res = http_client:request(Method, Endpoint, Headers, Body, [insecure, {pool, Pool} | Options]),
       ct:print("do_request:~n"
       "Method = ~p,~n"
       "Endpoint = ~p,~n"
  
positive.code:     ].
  
  end_per_testcase(_, Config) ->
      {KeyFile, CSRFile, CertFile} = ?config(cert_files, Config),
      file:delete(KeyFile),
      file:delete(CSRFile),
      file:delete(CertFile).
  
  end_per_suite(Config) ->
      hackney:stop(),
      application:stop(ssl2),
      test_node_starter:clean_environment(Config).
  
  %%%===================================================================
  
negative.code:     "Body = ~p,~n"
      "Options = ~p,~n"
      "response: ~p~n",
          [Method, Endpoint, Headers, Body, [insecure, {pool, Pool} | Options], Res]),
      Res.
  
  get_macaroon_id(Token) ->
  