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
|
% 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.
% couch_config module test suite
% Set up test suite
% ?MODULE_test() returns a list of functions
% that run the actual tests.
couch_config_test() ->
[
fun() -> store_strings() end
].
% test functions
store_strings() ->
Filename = "test.ini",
file:write_file(Filename, ""),
Key = "foo",
Value = "bar",
{ok, Proc} = couch_config:start_link([Filename]),
couch_config:set("test_module", Key, Value),
Result = couch_config:get("test_module", Key),
couch_config:delete("test_module", Key),
exit(Proc, kill),
receive {'EXIT', Proc, _} -> ok end,
% clean up
file:delete(Filename),
Value = Result.
|
