1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
% 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)).
|
