anchor.diff:          end).
   
   should_make_preflight_request_with_auth(_, {_, _, Url, DefaultHeaders}) ->
  -    ?_assertEqual(?SUPPORTED_METHODS,
  +    ?_assertEqualLists(?SUPPORTED_METHODS,
           begin
               Hashed = couch_passwords:hash_admin_password(<<"test">>),
               config:set("admins", "test", ?b2l(Hashed), false),
  
positive.code: -include_lib("couch/include/couch_eunit.hrl").
  -include_lib("couch/include/couch_db.hrl").
  
  
  -define(SUPPORTED_METHODS,
          "GET, HEAD, POST, PUT, DELETE, TRACE, CONNECT, COPY, OPTIONS").
  -define(TIMEOUT, 1000).
  
  
  start() ->
      Ctx = test_util:start_couch([ioq]),
  
negative.code:     [{"Host", "http://example.com"}];
  maybe_append_vhost(false) ->
      [].
  
  split_list(S) ->
      re:split(S, "\\s*,\\s*", [trim, {return, list}]).
  
  list_simple_headers(Headers) ->
      LCHeaders = [string:to_lower(K) || {K, _V} <- Headers],
      lists:filter(fun(H) -> lists:member(H, ?SIMPLE_HEADERS) end, LCHeaders).
  