diff options
author | Erlang/OTP <otp@erlang.org> | 2009-11-20 14:54:40 +0000 |
---|---|---|
committer | Erlang/OTP <otp@erlang.org> | 2009-11-20 14:54:40 +0000 |
commit | 84adefa331c4159d432d22840663c38f155cd4c1 (patch) | |
tree | bff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/megaco/test/megaco_appup_mgc.erl | |
download | otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2 otp-84adefa331c4159d432d22840663c38f155cd4c1.zip |
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/megaco/test/megaco_appup_mgc.erl')
-rw-r--r-- | lib/megaco/test/megaco_appup_mgc.erl | 107 |
1 files changed, 107 insertions, 0 deletions
diff --git a/lib/megaco/test/megaco_appup_mgc.erl b/lib/megaco/test/megaco_appup_mgc.erl new file mode 100644 index 0000000000..b6e53655f8 --- /dev/null +++ b/lib/megaco/test/megaco_appup_mgc.erl @@ -0,0 +1,107 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2003-2009. 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% +%% + +%% +%%---------------------------------------------------------------------- +%% Purpose: Used when performing testing appup tests +%% +%% {ok, P} = megaco_appup_mgc:start(). +%% megaco_appup_mgc:stop(P). +%% megaco_appup_mgc:verbosity(P,silence). +%% megaco_appup_mgc:verbosity(P,debug). +%% +%%---------------------------------------------------------------------- + +-module(megaco_appup_mgc). + +-export([start/0, start/1, stop/1]). +-export([verbosity/2]). + +-export([main/2]). + +-define(START(Mid, ET, Verb), + megaco_test_mgc:start(node(), Mid, ET, Verb)). +-define(STOP(Pid), megaco_test_mgc:stop(Pid)). +-define(REQ_HANDS(Pid), megaco_test_mgc:request_handle_sloppy(Pid)). +-define(VERBOSITY(Pid,V), megaco_test_mgc:verbosity(Pid,V)). + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +start() -> + start(silence). +start(V) -> + proc_lib:start_link(?MODULE, main, [self(), V]). + +stop(Pid) -> + Pid ! stop. + +verbosity(Pid, V) -> + Pid ! {verbosity, V}. + + +%% ------------------------------------------------------------------------ + +main(Parent, V) -> + d("starting"), + Mgc = init(V), + proc_lib:init_ack(Parent, {ok, self()}), + d("started"), + loop(Mgc). + +init(V) -> + Mid = {deviceName, "mgc"}, + ET = [{text,tcp}, {text,udp}, {binary,tcp}, {binary,udp}], + + d("start MGC"), + {ok, Mgc} = ?START(Mid, ET, debug), + + ?VERBOSITY(Mgc, V), + + Mgc. + +loop(Mgc) -> + d("awaiting request..."), + receive + + stop -> + d("stopping"), + ?STOP(Mgc), + exit(normal); + + {verbosity, V} -> + d("verbosity: ~p", [V]), + ?VERBOSITY(Mgc, V); + + Any -> + error("received unknown request: ~n~p", [Any]) + + end, + loop(Mgc). + +%% ------------------------------------------------------------------------ + +error(F, A) -> + io:format("AMGC-ERROR: " ++ F, A). + +d(F) -> + d(F, []). + +d(F, A) -> + io:format("AMGC: " ++ F ++ "~n", A). |