anchor.diff:              couch_util:get_value(<<"ok">>, InnerJson, undefined)
           end).
   
  -should_disallow_anonymous_db_compaction(Url) ->
  +should_disallow_anonymous_db_compaction([Url,UsersUrl]) ->
       {ok, _, _, ResultBody} = test_request:post(Url ++ "/_compact",
           [?CONTENT_JSON], ""),
       ResultJson = ?JSON_DECODE(ResultBody),
  
positive.code:             couch_util:get_value(<<"ok">>, InnerJson, undefined)
          end).
  
  should_disallow_anonymous_db_view_cleanup(Url) ->
      {ok, _, _, ResultBody} = test_request:post(Url ++ "/_view_cleanup",
          [?CONTENT_JSON], ""),
      ResultJson = ?JSON_DECODE(ResultBody),
  
negative.code:     ErrType = couch_util:get_value(<<"error">>, InnerJson),
      ?_assertEqual(<<"unauthorized">>,ErrType).
  
  should_disallow_db_member_db_compaction([Url,UsersUrl]) ->
      {ok, _, _, ResultBody} = test_request:post(Url ++ "/_compact",
          [?CONTENT_JSON, ?TEST_MEMBER_AUTH], ""),
      ResultJson = ?JSON_DECODE(ResultBody),
      {InnerJson} = ResultJson,
      ErrType = couch_util:get_value(<<"error">>, InnerJson),
      ?_assertEqual(<<"unauthorized">>,ErrType).
  
  should_allow_db_admin_db_compaction([Url,UsersUrl]) ->
      ?_assertEqual(true,
          begin
              {ok, _, _, ResultBody} = test_request:post(Url ++ "/_compact",
                  [?CONTENT_JSON, ?TEST_ADMIN_AUTH], ""),
              ResultJson = ?JSON_DECODE(ResultBody),
              {InnerJson} = ResultJson,
              couch_util:get_value(<<"ok">>, InnerJson, undefined)
          end).
  
  should_allow_admin_view_compaction([Url,UsersUrl]) ->
      ?_assertEqual(true,
          begin
              {ok, _, _, ResultBody} = test_request:post(Url ++ "/_compact/test",
  