anchor.diff:      end).
   
   create_doc(Host, DbName, Id) ->
  -    Headers = [{basic_auth, {"admin", "pass"}}],
  +    Headers = [?AUTH],
       Url = Host ++ "/" ++ escape(DbName) ++ "/" ++ escape(Id),
       Body = jiffy:encode({[
           {key, "value"}
  
positive.code:     ok.
  
  update_doc(Host, DbName, Id, Value) ->
      Headers = [{basic_auth, {"admin", "pass"}}],
      Url = Host ++ "/" ++ escape(DbName) ++ "/" ++ escape(Id),
      {ok, 200, _Headers0, BinBody} = test_request:get(Url, Headers),
      [Rev] = decode_response(BinBody, [<<"_rev">>]),
  
negative.code:     [couch_util:get_value(Key, Body) || Key <- ToDecode].
  
  add_admin(User, Pass) ->
      config:set("admins", User, Pass, false).
  
  delete_admin(User) ->
      config:delete("admins", User, false).
  