src/couch/src/test_engine_get_set_props.erl

% Licensed under the Apache License, Version 2.0 (the "License"); you may not
% use this file except in compliance with the License. You may obtain a copy of
% the License at
%
%   http://www.apache.org/licenses/LICENSE-2.0
%
% Unless required by applicable law or agreed to in writing, software
% distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
% WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
% License for the specific language governing permissions and limitations under
% the License.

-module(test_engine_get_set_props).
-compile(export_all).


-include_lib("eunit/include/eunit.hrl").


cet_default_props() ->
    Engine = test_engine_util:get_engine(),
    DbPath = test_engine_util:dbpath(),

    {ok, St} = Engine:init(DbPath, [
            create,
            {default_security_object, dso}
        ]),

    Node = node(),

    ?assertEqual(0, Engine:get_doc_count(St)),
    ?assertEqual(0, Engine:get_del_doc_count(St)),
    ?assertEqual(true, is_list(Engine:get_size_info(St))),
    ?assertEqual(true, is_integer(Engine:get_disk_version(St))),
    ?assertEqual(0, Engine:get_update_seq(St)),
    ?assertEqual(0, Engine:get_purge_seq(St)),
    ?assertEqual([], Engine:get_last_purged(St)),
    ?assertEqual(dso, Engine:get_security(St)),
    ?assertEqual(1000, Engine:get_revs_limit(St)),
    ?assertMatch(<<_:32/binary>>, Engine:get_uuid(St)),
    ?assertEqual([{Node, 0}], Engine:get_epochs(St)),
    ?assertEqual(0, Engine:get_compacted_seq(St)).


cet_set_security() ->
    check_prop_set(get_security, set_security, dso, [{<<"readers">>, []}]).


cet_set_revs_limit() ->
    check_prop_set(get_revs_limit, set_revs_limit, 1000, 50).


check_prop_set(GetFun, SetFun, Default, Value) ->
    Engine = test_engine_util:get_engine(),
    DbPath = test_engine_util:dbpath(),

    {ok, St0} = Engine:init(DbPath, [
            create,
            {default_security_object, dso}
        ]),
    ?assertEqual(Default, Engine:GetFun(St0)),

    {ok, St1} = Engine:SetFun(St0, Value),
    ?assertEqual(Value, Engine:GetFun(St1)),

    {ok, St2} = Engine:commit_data(St1),
    Engine:terminate(normal, St2),

    {ok, St3} = Engine:init(DbPath, []),
    ?assertEqual(Value, Engine:GetFun(St3)).