anchor.diff:      [couch_util:get_value(Key, Body) || Key <- ToDecode].
   
   add_admin(User, Pass) ->
  -    Hashed = couch_passwords:hash_admin_password(Pass),
  -    config:set("admins", User, ?b2l(Hashed), false).
  +    config:set("admins", User, Pass, false).
   
   delete_admin(User) ->
       config:delete("admins", User, false).
  
positive.code: 
  should_return_correct_response_on_update({Host, DbName}) ->
      ?_test(begin
          Headers = [{basic_auth, {"admin", "pass"}}],
          create_doc(Host, DbName, "bar/baz"),
          update_doc(Host, DbName, "bar/baz", "new_value"),
          {Status, Events} = request_updates(Host, DbName, Headers),
  
negative.code:     ok.
  
  update_doc(Host, DbName, Id, Value) ->
      Headers = [?AUTH],
      Url = Host ++ "/" ++ escape(DbName) ++ "/" ++ escape(Id),
      {ok, 200, _Headers0, BinBody} = test_request:get(Url, Headers),
      [Rev] = decode_response(BinBody, [<<"_rev">>]),
  