anchor.diff:  
   http_client() ->
       ?assertEqual(ok, application:set_env(current, http_client, party)),
  -    ok = connect_party(),
  +    ok = maybe_connect_party(),
       current:delete_table({[{<<"TableName">>, ?TABLE}]}),
       ?assertNotEqual({ok, lhttpc}, application:get_env(current, http_client)),
       ?assertEqual(ok, current:wait_for_delete(?TABLE, 5000)),
  
positive.code:     ?assertEqual(ok, application:set_env(current, http_client, party)),
      {Reply, Socket} = current:open_socket(?ENDPOINT, raw),
      ?assertEqual(ok, Reply),
      ?assertEqual(ok, current:close_socket(Socket, raw)),
  
      ok.
  
negative.code: %% HELPERS
  %%
  
  maybe_connect_party() ->
      current:connect(iolist_to_binary(["http://", ?ENDPOINT]), 2).
  
  creq(Name) ->
      {ok, B} = file:read_file(
  