anchor.diff:              couch_util:get_value(<<"ok">>, InnerJson, undefined)
           end).
   
  -should_disallow_anonymous_view_compaction(Url) ->
  +should_disallow_anonymous_view_compaction([Url,UsersUrl]) ->
       {ok, _, _, ResultBody} = test_request:post(Url ++ "/_compact/test",
           [?CONTENT_JSON], ""),
       ResultJson = ?JSON_DECODE(ResultBody),
  
positive.code:                 [
                      fun should_allow_admin_db_compaction/1,
                      fun should_disallow_anonymous_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,
  
negative.code:             couch_util:get_value(<<"ok">>, InnerJson, undefined)
          end).
  
  should_disallow_anonymous_db_view_cleanup([Url,UsersUrl]) ->
      {ok, _, _, ResultBody} = test_request:post(Url ++ "/_view_cleanup",
          [?CONTENT_JSON], ""),
      ResultJson = ?JSON_DECODE(ResultBody),
  