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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
% 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(couch_log_test).
-include_lib("couch_log/include/couch_log.hrl").
-include_lib("eunit/include/eunit.hrl").
couch_log_test_() ->
{setup,
fun couch_log_test_util:start/0,
fun couch_log_test_util:stop/1,
gen() ++ [fun check_set_level/0]
}.
check_set_level() ->
couch_log:set_level(crit),
?assertEqual("crit", config:get("log", "level")).
levels() ->
[
debug,
info,
notice,
warning,
error,
critical,
alert,
emergency,
none
].
gen() ->
lists:map(fun(L) ->
Name = "Test log level: " ++ couch_log_util:level_to_string(L),
{Name, fun() -> check_levels(L, levels()) end}
end, levels() -- [none]).
check_levels(_, []) ->
ok;
check_levels(TestLevel, [CfgLevel | RestLevels]) ->
TestInt = couch_log_util:level_to_integer(TestLevel),
CfgInt = couch_log_util:level_to_integer(CfgLevel),
Pid = self(),
Msg = new_msg(),
LastKey = couch_log_test_util:last_log_key(),
couch_log_test_util:with_level(CfgLevel, fun() ->
couch_log:TestLevel(Msg, []),
case TestInt >= CfgInt of
true ->
?assertMatch(
#log_entry{
level = TestLevel,
pid = Pid,
msg = Msg
},
couch_log_test_util:last_log()
);
false ->
?assertEqual(LastKey, couch_log_test_util:last_log_key())
end
end),
check_levels(TestLevel, RestLevels).
new_msg() ->
Bin = list_to_binary([couch_rand:uniform(255) || _ <- lists:seq(1, 16)]),
couch_util:to_hex(Bin).
|
