anchor.diff:                  [
                       fun should_allow_admin_db_compaction/1,
                       fun should_disallow_anonymous_db_compaction/1,
  +                    fun should_disallow_db_member_db_compaction/1,
  +                    fun should_allow_db_admin_db_compaction/1,
                       fun should_allow_admin_view_compaction/1,
                       fun should_disallow_anonymous_view_compaction/1,
                       fun should_allow_admin_db_view_cleanup/1,
  
positive.code:             couch_util:get_value(<<"ok">>, InnerJson, undefined)
          end).
  
  should_disallow_anonymous_db_compaction(Url) ->
      {ok, _, _, ResultBody} = test_request:post(Url ++ "/_compact",
          [?CONTENT_JSON], ""),
      ResultJson = ?JSON_DECODE(ResultBody),
  
negative.code: -define(USER, "chttpd_db_test_admin").
  -define(PASS, "pass").
  -define(AUTH, {basic_auth, {?USER, ?PASS}}).
  
  -define(TEST_MEMBER, "test_member").
  -define(TEST_MEMBER_PASS, "test_member_pass").
  -define(TEST_MEMBER_AUTH, {basic_auth, {?TEST_MEMBER, ?TEST_MEMBER_PASS}}).
  
  -define(TEST_ADMIN, "test_admin").
  -define(TEST_ADMIN_PASS, "test_admin_pass").
  -define(TEST_ADMIN_AUTH, {basic_auth, {?TEST_ADMIN, ?TEST_ADMIN_PASS}}).
  
  
  
  -define(CONTENT_JSON, {"Content-Type", "application/json"}).
  -define(FIXTURE_TXT, ?ABS_PATH(?FILE)).
  
  setup() ->
      ok = config:set("admins", ?USER, ?PASS, _Persist=false),
      UserDb = ?tempdb(),
      TmpDb = ?tempdb(),
      ok = config:set("couch_httpd_auth", "authentication_db", ?b2l(UserDb)),
      Addr = config:get("chttpd", "bind_address", "127.0.0.1"),
      Port = mochiweb_socket_server:get(chttpd, port),
      BaseUrl = lists:concat(["http://", Addr, ":", Port, "/"]),
      Url = lists:concat([BaseUrl, ?b2l(TmpDb)]),
      UsersUrl = lists:concat([BaseUrl, ?b2l(UserDb)]),
      create_db(UsersUrl),
      create_db(Url),
      create_design_doc(Url),
      create_user(UsersUrl,?TEST_MEMBER,[<<?TEST_MEMBER_PASS>>]),
      create_user(UsersUrl,?TEST_ADMIN,[<<?TEST_MEMBER_PASS>>]),
      set_security(Url),
      [Url, UsersUrl].
  
  teardown([Url,UsersUrl]) ->
      Addr = config:get("chttpd", "bind_address", "127.0.0.1"),
      Port = mochiweb_socket_server:get(chttpd, port),
      delete_db(Url),
      delete_db(UsersUrl),
      ok = config:delete("admins", ?USER, _Persist=false).
  
  create_db(Url) ->
  