anchor.diff:        {timeout, 30,  ?_test(retry_with_timeout())},
         {timeout, 30,  ?_test(timeout())},
         {timeout, 30,  ?_test(throttled())},
  -      {timeout, 30,  ?_test(non_json_error())}
  +      {timeout, 30,  ?_test(non_json_error())},
  +      {timeout, 30,  ?_test(http_client())}
        ]}.
   
   
  
positive.code: retry_with_timeout() ->
      meck:new(current_http_client, [passthrough]),
      meck:expect(current_http_client, post, fun (_, _, _, _) ->
                                              ?debugFmt("called", []),
                                              {error, claim_timeout}
                                   end),
      ?assertEqual({error, max_retries},
                   current:describe_table({[{<<"TableName">>, ?TABLE}]},
                                          [{retries, 3}])),
  
negative.code:                  iolist_to_binary(
                     current:authorization(Headers, "", Now))).
  
  http_client() ->
      ?assertEqual(ok, application:set_env(current, http_client, party)),
      current:delete_table({[{<<"TableName">>, ?TABLE}]}),
      ?assertNotEqual({ok, lhttpc}, application:get_env(current, http_client)),
      ?assertEqual(ok, current:wait_for_delete(?TABLE, 5000)),
  
      ?assertEqual(ok, application:set_env(current, http_client, lhttpc)),
      current:delete_table({[{<<"TableName">>, ?TABLE}]}),
      ?assertNotEqual({ok, party}, application:get_env(current, http_client)),
      ?assertEqual(ok, current:wait_for_delete(?TABLE, 5000)),
  
      ok.
  
  
  %%
  