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
|
#! /usr/bin/env escript
% 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.
filename() ->
list_to_binary(test_util:source_file("test/etap/171-os-daemons-config.es")).
read() ->
case io:get_line('') of
eof ->
stop;
Data ->
couch_util:json_decode(Data)
end.
write(Mesg) ->
Data = iolist_to_binary(couch_util:json_encode(Mesg)),
io:format(binary_to_list(Data) ++ "\n", []).
get_cfg(Section) ->
write([<<"get">>, Section]),
read().
get_cfg(Section, Name) ->
write([<<"get">>, Section, Name]),
read().
log(Mesg) ->
write([<<"log">>, Mesg]).
log(Mesg, Level) ->
write([<<"log">>, Mesg, {[{<<"level">>, Level}]}]).
test_get_cfg1() ->
FileName = filename(),
{[{<<"foo">>, FileName}]} = get_cfg(<<"os_daemons">>).
test_get_cfg2() ->
FileName = filename(),
FileName = get_cfg(<<"os_daemons">>, <<"foo">>),
<<"sequential">> = get_cfg(<<"uuids">>, <<"algorithm">>).
test_log() ->
log(<<"foobar!">>),
log(<<"some stuff!">>, <<"debug">>),
log(2),
log(true),
write([<<"log">>, <<"stuff">>, 2]),
write([<<"log">>, 3, null]),
write([<<"log">>, [1, 2], {[{<<"level">>, <<"debug">>}]}]),
write([<<"log">>, <<"true">>, {[]}]).
do_tests() ->
test_get_cfg1(),
test_get_cfg2(),
test_log(),
loop(io:read("")).
loop({ok, _}) ->
loop(io:read(""));
loop(eof) ->
init:stop();
loop({error, _Reason}) ->
init:stop().
main([]) ->
test_util:init_code_path(),
do_tests().
|
