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
85
86
87
88
89
90
91
92
93
|
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2010. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
%%%-------------------------------------------------------------------
%%% File: ct_config_SUITE
%%%
%%% Description:
%%% Config server used in the CT's tests (config_2_SUITE)
%%%-------------------------------------------------------------------
-module(config_server).
-export([start/0, stop/0, loop/1, init/1, get_config/0]).
-define(REGISTERED_NAME, ct_test_config_server).
-define(vsn, 0.19).
start()->
case whereis(?REGISTERED_NAME) of
undefined->
spawn(?MODULE, init, [?REGISTERED_NAME]),
wait();
_Pid->
ok
end,
?REGISTERED_NAME.
init(Name)->
register(Name, self()),
loop(0).
get_config()->
call(self(), get_config).
stop()->
call(self(), stop).
call(Client, Request)->
case whereis(?REGISTERED_NAME) of
undefined->
{error, not_started, Request};
Pid->
Pid ! {Client, Request},
receive
Reply->
{ok, Reply}
after 4000->
{error, timeout, Request}
end
end.
loop(Iteration)->
receive
{Pid, stop}->
Pid ! ok;
{Pid, get_config}->
{D,T} = erlang:localtime(),
Config =
[{localtime, [{date, D}, {time, T}]},
{node, erlang:node()},
{config_server_iteration, Iteration},
{now, os:timestamp()},
{config_server_pid, self()},
{config_server_vsn, ?vsn}],
Config2 = if Iteration rem 2 == 0->
Config ++ [{disappearable_variable, hereAmI}];
true-> Config
end,
Pid ! Config2,
?MODULE:loop(Iteration+1)
end.
wait()->
case whereis(?REGISTERED_NAME) of
undefined->
wait();
_Pid->
ok
end.
|