aboutsummaryrefslogtreecommitdiffstats
path: root/lib/megaco/test/megaco_mess_test.erl
diff options
context:
space:
mode:
authorErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
committerErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
commit84adefa331c4159d432d22840663c38f155cd4c1 (patch)
treebff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/megaco/test/megaco_mess_test.erl
downloadotp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz
otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2
otp-84adefa331c4159d432d22840663c38f155cd4c1.zip
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/megaco/test/megaco_mess_test.erl')
-rw-r--r--lib/megaco/test/megaco_mess_test.erl13733
1 files changed, 13733 insertions, 0 deletions
diff --git a/lib/megaco/test/megaco_mess_test.erl b/lib/megaco/test/megaco_mess_test.erl
new file mode 100644
index 0000000000..368800fa54
--- /dev/null
+++ b/lib/megaco/test/megaco_mess_test.erl
@@ -0,0 +1,13733 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 1999-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: Verify the implementation of the ITU-T protocol H.248
+%%----------------------------------------------------------------------
+%% Run the entire test suite with:
+%%
+%% megaco_test_lib:t(megaco_test).
+%% megaco_test_lib:t({megaco_test, all}).
+%%
+%% Or parts of it:
+%%
+%% megaco_test_lib:t({megaco_test, accept}).
+%%----------------------------------------------------------------------
+-module(megaco_mess_test).
+
+%% -compile(export_all).
+-export([
+ all/1,
+ init_per_testcase/2,
+ fin_per_testcase/2,
+
+ connect/1,
+
+ request_and_reply/1,
+ request_and_reply_plain/1,
+ request_and_no_reply/1,
+ request_and_reply_pending_ack_no_pending/1,
+ request_and_reply_pending_ack_one_pending/1,
+ single_trans_req_and_reply/1,
+ single_trans_req_and_reply_sendopts/1,
+ request_and_reply_and_ack/1,
+ request_and_reply_and_no_ack/1,
+ request_and_reply_and_late_ack/1,
+ trans_req_and_reply_and_req/1,
+
+ pending_ack/1,
+ pending_ack_plain/1,
+ request_and_pending_and_late_reply/1,
+
+ dist/1,
+
+ tickets/1,
+ otp_4359/1,
+ otp_4836/1,
+ otp_5805/1,
+ otp_5881/1,
+ otp_5887/1,
+ otp_6253/1,
+ otp_6275/1,
+ otp_6276/1,
+ otp_6442/1,
+ otp_6442_resend_request1/1,
+ otp_6442_resend_request2/1,
+ otp_6442_resend_reply1/1,
+ otp_6442_resend_reply2/1,
+ otp_6865/1,
+ otp_6865_request_and_reply_plain_extra1/1,
+ otp_6865_request_and_reply_plain_extra2/1,
+ otp_7189/1,
+ otp_7259/1,
+ otp_7713/1,
+ otp_8183/1,
+ otp_8183_request1/1,
+ otp_8212/1
+ ]).
+
+%% -behaviour(megaco_user).
+-export([
+ handle_connect/3,
+ handle_disconnect/4,
+ handle_syntax_error/4,
+ handle_message_error/4,
+ handle_trans_request/4,
+ handle_trans_long_request/4,
+ handle_trans_reply/5,
+ handle_trans_ack/5,
+ handle_unexpected_trans/4,
+ handle_trans_request_abort/5
+ ]).
+
+%% -behaviour(megaco_transport).
+-export([
+ send_message/2,
+ unblock/1
+ ]).
+
+-ifdef(megaco_hipe_special).
+-export([
+ %% Case: request_and_reply_pending_ack_no_pending
+ rarpanp_mgc_verify_handle_connect/1,
+ rarpanp_mgc_verify_service_change_req/2,
+ rarpanp_mgc_verify_notify_request/1,
+ rarpanp_mgc_verify_handle_disconnect/1,
+ rarpanp_mg_verify_service_change_rep_msg/1,
+ rarpanp_mg_verify_notify_rep_msg/3,
+
+ %% Case: request_and_reply_pending_ack_one_pending
+ rarpaop_mgc_verify_handle_connect/1,
+ rarpaop_mgc_verify_service_change_req/2,
+ rarpaop_mgc_verify_notify_request/1,
+ rarpaop_mgc_verify_reply_ack/1,
+ rarpaop_mgc_verify_handle_disconnect/1,
+ rarpaop_mg_verify_service_change_rep_msg/1,
+ rarpaop_mg_verify_pending_msg/2,
+ rarpaop_mg_verify_notify_rep_msg/3,
+
+ %% Case: single_trans_req_and_reply
+ strar_mgc_verify_handle_connect/1,
+ strar_mgc_verify_service_change_req/2,
+ strar_mgc_verify_notify_request/1,
+ strar_mgc_verify_handle_disconnect/1,
+ strar_mg_verify_handle_connect/1,
+ strar_mg_verify_service_change_reply/1,
+ strar_mg_verify_notify_reply/1,
+
+ %% Case: single_trans_req_and_reply_sendopts
+ straro_mgc_verify_handle_connect/1,
+ straro_mgc_verify_service_change_req/2,
+ straro_mgc_verify_notify_request/1,
+ straro_mgc_verify_handle_trans_ack/1,
+ straro_mg_verify_handle_connect/1,
+ straro_mg_verify_service_change_reply/1,
+ straro_mg_verify_handle_disconnect/1,
+
+ %% Case: request_and_reply_and_ack
+ raraa_mgc_verify_handle_connect/1,
+ raraa_mgc_verify_service_change_req/2,
+ raraa_mgc_verify_notify_req/1,
+ raraa_mgc_verify_handle_trans_ack/1,
+ raraa_mgc_verify_handle_disconnect/1,
+ raraa_mg_verify_service_change_rep_msg/1,
+ raraa_mg_verify_notify_rep_msg/5,
+
+ %% Case: request_and_reply_and_no_ack
+ rarana_mgc_verify_handle_connect/1,
+ rarana_mgc_verify_service_change_req/2,
+ rarana_mgc_verify_notify_req/1,
+ rarana_mgc_verify_handle_trans_ack/1,
+ rarana_mgc_verify_handle_disconnect/1,
+ rarana_mg_verify_service_change_rep_msg/1,
+ rarana_mg_verify_notify_rep_msg/5,
+
+ %% Case: request_and_reply_and_late_ack
+ rarala_mgc_verify_handle_connect/1,
+ rarala_mgc_verify_service_change_req/2,
+ rarala_mgc_verify_notify_req/1,
+ rarala_mgc_verify_handle_trans_ack/1,
+ rarala_mgc_verify_handle_disconnect/1,
+ rarala_mg_verify_service_change_rep_msg/1,
+ rarala_mg_verify_notify_rep_msg/5,
+
+ %% Case: trans_req_and_reply_and_req
+ trarar_mgc_verify_handle_connect/1,
+ trarar_mgc_verify_service_change_req/2,
+ trarar_mgc_verify_notify_req/2,
+ trarar_mgc_verify_handle_disconnect/1,
+ trarar_mg_verify_service_change_rep_msg/1,
+ trarar_mg_verify_notify_rep_msg/5,
+
+ %% Case: pending_ack_plain
+ pap_mgc_verify_handle_connect/1,
+ pap_mgc_verify_service_change_req/2,
+ pap_mgc_verify_notify_req/1,
+ pap_mgc_verify_notify_req_long/1,
+ pap_mgc_verify_handle_trans_ack/1,
+ pap_mgc_verify_handle_disconnect/1,
+ pap_mg_verify_service_change_rep_msg/1,
+ pap_mg_verify_pending_msg/2,
+ pap_mg_verify_notify_rep_msg/5,
+
+ %% Case: request_and_pending_and_late_reply
+ rapalr_mgc_verify_service_change_req_msg/1,
+ rapalr_mgc_verify_notify_req_msg/5,
+ rapalr_mgc_verify_trans_ack_msg/2,
+ rapalr_mg_verify_handle_connect/1,
+ rapalr_mg_verify_service_change_rep/1,
+ rapalr_mg_verify_notify_rep/1,
+
+ %% Case: otp_4836
+ otp_4836_mgc_verify_service_change_req_msg/1,
+ otp_4836_mgc_verify_notify_req_msg/1,
+
+ %% Case: otp_5805
+ otp_5805_mgc_verify_handle_connect/1,
+ otp_5805_mgc_verify_service_change_req/2,
+ otp_5805_mgc_verify_handle_syntax_error/1,
+ otp_5805_mgc_verify_handle_disconnect/1,
+ otp_5805_mg_verify_service_change_rep_msg/1,
+ otp_5805_mg_verify_error_descriptor_msg/1,
+
+ %% Case: otp_5881
+ otp_5881_mgc_verify_service_change_req_msg/1,
+ otp_5881_mgc_verify_notify_req_msg/1,
+
+ %% Case: otp_5887
+ otp_5887_mgc_verify_service_change_req_msg/1,
+ otp_5887_mgc_verify_notify_req_msg/1,
+
+ %% Case: otp_6275
+ otp_6275_mgc_verify_service_change_req_msg/1,
+ otp_6275_mgc_verify_notify_rep_msg/1,
+ otp_6275_mg_verify_handle_connect/1,
+ otp_6275_mg_verify_notify_req/1,
+ otp_6275_mg_verify_handle_trans_rep/1,
+
+ %% Case: otp_6442_resend_request1
+ otp_6442_resend_request1_mg_verify_handle_connect/1,
+ otp_6442_resend_request1_mg_verify_service_change_rep/1,
+ otp_6442_resend_request1_mg_verify_notify_rep/1,
+
+ %% Case: otp_6442_resend_request2
+ otp_6442_resend_request2_mg_verify_handle_connect/1,
+ otp_6442_resend_request2_mg_verify_service_change_rep/1,
+ otp_6442_resend_request2_mg_verify_notify_rep/1,
+
+ %% Case: otp_6442_resend_reply1
+ otp_6442_resend_reply1_mg_verify_handle_connect/1,
+ otp_6442_resend_reply1_mg_verify_service_change_rep/1,
+ otp_6442_resend_reply1_mg_verify_notify_req/2,
+ otp_6442_resend_reply1_mg_verify_ack/1,
+
+ %% Case: otp_6442_resend_reply2
+ otp_6442_resend_reply2_mg_verify_handle_connect/1,
+ otp_6442_resend_reply2_mg_verify_service_change_rep/1,
+ otp_6442_resend_reply2_mg_verify_notify_req/2,
+ otp_6442_resend_reply2_mg_verify_ack/1,
+
+ %% Case: otp_6865_request_and_reply_plain_extra2
+ otp6865e2_mgc_verify_handle_connect/1,
+ otp6865e2_mgc_verify_service_change_req/3,
+ otp6865e2_mgc_verify_notify_req/4,
+ otp6865e2_mgc_verify_reply_ack/2,
+ otp6865e2_mgc_verify_notify_reply/2,
+ otp6865e2_mgc_verify_handle_disconnect/1,
+ otp6865e2_mg_verify_service_change_rep_msg/1,
+ otp6865e2_mg_verify_notify_rep_msg/6,
+ otp6865e2_mg_verify_notify_req_msg/1,
+
+ %% Case: otp_7189
+ otp_7189_mgc_verify_handle_connect/1,
+ otp_7189_mgc_verify_service_change_req/2,
+ otp_7189_mgc_verify_handle_trans_reply_req/1,
+ otp_7189_mgc_verify_handle_disconnect/1,
+ otp_7189_mg_verify_service_change_rep_msg/1,
+ otp_7189_mg_verify_notify_req_msg/1,
+
+ %% Case: otp_6442_resend_request1
+ otp_8183_request1_mg_verify_handle_connect/1,
+ otp_8183_request1_mg_verify_service_change_rep/1,
+ otp_8183_request1_mg_verify_notify_rep/1,
+
+ %% Utility
+ encode_msg/3,
+ decode_msg/3
+ ]).
+-endif.
+
+-include_lib("megaco/include/megaco.hrl").
+-include_lib("megaco/include/megaco_message_v1.hrl").
+-include("megaco_test_lib.hrl").
+
+-define(VERSION, 1).
+
+-define(TEST_VERBOSITY, debug).
+-define(MGC_VERBOSITY, debug).
+-define(MG_VERBOSITY, debug).
+
+-define(MGC_START(Pid, Mid, ET, Conf, Verb),
+ megaco_test_mgc:start(Pid, Mid, ET, Conf, Verb)).
+-define(MGC_STOP(Pid), megaco_test_mgc:stop(Pid)).
+-define(MGC_REQ_PEND(Pid,To), megaco_test_mgc:request_pending(Pid,To)).
+-define(MGC_REQ_HP(Pid,To), megaco_test_mgc:request_handle_pending(Pid,To)).
+-define(MGC_ACK_INFO(Pid), megaco_test_mgc:ack_info(Pid,self())).
+
+-define(MG_START(Pid, Mid, Enc, Transp, Conf, Verb),
+ megaco_test_mg:start(Pid, Mid, Enc, Transp, Conf, Verb)).
+-define(MG_STOP(Pid), megaco_test_mg:stop(Pid)).
+-define(MG_SERV_CHANGE(Pid), megaco_test_mg:service_change(Pid)).
+-define(MG_NOTIF_REQ(Pid), megaco_test_mg:notify_request(Pid)).
+-define(MG_AWAIT_NOTIF_REP(Pid), megaco_test_mg:await_notify_reply(Pid)).
+-define(MG_CONN_INFO(Pid,Tag), megaco_test_mg:conn_info(Pid,Tag)).
+-define(MG_USER_INFO(Pid,Tag), megaco_test_mg:user_info(Pid,Tag)).
+-define(MG_NOTIF_RAR(Pid), megaco_test_mg:notify_request_and_reply(Pid)).
+
+-define(SEND(Expr),
+ ?VERIFY(ok, megaco_mess_user_test:apply_proxy(fun() -> Expr end))).
+
+-define(USER(Expected, Reply),
+ megaco_mess_user_test:reply(?MODULE,
+ ?LINE,
+ fun(Actual) ->
+ case ?VERIFY(Expected, Actual) of
+ Expected -> {ok, Reply};
+ UnExpected -> {error, {reply_verify,
+ ?MODULE,
+ ?LINE,
+ UnExpected}}
+ end
+ end)).
+
+%% t() -> megaco_test_lib:t(?MODULE).
+%% t(Case) -> megaco_test_lib:t({?MODULE, Case}).
+
+
+min(M) -> timer:minutes(M).
+
+%% Test server callbacks
+% init_per_testcase(pending_ack = Case, Config) ->
+% put(dbg,true),
+% megaco_test_lib:init_per_testcase(Case, Config);
+init_per_testcase(otp_7189 = Case, Config) ->
+ C = lists:keydelete(tc_timeout, 1, Config),
+ megaco_test_lib:init_per_testcase(Case, [{tc_timeout, min(2)} |C]);
+init_per_testcase(request_and_no_reply = Case, Config) ->
+ C = lists:keydelete(tc_timeout, 1, Config),
+ megaco_test_lib:init_per_testcase(Case, [{tc_timeout, min(2)} |C]);
+init_per_testcase(Case, Config) ->
+ C = lists:keydelete(tc_timeout, 1, Config),
+ megaco_test_lib:init_per_testcase(Case, [{tc_timeout, min(1)} |C]).
+
+% fin_per_testcase(pending_ack = Case, Config) ->
+% erase(dbg),
+% megaco_test_lib:fin_per_testcase(Case, Config);
+fin_per_testcase(Case, Config) ->
+ megaco_test_lib:fin_per_testcase(Case, Config).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+all(suite) ->
+ [
+ connect,
+ request_and_reply,
+ pending_ack,
+ dist,
+
+ %% Tickets last
+ tickets
+ ].
+
+request_and_reply(suite) ->
+ [
+ request_and_reply_plain,
+ request_and_no_reply,
+ request_and_reply_pending_ack_no_pending,
+ request_and_reply_pending_ack_one_pending,
+ single_trans_req_and_reply,
+ single_trans_req_and_reply_sendopts,
+ request_and_reply_and_ack,
+ request_and_reply_and_no_ack,
+ request_and_reply_and_late_ack,
+ trans_req_and_reply_and_req
+ ].
+
+pending_ack(suite) ->
+ [
+ pending_ack_plain,
+ request_and_pending_and_late_reply
+ ].
+
+tickets(suite) ->
+ [
+ otp_4359,
+ otp_4836,
+ otp_5805,
+ otp_5881,
+ otp_5887,
+ otp_6253,
+ otp_6275,
+ otp_6276,
+ otp_6442,
+ otp_6865,
+ otp_7189,
+ otp_7259,
+ otp_7713,
+ otp_8183,
+ otp_8212
+ ].
+
+otp_6442(suite) ->
+ [
+ otp_6442_resend_request1,
+ otp_6442_resend_request2,
+ otp_6442_resend_reply1,
+ otp_6442_resend_reply2
+ ].
+
+otp_6865(suite) ->
+ [
+ otp_6865_request_and_reply_plain_extra1,
+ otp_6865_request_and_reply_plain_extra2
+ ].
+
+otp_8183(suite) ->
+ [
+ otp_8183_request1
+ ].
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+connect(suite) ->
+ [];
+connect(doc) ->
+ [];
+connect(Config) when is_list(Config) ->
+ ?ACQUIRE_NODES(1, Config),
+ PrelMid = preliminary_mid,
+ MgMid = ipv4_mid(4711),
+
+ ?VERIFY(ok, application:start(megaco)),
+ ?VERIFY(ok, megaco:start_user(MgMid, [{send_mod, bad_send_mod},
+ {request_timer, infinity},
+ {reply_timer, infinity}])),
+
+ MgRH = user_info(MgMid, receive_handle),
+ {ok, PrelCH} = ?VERIFY({ok, _}, megaco:connect(MgRH, PrelMid, sh, self())),
+
+ connections([PrelCH]),
+ ?VERIFY([PrelCH], megaco:user_info(MgMid, connections)),
+
+ ?VERIFY(bad_send_mod, megaco:user_info(MgMid, send_mod)),
+ ?VERIFY(bad_send_mod, megaco:conn_info(PrelCH, send_mod)),
+ SC = service_change_request(),
+ ?VERIFY({1, {error, {send_message_failed, {'EXIT',
+ {undef, [{bad_send_mod, send_message, [sh, _]} | _]}}}}},
+ megaco:call(PrelCH, [SC], [])),
+
+ ?VERIFY(ok, megaco:disconnect(PrelCH, shutdown)),
+
+ ?VERIFY(ok, megaco:stop_user(MgMid)),
+ ?VERIFY(ok, application:stop(megaco)),
+ ?RECEIVE([]),
+ ok.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+request_and_reply_plain(suite) ->
+ [];
+request_and_reply_plain(Config) when is_list(Config) ->
+ ?ACQUIRE_NODES(1, Config),
+ d("request_and_reply_plain -> start proxy",[]),
+ megaco_mess_user_test:start_proxy(),
+
+ PrelMid = preliminary_mid,
+ MgMid = ipv4_mid(4711),
+ MgcMid = ipv4_mid(),
+ UserMod = megaco_mess_user_test,
+ d("request_and_reply_plain -> start megaco app",[]),
+ ?VERIFY(ok, application:start(megaco)),
+ UserConfig = [{user_mod, UserMod}, {send_mod, UserMod},
+ {request_timer, infinity}, {reply_timer, infinity}],
+ d("request_and_reply_plain -> start (MG) user ~p",[MgMid]),
+ ?VERIFY(ok, megaco:start_user(MgMid, UserConfig)),
+
+ d("request_and_reply_plain -> start (MGC) user ~p",[MgcMid]),
+ ?VERIFY(ok, megaco:start_user(MgcMid, UserConfig)),
+
+ d("request_and_reply_plain -> get receive info for ~p",[MgMid]),
+ MgRH = user_info(MgMid, receive_handle),
+ d("request_and_reply_plain -> get receive info for ~p",[MgcMid]),
+ MgcRH = user_info(MgcMid, receive_handle),
+ d("request_and_reply_plain -> start transport",[]),
+ {ok, MgPid, MgSH} =
+ ?VERIFY({ok, _, _}, UserMod:start_transport(MgRH, MgcRH)),
+ PrelMgCH = #megaco_conn_handle{local_mid = MgMid,
+ remote_mid = preliminary_mid},
+ MgCH = #megaco_conn_handle{local_mid = MgMid,
+ remote_mid = MgcMid},
+ MgcCH = #megaco_conn_handle{local_mid = MgcMid,
+ remote_mid = MgMid},
+ d("request_and_reply_plain -> (MG) try connect to MGC",[]),
+ ?SEND(megaco:connect(MgRH, PrelMid, MgSH, MgPid)), % Mg prel
+ d("request_and_reply_plain -> (MGC) await connect from MG",[]),
+ ?USER({connect, PrelMgCH, _V, []}, ok),
+ ?RECEIVE([{res, _, {ok, PrelMgCH}}]),
+
+ d("request_and_reply_plain -> (MG) send service change request",[]),
+ Req = service_change_request(),
+ ?SEND(megaco:call(PrelMgCH, [Req], [])),
+
+ d("request_and_reply_plain -> (MGC) send service change reply",[]),
+ ?USER({connect, MgcCH, _V, []}, ok), % Mgc auto
+ Rep = service_change_reply(MgcMid),
+ ?USER({request, MgcCH, _V, [[Req]]}, {discard_ack, [Rep]}),
+ ?USER({connect, MgCH, _V, []}, ok), % Mg confirm
+ ?RECEIVE([{res, _, {1, {ok, [Rep]}}}]),
+
+ d("request_and_reply_plain -> get (system info) connections",[]),
+ connections([MgCH, MgcCH]),
+ d("request_and_reply_plain -> get (~p) connections",[MgMid]),
+ ?VERIFY([MgCH], megaco:user_info(MgMid, connections)),
+ d("request_and_reply_plain -> get (~p) connections",[MgcMid]),
+ ?VERIFY([MgcCH], megaco:user_info(MgcMid, connections)),
+
+ Reason = shutdown,
+ d("request_and_reply_plain -> (MG) disconnect",[]),
+ ?SEND(megaco:disconnect(MgCH, Reason)),
+ ?USER({disconnect, MgCH, _V, [{user_disconnect, Reason}]}, ok),
+ ?RECEIVE([{res, _, ok}]),
+ ?VERIFY(ok, megaco:stop_user(MgMid)),
+
+ d("request_and_reply_plain -> (MGC) disconnect",[]),
+ ?SEND(megaco:disconnect(MgcCH, Reason)),
+ ?USER({disconnect, MgcCH, _V, [{user_disconnect, Reason}]}, ok),
+ ?RECEIVE([{res, _, ok}]),
+ ?VERIFY(ok, megaco:stop_user(MgcMid)),
+
+ d("request_and_reply_plain -> stop megaco app",[]),
+ ?VERIFY(ok, application:stop(megaco)),
+ ?RECEIVE([]),
+ d("request_and_reply_plain -> done",[]),
+ ok.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%% OTP-4760
+request_and_no_reply(suite) ->
+ [];
+request_and_no_reply(doc) ->
+ [];
+request_and_no_reply(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, request_and_no_reply),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ Mg1Node = make_node_name(mg1),
+ Mg2Node = make_node_name(mg2),
+ Mg3Node = make_node_name(mg3),
+ Mg4Node = make_node_name(mg4),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n Mg1Node: ~p"
+ "~n Mg2Node: ~p"
+ "~n Mg3Node: ~p"
+ "~n Mg4Node: ~p",
+ [MgcNode, Mg1Node, Mg2Node, Mg3Node, Mg4Node]),
+ Nodes = [MgcNode, Mg1Node, Mg2Node, Mg3Node, Mg4Node],
+ ok = megaco_test_lib:start_nodes(Nodes, ?FILE, ?LINE),
+
+ %% Start the MGC
+ i("[MGC] start"),
+ ET = [{text,tcp}, {text,udp}, {binary,tcp}, {binary,udp}],
+ {ok, Mgc} =
+ ?MGC_START(MgcNode, {deviceName, "ctrl"}, ET, [], ?MGC_VERBOSITY),
+
+ i("[MG] start"),
+ Mg1Mid = {deviceName, "mg1"},
+ Mg2Mid = {deviceName, "mg2"},
+ Mg3Mid = {deviceName, "mg3"},
+ Mg4Mid = {deviceName, "mg4"},
+ ReqTmr = #megaco_incr_timer{wait_for = 3000,
+ factor = 1,
+ incr = 0,
+ max_retries = 2
+ },
+ LongReqTmr = #megaco_incr_timer{wait_for = 10000,
+ factor = 1,
+ incr = 0,
+ max_retries = 3
+ },
+ %% Start the MGs
+ PendingTmr = 10000,
+ ReplyTmr = 16000,
+ MgConfig = [{request_timer, ReqTmr},
+ {long_request_timer, LongReqTmr},
+ {pending_timer, PendingTmr},
+ {reply_timer, ReplyTmr}],
+ {ok, Mg1} = ?MG_START(Mg1Node, Mg1Mid, text, tcp, MgConfig, ?MG_VERBOSITY),
+ {ok, Mg2} = ?MG_START(Mg2Node, Mg2Mid, text, udp, MgConfig, ?MG_VERBOSITY),
+ {ok, Mg3} = ?MG_START(Mg3Node, Mg3Mid, binary, tcp, MgConfig, ?MG_VERBOSITY),
+ {ok, Mg4} = ?MG_START(Mg4Node, Mg4Mid, binary, udp, MgConfig, ?MG_VERBOSITY),
+
+ d("MG1 user info: ~p", [?MG_USER_INFO(Mg1, all)]),
+ d("MG1 conn info: ~p", [?MG_CONN_INFO(Mg1, all)]),
+ d("MG2 user info: ~p", [?MG_USER_INFO(Mg2, all)]),
+ d("MG2 conn info: ~p", [?MG_CONN_INFO(Mg2, all)]),
+ d("MG3 user info: ~p", [?MG_USER_INFO(Mg3, all)]),
+ d("MG3 conn info: ~p", [?MG_CONN_INFO(Mg3, all)]),
+ d("MG4 user info: ~p", [?MG_USER_INFO(Mg4, all)]),
+ d("MG4 conn info: ~p", [?MG_CONN_INFO(Mg4, all)]),
+
+ i("[MG1] connect to the MGC (service change)"),
+ ServChRes1 = ?MG_SERV_CHANGE(Mg1),
+ d("service change result: ~p", [ServChRes1]),
+ d("MG1 user info: ~p", [?MG_USER_INFO(Mg1, all)]),
+ d("MG1 conn info: ~p", [?MG_CONN_INFO(Mg1, all)]),
+
+ i("[MG2] connect to the MGC (service change)"),
+ ServChRes2 = ?MG_SERV_CHANGE(Mg2),
+ d("service change result: ~p", [ServChRes2]),
+ d("MG2 user info: ~p", [?MG_USER_INFO(Mg2, all)]),
+ d("MG2 conn info: ~p", [?MG_CONN_INFO(Mg2, all)]),
+
+ i("[MG3] connect to the MGC (service change)"),
+ ServChRes3 = ?MG_SERV_CHANGE(Mg3),
+ d("service change result: ~p", [ServChRes3]),
+ d("MG3 user info: ~p", [?MG_USER_INFO(Mg3, all)]),
+ d("MG3 conn info: ~p", [?MG_CONN_INFO(Mg3, all)]),
+
+ i("[MG4] connect to the MGC (service change)"),
+ ServChRes4 = ?MG_SERV_CHANGE(Mg4),
+ d("service change result: ~p", [ServChRes4]),
+ d("MG4 user info: ~p", [?MG_USER_INFO(Mg4, all)]),
+ d("MG4 conn info: ~p", [?MG_CONN_INFO(Mg4, all)]),
+
+ d("tell the MGC to ignore requests"),
+ ?MGC_REQ_PEND(Mgc, infinity),
+
+ d("[MG1] send the notify"),
+ ?MG_NOTIF_REQ(Mg1),
+
+ d("[MG2] send the notify"),
+ ?MG_NOTIF_REQ(Mg2),
+
+ d("[MG3] send the notify"),
+ ?MG_NOTIF_REQ(Mg3),
+
+ d("[MG4] send the notify"),
+ ?MG_NOTIF_REQ(Mg4),
+
+ d("[MG1] await notify reply"),
+ {ok, {_Vsn1, {error, timeout}}} = ?MG_AWAIT_NOTIF_REP(Mg1),
+ d("[MG1] received expected reply"),
+
+ d("[MG2] await notify reply"),
+ {ok, {_Vsn2, {error, timeout}}} = ?MG_AWAIT_NOTIF_REP(Mg2),
+ d("[MG2] received expected reply"),
+
+ d("[MG3] await notify reply"),
+ {ok, {_Vsn3, {error, timeout}}} = ?MG_AWAIT_NOTIF_REP(Mg3),
+ d("[MG3] received expected reply"),
+
+ d("[MG4] await notify reply"),
+ {ok, {_Vsn4, {error, timeout}}} = ?MG_AWAIT_NOTIF_REP(Mg4),
+ d("[MG4] received expected reply"),
+
+ d("MG1 user info: ~p", [?MG_USER_INFO(Mg1, all)]),
+ d("MG1 conn info: ~p", [?MG_CONN_INFO(Mg1, all)]),
+ d("MG2 user info: ~p", [?MG_USER_INFO(Mg2, all)]),
+ d("MG2 conn info: ~p", [?MG_CONN_INFO(Mg2, all)]),
+ d("MG3 user info: ~p", [?MG_USER_INFO(Mg3, all)]),
+ d("MG3 conn info: ~p", [?MG_CONN_INFO(Mg3, all)]),
+ d("MG4 user info: ~p", [?MG_USER_INFO(Mg4, all)]),
+ d("MG4 conn info: ~p", [?MG_CONN_INFO(Mg4, all)]),
+
+ ok.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+request_and_reply_pending_ack_no_pending(suite) ->
+ [];
+request_and_reply_pending_ack_no_pending(doc) ->
+ ["This test case tests that megaco correctly handles the return "
+ "value handle_pending_ack from handle_trans_request when NO "
+ "pending message has been sent"];
+request_and_reply_pending_ack_no_pending(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, rar_panp),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ Nodes = [MgcNode, MgNode],
+ ok = megaco_test_lib:start_nodes(Nodes, ?FILE, ?LINE),
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = rarpanp_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = rarpanp_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_tcp_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_tcp_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(rarpanp_mgc_verify_handle_connect_fun(),
+ {?MODULE, rarpanp_mgc_verify_handle_connect, []}).
+-define(rarpanp_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, rarpanp_mgc_verify_service_change_req, [Mid]}).
+-define(rarpanp_mgc_verify_notify_req_fun(),
+ {?MODULE, rarpanp_mgc_verify_notify_request, []}).
+-define(rarpanp_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, rarpanp_mgc_verify_handle_disconnect, []}).
+-else.
+-define(rarpanp_mgc_verify_handle_connect_fun(),
+ fun rarpanp_mgc_verify_handle_connect/1).
+-define(rarpanp_mgc_verify_service_change_req_fun(Mid),
+ rarpanp_mgc_verify_service_change_req_fun(Mid)).
+-define(rarpanp_mgc_verify_notify_req_fun(),
+ rarpanp_mgc_verify_notify_request_fun()).
+-define(rarpanp_mgc_verify_handle_disconnect_fun(),
+ fun rarpanp_mgc_verify_handle_disconnect/1).
+-endif.
+
+rarpanp_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ ConnectVerify = ?rarpanp_mgc_verify_handle_connect_fun(),
+ ScrVerify = ?rarpanp_mgc_verify_service_change_req_fun(Mid),
+ NrVerify = ?rarpanp_mgc_verify_notify_req_fun(),
+ DiscoVerify = ?rarpanp_mgc_verify_handle_disconnect_fun(),
+%% ConnectVerify = fun rarpanp_mgc_verify_handle_connect/1,
+%% ScrVerify = rarpanp_mgc_verify_service_change_req_fun(Mid),
+%% NrVerify = rarpanp_mgc_verify_notify_request_fun(),
+%% DiscoVerify = fun rarpanp_mgc_verify_handle_disconnect/1,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ {megaco_trace, max},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, sent_pending_limit, 100},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_conn_info, all},
+ {megaco_callback, handle_trans_request, ScrVerify},
+ {megaco_callback, handle_trans_request, NrVerify},
+ {megaco_callback, nocall, 10000},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+%% Connect verification
+rarpanp_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ {ok, CH, ok};
+rarpanp_mgc_verify_handle_connect(Else) ->
+ {error, Else, ok}.
+
+%% Service Change verification
+-ifndef(megaco_hipe_special).
+rarpanp_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ rarpanp_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+rarpanp_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ io:format("rarpanp_mgc_verify_service_change_req -> entry with"
+ "~n AR: ~p"
+ "~n Mid: ~p"
+ "~n", [AR, Mid]),
+ (catch rarpanp_mgc_do_verify_service_change_req(AR, Mid));
+rarpanp_mgc_verify_service_change_req(Crap, _Mid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+rarpanp_mgc_do_verify_service_change_req(AR, Mid) ->
+ io:format("rarpanp_mgc_do_verify_service_change_req -> entry with"
+ "~n AR: ~p"
+ "~n Mid: ~p"
+ "~n", [AR, Mid]),
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [rarpanp_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+
+%% Notify Request verification
+-ifndef(megaco_hipe_special).
+rarpanp_mgc_verify_notify_request_fun() ->
+ fun(Req) ->
+ rarpanp_mgc_verify_notify_request(Req)
+ end.
+-endif.
+
+rarpanp_mgc_verify_notify_request(
+ {handle_trans_request, _, ?VERSION, [AR]}) ->
+ (catch rarpanp_mgc_do_verify_notify_request(AR));
+rarpanp_mgc_verify_notify_request(Crap) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+rarpanp_mgc_do_verify_notify_request(AR) ->
+ io:format("rarpanp_mgc_do_verify_notify_request -> entry with"
+ "~n AR: ~p"
+ "~n", [AR]),
+ {Cid, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ AckData = notify_request_verified,
+ Replies = [rarpanp_mgc_notify_reply_ar(Cid, Tid)],
+ Reply = {{handle_pending_ack, AckData}, Replies},
+ {ok, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ throw({error, Err6, ErrReply6})
+ end.
+
+
+%% Disconnect verification
+rarpanp_mgc_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, _R}) ->
+ {ok, CH, ok};
+rarpanp_mgc_verify_handle_disconnect(Else) ->
+ {error, Else, ok}.
+
+rarpanp_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ AR = cre_actionReply(Cid, [CR]),
+ AR.
+
+rarpanp_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(rarpanp_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(rarpanp_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(rarpanp_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, rarpanp_mg_verify_service_change_rep_msg, []}).
+-define(rarpanp_mg_verify_notify_rep_msg_fun(TransId, TermId),
+ {?MODULE, rarpanp_mg_verify_notify_rep_msg, [TransId, TermId]}).
+-else.
+-define(rarpanp_mg_decode_msg_fun(Mod, Conf),
+ rarpanp_mg_decode_msg_fun(Mod, Conf)).
+-define(rarpanp_mg_encode_msg_fun(Mod, Conf),
+ rarpanp_mg_encode_msg_fun(Mod, Conf)).
+-define(rarpanp_mg_verify_service_change_rep_msg_fun(),
+ rarpanp_mg_verify_service_change_rep_msg_fun()).
+-define(rarpanp_mg_verify_notify_rep_msg_fun(TransId, TermId),
+ rarpanp_mg_verify_notify_rep_msg_fun(TransId, TermId)).
+-endif.
+
+rarpanp_mg_event_sequence(text, tcp) ->
+ DecodeFun = ?rarpanp_mg_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?rarpanp_mg_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mg"},
+ ServiceChangeReq = rarpanp_mg_service_change_request_msg(Mid, 1, 0),
+ ScrVerifyFun = ?rarpanp_mg_verify_service_change_rep_msg_fun(),
+ TransId = 2,
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = rarpanp_mg_notify_request_msg(Mid, TransId, 1, TermId, 1),
+ NrVerifyFun = ?rarpanp_mg_verify_notify_rep_msg_fun(TransId, TermId),
+ EvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, 2944},
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ScrVerifyFun, 10000}},
+ {send, "notify request", NotifyReq},
+ {expect_receive, "notify-reply", {NrVerifyFun, 10000}},
+ {expect_nothing, 11000},
+ disconnect
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+rarpanp_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rarpanp_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rarpanp_mg_verify_service_change_rep_msg_fun() ->
+ fun(Msg) ->
+ (catch rarpanp_mg_verify_service_change_rep_msg(Msg))
+ end.
+-endif.
+
+rarpanp_mg_verify_service_change_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ io:format("rarpanp_mg_verify_service_change_rep_msg -> entry with"
+ "~n Mess: ~p"
+ "~n", [Mess]),
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ SCRes =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = _TermID,
+ serviceChangeResult = ServChRes} ->
+ ServChRes;
+ _ ->
+ throw({error, {invalid_serviceChangeReply, SCR}})
+ end,
+ SCRP =
+ case SCRes of
+ {serviceChangeResParms, Parms} ->
+ Parms;
+ _ ->
+ throw({error, {invalid_serviceChangeResult, SCRes}})
+ end,
+ case SCRP of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _MgcMid} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeResParms, SCRP}}
+ end;
+rarpanp_mg_verify_service_change_rep_msg(Crap) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+rarpanp_mg_verify_notify_rep_msg_fun(TransId, TermId) ->
+ fun(Msg) ->
+ (catch rarpanp_mg_verify_notify_rep_msg(Msg, TransId, TermId))
+ end.
+-endif.
+
+rarpanp_mg_verify_notify_rep_msg(#'MegacoMessage'{mess = Mess} = M,
+ TransId, TermId) ->
+ io:format("rarpanp_mg_verify_notify_rep_msg -> entry with"
+ "~n TransId: ~p"
+ "~n TermId: ~p"
+ "~n Mess: ~p"
+ "~n", [TransId, TermId, Mess]),
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = asn1_NOVALUE, % No ack
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ NR =
+ case CR of
+ {notifyReply, NotifyRep} ->
+ NotifyRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+
+ case NR of
+ #'NotifyReply'{terminationID = [TermId],
+ errorDescriptor = asn1_NOVALUE} ->
+ io:format("rarpanp_mg_verify_notify_rep_msg -> done when verifyed"
+ "~n", []),
+ {ok, M};
+ #'NotifyReply'{terminationID = A,
+ errorDescriptor = B} ->
+ throw({error, {invalid_notifyReply,
+ {A, TermId},
+ {B, asn1_NOVALUE}}});
+ _ ->
+ throw({error, {invalid_notifyReply, NR}})
+ end;
+rarpanp_mg_verify_notify_rep_msg(_TransId, _TermId, Crap) ->
+ {error, {invalid_message, Crap}}.
+
+rarpanp_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+rarpanp_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = rarpanp_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+rarpanp_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+rarpanp_mg_notify_request_msg(Mid, TransId, Rid, TermId, Cid) ->
+ AR = rarpanp_mg_notify_request_ar(Rid, TermId, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+request_and_reply_pending_ack_one_pending(suite) ->
+ [];
+request_and_reply_pending_ack_one_pending(doc) ->
+ ["This test case tests that megaco correctly handles the return "
+ "value handle_pending_ack from handle_trans_request when ONE "
+ "pending message has been sent"];
+request_and_reply_pending_ack_one_pending(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, rar_paop),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("[MGC] start the simulator"),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ %% MgcEvSeq = rarpaop_mgc_event_sequence(text, tcp),
+ MgcEvSeq = rarpaop_mgc_event_sequence(binary, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ %% MgEvSeq = rarpaop_mg_event_sequence(text, tcp),
+ MgEvSeq = rarpaop_mg_event_sequence(binary, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_tcp_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_tcp_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(rarpaop_mgc_verify_handle_connect_fun(),
+ {?MODULE, rarpaop_mgc_verify_handle_connect, []}).
+-define(rarpaop_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, rarpaop_mgc_verify_service_change_req, [Mid]}).
+-define(rarpaop_mgc_verify_notify_req_fun(),
+ {?MODULE, rarpaop_mgc_verify_notify_request, []}).
+-define(rarpaop_mgc_verify_reply_ack_fun(),
+ {?MODULE, rarpaop_mgc_verify_reply_ack, []}).
+-define(rarpaop_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, rarpaop_mgc_verify_handle_disconnect, []}).
+-else.
+-define(rarpaop_mgc_verify_handle_connect_fun(),
+ fun rarpaop_mgc_verify_handle_connect/1).
+-define(rarpaop_mgc_verify_service_change_req_fun(Mid),
+ rarpaop_mgc_verify_service_change_req_fun(Mid)).
+-define(rarpaop_mgc_verify_notify_req_fun(),
+ rarpaop_mgc_verify_notify_request_fun()).
+-define(rarpaop_mgc_verify_reply_ack_fun(),
+ rarpaop_mgc_verify_reply_ack_fun()).
+-define(rarpaop_mgc_verify_handle_disconnect_fun(),
+ fun rarpaop_mgc_verify_handle_disconnect/1).
+-endif.
+
+rarpaop_mgc_event_sequence(text, tcp) ->
+ Port = 2944,
+ TranspMod = megaco_tcp,
+ EncMod = megaco_pretty_text_encoder,
+ EncConf = [],
+ rarpaop_mgc_event_sequence(Port, TranspMod, EncMod, EncConf);
+rarpaop_mgc_event_sequence(binary, tcp) ->
+ Port = 2945,
+ TranspMod = megaco_tcp,
+ EncMod = megaco_ber_bin_encoder,
+ EncConf = [],
+ rarpaop_mgc_event_sequence(Port, TranspMod, EncMod, EncConf).
+
+rarpaop_mgc_event_sequence(Port, TranspMod, EncMod, EncConf) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, Port},
+ {transport_module, TranspMod},
+ {encoding_module, EncMod},
+ {encoding_config, EncConf}
+ ],
+ ConnectVerify = ?rarpaop_mgc_verify_handle_connect_fun(),
+ ScrVerify = ?rarpaop_mgc_verify_service_change_req_fun(Mid),
+ NrVerify = ?rarpaop_mgc_verify_notify_req_fun(),
+ AckVerify = ?rarpaop_mgc_verify_reply_ack_fun(),
+ DiscoVerify = ?rarpaop_mgc_verify_handle_disconnect_fun(),
+%% ConnectVerify = fun rarpaop_mgc_verify_handle_connect/1,
+%% ScrVerify = rarpaop_mgc_verify_service_change_req_fun(Mid),
+%% NrVerify = rarpaop_mgc_verify_notify_request_fun(),
+%% AckVerify = rarpaop_mgc_verify_reply_ack_fun(),
+%% DiscoVerify = fun rarpaop_mgc_verify_handle_disconnect/1,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ {megaco_trace, max},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, sent_pending_limit, 100},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_conn_info, all},
+ {megaco_callback, handle_trans_request, ScrVerify},
+ {megaco_callback, handle_trans_request, NrVerify},
+ {megaco_callback, handle_trans_ack, AckVerify},
+ {megaco_callback, nocall, 10000},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+%% Connect verification
+rarpaop_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ {ok, CH, ok};
+rarpaop_mgc_verify_handle_connect(Else) ->
+ {error, Else, ok}.
+
+%% Service Change verification
+-ifndef(megaco_hipe_special).
+rarpaop_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ rarpaop_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+rarpaop_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ (catch rarpaop_do_verify_service_change_req(AR, Mid));
+rarpaop_mgc_verify_service_change_req(Crap, _Mid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+rarpaop_do_verify_service_change_req(AR, Mid) ->
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [rarpaop_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+
+%% Notify Request verification
+-ifndef(megaco_hipe_special).
+rarpaop_mgc_verify_notify_request_fun() ->
+ fun(Req) ->
+ rarpaop_mgc_verify_notify_request(Req)
+ end.
+-endif.
+
+rarpaop_mgc_verify_notify_request({handle_trans_request, _, ?VERSION, [AR]}) ->
+ (catch rarpaop_mgc_do_verify_notify_request(AR));
+rarpaop_mgc_verify_notify_request(Crap) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+rarpaop_mgc_do_verify_notify_request(AR) ->
+ {Cid, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ AckData = notify_request_verified,
+ Replies = [rarpaop_mgc_notify_reply_ar(Cid, Tid)],
+ Reply = {{handle_pending_ack, AckData}, Replies},
+ {ok, 5000, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ throw({error, Err6, ErrReply6})
+ end.
+
+
+%% Ack verification
+-ifndef(megaco_hipe_special).
+rarpaop_mgc_verify_reply_ack_fun() ->
+ fun(M) ->
+ rarpaop_mgc_verify_reply_ack(M)
+ end.
+-endif.
+
+rarpaop_mgc_verify_reply_ack({handle_trans_ack, _, ?VERSION, ok, _}) ->
+ io:format("rarpaop_mgc_verify_reply_ack -> ok~n", []),
+ {ok, ok, ok};
+rarpaop_mgc_verify_reply_ack({handle_trans_ack, _, ?VERSION, AS, AD} = Crap) ->
+ io:format("rarpaop_mgc_verify_reply_ack -> incorrect ack-status:"
+ "~n AS: ~p"
+ "~n AD: ~p"
+ "~n", [AS, AD]),
+ ED = cre_ErrDesc({invalid_ack_status, {AS, AD}}),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply};
+rarpaop_mgc_verify_reply_ack(Crap) ->
+ io:format("rarpaop_mgc_verify_reply_ack -> invalid ack:"
+ "~n Crap: ~p"
+ "~n", [Crap]),
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+
+%% Disconnect verification
+rarpaop_mgc_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, _R}) ->
+ {ok, CH, ok};
+rarpaop_mgc_verify_handle_disconnect(Else) ->
+ {error, Else, ok}.
+
+rarpaop_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ AR = cre_actionReply(Cid, [CR]),
+ AR.
+
+rarpaop_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(rarpaop_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(rarpaop_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(rarpaop_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, rarpaop_mg_verify_service_change_rep_msg, []}).
+-define(rarpaop_mg_verify_pending_msg_fun(TransId),
+ {?MODULE, rarpaop_mg_verify_pending_msg, [TransId]}).
+-define(rarpaop_mg_verify_notify_rep_msg_fun(TransId, TermId),
+ {?MODULE, rarpaop_mg_verify_notify_rep_msg, [TransId, TermId]}).
+-else.
+-define(rarpaop_mg_decode_msg_fun(Mod, Conf),
+ rarpaop_mg_decode_msg_fun(Mod, Conf)).
+-define(rarpaop_mg_encode_msg_fun(Mod, Conf),
+ rarpaop_mg_encode_msg_fun(Mod, Conf)).
+-define(rarpaop_mg_verify_service_change_rep_msg_fun(),
+ rarpaop_mg_verify_service_change_rep_msg_fun()).
+-define(rarpaop_mg_verify_pending_msg_fun(TransId),
+ rarpaop_mg_verify_pending_msg_fun(TransId)).
+-define(rarpaop_mg_verify_notify_rep_msg_fun(TransId, TermId),
+ rarpaop_mg_verify_notify_rep_msg_fun(TransId, TermId)).
+-endif.
+
+rarpaop_mg_event_sequence(text, tcp) ->
+ Port = 2944,
+ EncMod = megaco_pretty_text_encoder,
+ EncConf = [],
+ rarpaop_mg_event_sequence(Port, EncMod, EncConf);
+rarpaop_mg_event_sequence(binary, tcp) ->
+ Port = 2945,
+ EncMod = megaco_ber_bin_encoder,
+ EncConf = [],
+ rarpaop_mg_event_sequence(Port, EncMod, EncConf).
+
+rarpaop_mg_event_sequence(Port, EncMod, EncConf) ->
+ DecodeFun = ?rarpaop_mg_decode_msg_fun(EncMod, EncConf),
+ EncodeFun = ?rarpaop_mg_encode_msg_fun(EncMod, EncConf),
+ Mid = {deviceName, "mg"},
+ TransId = 2,
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ ServiceChangeReq = rarpaop_mg_service_change_request_msg(Mid, 1, 0),
+ NotifyReq = rarpaop_mg_notify_request_msg(Mid, TransId, 1, TermId, 1),
+ Ack = rarpaop_mg_ack_msg(Mid, TransId),
+ ScrVerifyFun = ?rarpaop_mg_verify_service_change_rep_msg_fun(),
+ PendVerifyFun = ?rarpaop_mg_verify_pending_msg_fun(TransId),
+ NrVerifyFun = ?rarpaop_mg_verify_notify_rep_msg_fun(TransId, TermId),
+%% ScrVerifyFun = rarpaop_mg_verify_service_change_rep_msg_fun(),
+%% PendVerifyFun = rarpaop_mg_verify_pending_msg_fun(TransId),
+%% NrVerifyFun = rarpaop_mg_verify_notify_rep_msg_fun(TransId, TermId),
+ EvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, Port},
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ScrVerifyFun, 10000}},
+ {send, "notify request", NotifyReq},
+ {sleep, 2000},
+ {send, "notify request", NotifyReq},
+ {expect_receive, "pending", {PendVerifyFun, 5000}},
+ {expect_receive, "notify-reply", {NrVerifyFun, 5000}},
+ {send, "reply ack", Ack},
+ {expect_nothing, 11000},
+ disconnect
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+rarpaop_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rarpaop_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rarpaop_mg_verify_service_change_rep_msg_fun() ->
+ fun(Msg) ->
+ (catch rarpaop_mg_verify_service_change_rep_msg(Msg))
+ end.
+-endif.
+
+rarpaop_mg_verify_service_change_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ SCRes =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = _TermID,
+ serviceChangeResult = ServChRes} ->
+ ServChRes;
+ _ ->
+ throw({error, {invalid_serviceChangeReply, SCR}})
+ end,
+ SCRP =
+ case SCRes of
+ {serviceChangeResParms, Parms} ->
+ Parms;
+ _ ->
+ throw({error, {invalid_serviceChangeResult, SCRes}})
+ end,
+ case SCRP of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _MgcMid} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeResParms, SCRP}}
+ end;
+rarpaop_mg_verify_service_change_rep_msg(Crap) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+rarpaop_mg_verify_pending_msg_fun(TransId) ->
+ fun(Msg) ->
+ (catch rarpaop_mg_verify_pending_msg(Msg, TransId))
+ end.
+-endif.
+
+rarpaop_mg_verify_pending_msg(#'MegacoMessage'{mess = Mess} = M, TransId) ->
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TP =
+ case Trans of
+ {transactionPending, TransPending} ->
+ TransPending;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ case TP of
+ #'TransactionPending'{transactionId = TransId} ->
+ {ok, M};
+ _ ->
+ throw({error, {invalid_transactionPending, TP}})
+ end;
+rarpaop_mg_verify_pending_msg(Crap, _TransId) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+rarpaop_mg_verify_notify_rep_msg_fun(TransId, TermId) ->
+ fun(Msg) ->
+ (catch rarpaop_mg_verify_notify_rep_msg(Msg, TransId, TermId))
+ end.
+-endif.
+
+rarpaop_mg_verify_notify_rep_msg(#'MegacoMessage'{mess = Mess} = M,
+ TransId, TermId) ->
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = 'NULL', % Ack
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ NR =
+ case CR of
+ {notifyReply, NotifyRep} ->
+ NotifyRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+
+ case NR of
+ #'NotifyReply'{terminationID = [TermId],
+ errorDescriptor = asn1_NOVALUE} ->
+ {ok, M};
+ #'NotifyReply'{terminationID = A,
+ errorDescriptor = B} ->
+ throw({error, {invalid_notifyReply,
+ {A, TermId},
+ {B, asn1_NOVALUE}}});
+ _ ->
+ throw({error, {invalid_notifyReply, NR}})
+ end;
+rarpaop_mg_verify_notify_rep_msg(Crap, _TransId, _TermId) ->
+ {error, {invalid_message, Crap}}.
+
+rarpaop_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+rarpaop_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = rarpaop_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+rarpaop_mg_ack_msg(Mid, TransId) ->
+ TR = cre_transRespAck(cre_transAck(TransId)),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+rarpaop_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+rarpaop_mg_notify_request_msg(Mid, TransId, Rid, TermId, Cid) ->
+ AR = rarpaop_mg_notify_request_ar(Rid, TermId, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+single_trans_req_and_reply(suite) ->
+ [];
+single_trans_req_and_reply(doc) ->
+ ["Receive a (single) transaction request and then send a "
+ "reply (discard ack). "
+ "The MGC is a megaco instance (megaco event sequence) and the "
+ "MG is emulated (tcp event sequence)"];
+single_trans_req_and_reply(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, strar),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = strar_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = strar_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId], 30000),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(strar_mgc_verify_handle_connect_fun(),
+ {?MODULE, strar_mgc_verify_handle_connect, []}).
+-define(strar_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, strar_mgc_verify_service_change_req, [Mid]}).
+-define(strar_mgc_verify_notify_req_fun(),
+ {?MODULE, strar_mgc_verify_notify_request, []}).
+-define(strar_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, strar_mgc_verify_handle_disconnect, []}).
+-else.
+-define(strar_mgc_verify_handle_connect_fun(),
+ fun strar_mgc_verify_handle_connect/1).
+-define(strar_mgc_verify_service_change_req_fun(Mid),
+ strar_mgc_verify_service_change_req_fun(Mid)).
+-define(strar_mgc_verify_notify_req_fun(),
+ strar_mgc_verify_notify_request_fun()).
+-define(strar_mgc_verify_handle_disconnect_fun(),
+ fun strar_mgc_verify_handle_disconnect/1).
+-endif.
+
+strar_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ %% Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+%% ReqTmr = #megaco_incr_timer{wait_for = 500,
+%% factor = 1,
+%% max_retries = 1},
+ ConnectVerify = ?strar_mgc_verify_handle_connect_fun(),
+ ServiceChangeReqVerify = ?strar_mgc_verify_service_change_req_fun(Mid),
+ NotifyReqVerify = ?strar_mgc_verify_notify_req_fun(),
+ DiscoVerify = ?strar_mgc_verify_handle_disconnect_fun(),
+%% ConnectVerify = fun strar_mgc_verify_handle_connect/1,
+%% ServiceChangeReqVerify = strar_mgc_verify_service_change_req_fun(Mid),
+%% NotifyReqVerify = strar_mgc_verify_notify_request_fun(),
+%% DiscoVerify = fun strar_mgc_verify_handle_disconnect/1,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_request, ServiceChangeReqVerify},
+ {megaco_callback, handle_trans_request, NotifyReqVerify},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+
+strar_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("strar_mgc_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+strar_mgc_verify_handle_connect(Else) ->
+ io:format("strar_mgc_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+-ifndef(megaco_hipe_special).
+strar_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ strar_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+strar_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ (catch strar_mgc_do_verify_service_change_req(AR, Mid));
+strar_mgc_verify_service_change_req(Crap, _Mid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+strar_mgc_do_verify_service_change_req(AR, Mid) ->
+ io:format("strar_mgc_verify_service_change_req -> entry with"
+ "~n AR: ~p"
+ "~n Mid: ~p"
+ "~n", [AR, Mid]),
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [strar_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+-ifndef(megaco_hipe_special).
+strar_mgc_verify_notify_request_fun() ->
+ fun(Req) ->
+ strar_mgc_verify_notify_request(Req)
+ end.
+-endif.
+
+strar_mgc_verify_notify_request({handle_trans_request, _, ?VERSION, [AR]}) ->
+ (catch strar_mgc_do_verify_notify_request(AR));
+strar_mgc_verify_notify_request(Crap) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+strar_mgc_do_verify_notify_request(AR) ->
+ io:format("strar_mgc_do_verify_notify_request -> ok"
+ "~n AR: ~p~n", [AR]),
+ {Cid, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} when (CtxID == 1) or
+ (CtxID == 2) ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ Replies = [strar_mgc_notify_reply_ar(Cid, Tid)],
+ Reply = {discard_ack, Replies},
+ {ok, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ {error, Err6, ErrReply6}
+ end.
+
+strar_mgc_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, R}) ->
+ io:format("strar_mgc_verify_handle_disconnect -> ok"
+ "~n CH: ~p"
+ "~n R: ~p"
+ "~n", [CH, R]),
+ {ok, CH, ok};
+strar_mgc_verify_handle_disconnect(Else) ->
+ io:format("strar_mgc_verify_handle_disconnect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+strar_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ cre_actionReply(Cid, [CR]).
+
+strar_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+%% strar_mgc_notify_reply(Mid, TransId, Cid, TermId) ->
+%% AR = strar_mgc_notify_reply_ar(Cid, TermId),
+%% TRes = cre_transResult([AR]),
+%% TR = cre_transReply(TransId, TRes),
+%% Trans = cre_transaction(TR),
+%% Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+%% cre_megacoMessage(Mess).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(strar_mg_verify_handle_connect_fun(),
+ {?MODULE, strar_mg_verify_handle_connect, []}).
+-define(strar_mg_verify_service_change_reply_fun(),
+ {?MODULE, strar_mg_verify_service_change_reply, []}).
+-define(strar_mg_verify_notify_reply_fun(),
+ {?MODULE, strar_mg_verify_notify_reply, []}).
+-else.
+-define(strar_mg_verify_handle_connect_fun(),
+ strar_mg_verify_handle_connect_fun()).
+-define(strar_mg_verify_service_change_reply_fun(),
+ strar_mg_verify_service_change_reply_fun()).
+-define(strar_mg_verify_notify_reply_fun(),
+ strar_mg_verify_notify_reply_fun()).
+-endif.
+
+strar_mg_event_sequence(text, tcp) ->
+ Mid = {deviceName, "mg"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ ServiceChangeReq = [strar_mg_service_change_request_ar(Mid, 1)],
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NR = fun(Cid, Rid) ->
+ [strar_mg_notify_request_ar(Rid, Tid, Cid)]
+ end,
+ ConnectVerify = ?strar_mg_verify_handle_connect_fun(),
+ ServiceChangeReplyVerify = ?strar_mg_verify_service_change_reply_fun(),
+ NotifyReplyVerify = ?strar_mg_verify_notify_reply_fun(),
+%% ConnectVerify = strar_mg_verify_handle_connect_fun(),
+%% ServiceChangeReplyVerify = strar_mg_verify_service_change_reply_fun(),
+%% NotifyReplyVerify = fun strar_mg_verify_notify_reply/1,
+ EvSeq = [
+ {debug, true},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ start_transport,
+ {megaco_trace, disable},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, ServiceChangeReq, []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+ {sleep, 1000},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ {sleep, 1000},
+ {megaco_conn_info, all},
+ {megaco_cast, NR(1,1), []},
+ {megaco_callback, handle_trans_reply, NotifyReplyVerify},
+ {sleep, 3000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+strar_mg_verify_handle_connect_fun() ->
+ fun(Ev) ->
+ strar_mg_verify_handle_connect(Ev)
+ end.
+-endif.
+
+strar_mg_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("strar_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+strar_mg_verify_handle_connect(Else) ->
+ io:format("strar_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+-ifndef(megaco_hipe_special).
+strar_mg_verify_service_change_reply_fun() ->
+ fun(Rep) ->
+ strar_mg_verify_service_change_reply(Rep)
+ end.
+-endif.
+
+strar_mg_verify_service_change_reply(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ (catch strar_mg_do_verify_service_change_reply(AR));
+strar_mg_verify_service_change_reply(Crap) ->
+ {error, Crap, ok}.
+
+strar_mg_do_verify_service_change_reply(AR) ->
+ io:format("strar_mg_verify_service_change_reply -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ Reason1 = {invalid_action_reply, AR},
+ throw({error, Reason1, ok})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ Reason2 = {invalid_command_reply, CR},
+ throw({error, Reason2, ok})
+ end,
+ {Tid, SCRes} =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = [TermID],
+ serviceChangeResult = Res} ->
+ {TermID, Res};
+ _ ->
+ Reason3 = {invalid_service_change_reply, SCR},
+ throw({error, Reason3, ok})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Reason4 = {invalid_termination_id, Tid},
+ throw({error, Reason4, ok})
+ end,
+ SCRParm =
+ case SCRes of
+ {serviceChangeResParms, ServChResParms} ->
+ ServChResParms;
+ _ ->
+ Reason5 = {invalid_serviceChangeResult, SCRes},
+ throw({error, Reason5, ok})
+ end,
+ case SCRParm of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _RemoteMid} ->
+ {ok, AR, ok};
+ _ ->
+ Reason6 = {invalid_service_change_result, SCRParm},
+ {error, Reason6, ok}
+ end.
+
+-ifndef(megaco_hipe_special).
+strar_mg_verify_notify_reply_fun() ->
+ fun(Rep) ->
+ strar_mg_verify_notify_reply(Rep)
+ end.
+-endif.
+
+strar_mg_verify_notify_reply({handle_trans_reply, _CH, ?VERSION,
+ {ok, [AR]}, _}) ->
+ io:format("strar_mg_verify_notify_reply -> ok"
+ "~n AR: ~p~n", [AR]),
+ {ok, AR, ok};
+strar_mg_verify_notify_reply(Else) ->
+ io:format("strar_mg_verify_notify_reply -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+strar_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+strar_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+single_trans_req_and_reply_sendopts(suite) ->
+ [];
+single_trans_req_and_reply_sendopts(doc) ->
+ ["Receive a (single) transaction request and then send a "
+ "reply with handle_ack and a reply_timer in sendoptions. "
+ "The MGC is a megaco instance (megaco event sequence) and the "
+ "MG is emulated (tcp event sequence)"];
+single_trans_req_and_reply_sendopts(Config) when is_list(Config) ->
+ %% <CONDITIONAL-SKIP>
+ Skippable = [{unix, [darwin, linux]}],
+ Condition = fun() -> ?OS_BASED_SKIP(Skippable) end,
+ ?NON_PC_TC_MAYBE_SKIP(Config, Condition),
+ %% </CONDITIONAL-SKIP>
+
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, straro),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = straro_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = straro_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId], 30000),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(straro_mgc_verify_handle_connect_fun(),
+ {?MODULE, straro_mgc_verify_handle_connect, []}).
+-define(straro_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, straro_mgc_verify_service_change_req, [Mid]}).
+-define(straro_mgc_verify_notify_req_fun(),
+ {?MODULE, straro_mgc_verify_notify_request, []}).
+-define(straro_mgc_verify_handle_trans_ack_fun(),
+ {?MODULE, straro_mgc_verify_handle_trans_ack, []}).
+-else.
+-define(straro_mgc_verify_handle_connect_fun(),
+ fun straro_mgc_verify_handle_connect/1).
+-define(straro_mgc_verify_service_change_req_fun(Mid),
+ straro_mgc_verify_service_change_req_fun(Mid)).
+-define(straro_mgc_verify_notify_req_fun(),
+ straro_mgc_verify_notify_request_fun()).
+-define(straro_mgc_verify_handle_trans_ack_fun(),
+ straro_mgc_verify_handle_trans_ack_fun()).
+-endif.
+
+straro_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ ConnectVerify = ?straro_mgc_verify_handle_connect_fun(),
+ ServiceChangeReqVerify = ?straro_mgc_verify_service_change_req_fun(Mid),
+ NotifyReqVerify = ?straro_mgc_verify_notify_req_fun(),
+ TransAckVerify = ?straro_mgc_verify_handle_trans_ack_fun(),
+%% ConnectVerify = fun straro_mgc_verify_handle_connect/1,
+%% ServiceChangeReqVerify = straro_mgc_verify_service_change_req_fun(Mid),
+%% NotifyReqVerify = straro_mgc_verify_notify_request_fun(),
+%% TransAckVerify = straro_mgc_verify_handle_trans_ack_fun(),
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_request, ServiceChangeReqVerify},
+ {megaco_callback, handle_trans_request, NotifyReqVerify},
+ {megaco_callback, handle_trans_ack, TransAckVerify},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+
+straro_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("straro_mgc_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+straro_mgc_verify_handle_connect(Else) ->
+ io:format("straro_mgc_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+-ifndef(megaco_hipe_special).
+straro_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ straro_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+straro_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ (catch straro_mgc_do_verify_service_change_req(AR, Mid));
+straro_mgc_verify_service_change_req(Crap, _Mid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+straro_mgc_do_verify_service_change_req(AR, Mid) ->
+ io:format("straro_mgc_do_verify_service_change_req -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [straro_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+-ifndef(megaco_hipe_special).
+straro_mgc_verify_notify_request_fun() ->
+ fun(Req) ->
+ straro_mgc_verify_notify_request(Req)
+ end.
+-endif.
+
+straro_mgc_verify_notify_request({handle_trans_request, _, ?VERSION, [AR]}) ->
+ (catch straro_mgc_do_verify_notify_request(AR));
+straro_mgc_verify_notify_request(Crap) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+straro_mgc_do_verify_notify_request(AR) ->
+ io:format("straro_mgc_do_verify_notify_request -> ok"
+ "~n AR: ~p~n", [AR]),
+ {Cid, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} when (CtxID == 1) or
+ (CtxID == 2) ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ Replies = [straro_mgc_notify_reply_ar(Cid, Tid)],
+ SendOpts = [{protocol_version, 99}],
+ Reply = {{handle_ack, get(tc)}, Replies, SendOpts},
+ {ok, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ {error, Err6, ErrReply6}
+ end.
+
+-ifndef(megaco_hipe_special).
+straro_mgc_verify_handle_trans_ack_fun() ->
+ fun(Ack) ->
+ straro_mgc_verify_handle_trans_ack(Ack)
+ end.
+-endif.
+
+straro_mgc_verify_handle_trans_ack(
+ {handle_trans_ack, _CH, ?VERSION, AS, _AD}) ->
+ (catch straro_mgc_do_verify_handle_trans_ack(AS));
+straro_mgc_verify_handle_trans_ack(Crap) ->
+ io:format("straro_mgc_verify_handle_trans_ack -> entry with"
+ "~n Crap: ~p"
+ "~n", [Crap]),
+ {error, Crap, ok}.
+
+straro_mgc_do_verify_handle_trans_ack({error, {EM, EF, [EC, Version, Msg], Reason}}) ->
+ io:format("straro_mgc_do_handle_verify_handle_trans_ack -> entry with"
+ "~n EM: ~p"
+ "~n EF: ~p"
+ "~n EC: ~p"
+ "~n Version: ~p"
+ "~n Msg: ~p"
+ "~n Reason: ~p"
+ "~n", [EM, EF, EC, Version, Msg, Reason]),
+ case Reason of
+ {bad_version, 99} ->
+ {ok, Reason, ok};
+ _ ->
+ {error, {unexpected_reason, Reason}, ok}
+ end;
+straro_mgc_do_verify_handle_trans_ack(Else) ->
+ io:format("straro_mgc_verify_handle_trans_ack -> unknown"
+ "~n Else: ~p"
+ "~n", [Else]),
+ {error, Else, ok}.
+
+%% straro_mgc_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, R}) ->
+%% io:format("straro_mgc_verify_handle_disconnect -> ok"
+%% "~n CH: ~p"
+%% "~n R: ~p"
+%% "~n", [CH, R]),
+%% {ok, CH, ok};
+%% straro_mgc_verify_handle_disconnect(Else) ->
+%% io:format("straro_mgc_verify_handle_disconnect -> unknown"
+%% "~n Else: ~p~n", [Else]),
+%% {error, Else, ok}.
+
+
+straro_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ cre_actionReply(Cid, [CR]).
+
+straro_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+%% straro_mgc_notify_reply(Mid, TransId, Cid, TermId) ->
+%% AR = straro_mgc_notify_reply_ar(Cid, TermId),
+%% TRes = cre_transResult([AR]),
+%% TR = cre_transReply(TransId, TRes),
+%% Trans = cre_transaction(TR),
+%% Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+%% cre_megacoMessage(Mess).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(straro_mg_verify_handle_connect_fun(),
+ {?MODULE, straro_mg_verify_handle_connect, []}).
+-define(straro_mg_verify_service_change_reply_fun(),
+ {?MODULE, straro_mg_verify_service_change_reply, []}).
+-define(straro_mg_verify_handle_disconnect_fun(),
+ {?MODULE, straro_mg_verify_handle_disconnect, []}).
+-else.
+-define(straro_mg_verify_handle_connect_fun(),
+ straro_mg_verify_handle_connect_fun()).
+-define(straro_mg_verify_service_change_reply_fun(),
+ straro_mg_verify_service_change_reply_fun()).
+-define(straro_mg_verify_handle_disconnect_fun(),
+ fun straro_mg_verify_handle_disconnect/1).
+-endif.
+
+straro_mg_event_sequence(text, tcp) ->
+ Mid = {deviceName, "mg"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ ServiceChangeReq = [straro_mg_service_change_request_ar(Mid, 1)],
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NR = fun(Cid, Rid) ->
+ [straro_mg_notify_request_ar(Rid, Tid, Cid)]
+ end,
+ ConnectVerify = ?straro_mg_verify_handle_connect_fun(),
+ ServiceChangeReplyVerify = ?straro_mg_verify_service_change_reply_fun(),
+ DiscoVerify = ?straro_mg_verify_handle_disconnect_fun(),
+%% ConnectVerify = straro_mg_verify_handle_connect_fun(),
+%% DiscoVerify = fun straro_mg_verify_handle_disconnect/1,
+%% ServiceChangeReplyVerify = straro_mg_verify_service_change_reply_fun(),
+ EvSeq = [
+ {debug, true},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ start_transport,
+ {megaco_trace, disable},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, ServiceChangeReq, []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+ {sleep, 1000},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ {sleep, 1000},
+ {megaco_conn_info, all},
+ {megaco_cast, NR(1,1), []},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+straro_mg_verify_handle_connect_fun() ->
+ fun(Ev) ->
+ straro_mg_verify_handle_connect(Ev)
+ end.
+-endif.
+
+straro_mg_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("straro_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+straro_mg_verify_handle_connect(Else) ->
+ io:format("straro_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+straro_mg_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, R}) ->
+ io:format("straro_mg_verify_handle_disconnect -> ok"
+ "~n CH: ~p"
+ "~n R: ~p"
+ "~n", [CH, R]),
+ {ok, CH, ok};
+straro_mg_verify_handle_disconnect(Else) ->
+ io:format("straro_mg_verify_handle_disconnect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+-ifndef(megaco_hipe_special).
+straro_mg_verify_service_change_reply_fun() ->
+ fun(Rep) ->
+ straro_mg_verify_service_change_reply(Rep)
+ end.
+-endif.
+
+straro_mg_verify_service_change_reply(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ (catch straro_mg_do_verify_service_change_reply(AR));
+straro_mg_verify_service_change_reply(Crap) ->
+ {error, Crap, ok}.
+
+straro_mg_do_verify_service_change_reply(AR) ->
+ io:format("straro_mg_verify_service_change_reply -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ Reason1 = {invalid_action_reply, AR},
+ throw({error, Reason1, ok})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ Reason2 = {invalid_command_reply, CR},
+ throw({error, Reason2, ok})
+ end,
+ {Tid, SCRes} =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = [TermID],
+ serviceChangeResult = Res} ->
+ {TermID, Res};
+ _ ->
+ Reason3 = {invalid_service_change_reply, SCR},
+ throw({error, Reason3, ok})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Reason4 = {invalid_termination_id, Tid},
+ throw({error, Reason4, ok})
+ end,
+ SCRParm =
+ case SCRes of
+ {serviceChangeResParms, ServChResParms} ->
+ ServChResParms;
+ _ ->
+ Reason5 = {invalid_serviceChangeResult, SCRes},
+ throw({error, Reason5, ok})
+ end,
+ case SCRParm of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _RemoteMid} ->
+ {ok, AR, ok};
+ _ ->
+ Reason6 = {invalid_service_change_result, SCRParm},
+ {error, Reason6, ok}
+ end.
+
+%% -ifndef(megaco_hipe_special).
+%% straro_mg_verify_notify_reply_fun() ->
+%% fun(Rep) ->
+%% straro_mg_verify_notify_reply(Rep)
+%% end.
+%% -endif.
+
+%% straro_mg_verify_notify_reply({handle_trans_reply, _CH, ?VERSION,
+%% {ok, [AR]}, _}) ->
+%% io:format("straro_mg_verify_notify_reply -> ok"
+%% "~n AR: ~p~n", [AR]),
+%% {ok, AR, ok};
+%% straro_mg_verify_notify_reply(Else) ->
+%% io:format("straro_mg_verify_notify_reply -> unknown"
+%% "~n Else: ~p~n", [Else]),
+%% {error, Else, ok}.
+
+straro_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+straro_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+request_and_reply_and_ack(suite) ->
+ [];
+request_and_reply_and_ack(doc) ->
+ ["This test case tests that megaco correctly handles three-way-handshake"];
+request_and_reply_and_ack(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, raraa),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = raraa_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = raraa_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_tcp_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_tcp_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+
+-ifdef(megaco_hipe_special).
+-define(raraa_mgc_verify_handle_connect_fun(),
+ {?MODULE, raraa_mgc_verify_handle_connect, []}).
+-define(raraa_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, raraa_mgc_verify_service_change_req, [Mid]}).
+-define(raraa_mgc_verify_notify_req_fun(),
+ {?MODULE, raraa_mgc_verify_notify_req, []}).
+-define(raraa_mgc_verify_handle_trans_ack_fun(),
+ {?MODULE, raraa_mgc_verify_handle_trans_ack, []}).
+-define(raraa_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, raraa_mgc_verify_handle_disconnect, []}).
+-else.
+-define(raraa_mgc_verify_handle_connect_fun(),
+ fun raraa_mgc_verify_handle_connect/1).
+-define(raraa_mgc_verify_service_change_req_fun(Mid),
+ raraa_mgc_verify_service_change_req_fun(Mid)).
+-define(raraa_mgc_verify_notify_req_fun(),
+ raraa_mgc_verify_notify_req_fun()).
+-define(raraa_mgc_verify_handle_trans_ack_fun(),
+ raraa_mgc_verify_handle_trans_ack_fun()).
+-define(raraa_mgc_verify_handle_disconnect_fun(),
+ fun raraa_mgc_verify_handle_disconnect/1).
+-endif.
+
+raraa_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ ConnectVerify = ?raraa_mgc_verify_handle_connect_fun(),
+ ScrVerify = ?raraa_mgc_verify_service_change_req_fun(Mid),
+ NrVerify = ?raraa_mgc_verify_notify_req_fun(),
+ AckVerify = ?raraa_mgc_verify_handle_trans_ack_fun(),
+ DiscoVerify = ?raraa_mgc_verify_handle_disconnect_fun(),
+%% ConnectVerify = fun raraa_mgc_verify_handle_connect/1,
+%% ScrVerify = raraa_mgc_verify_service_change_req_fun(Mid),
+%% NrVerify = raraa_mgc_verify_notify_request_fun(),
+%% AckVerify = raraa_mgc_verify_trans_ack_fun(),
+%% DiscoVerify = fun raraa_mgc_verify_handle_disconnect/1,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ {megaco_trace, max},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, sent_pending_limit, 100},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_conn_info, all},
+ {megaco_callback, handle_trans_request, ScrVerify},
+ {megaco_callback, handle_trans_request, NrVerify},
+ {megaco_callback, handle_trans_ack, AckVerify},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+%% Connect verification
+raraa_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ {ok, CH, ok};
+raraa_mgc_verify_handle_connect(Else) ->
+ {error, Else, ok}.
+
+%% Service Change verification
+-ifndef(megaco_hipe_special).
+raraa_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ raraa_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+raraa_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ (catch raraa_do_verify_service_change_req(AR, Mid));
+raraa_mgc_verify_service_change_req(Crap, _Mid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+raraa_do_verify_service_change_req(AR, Mid) ->
+ io:format("raraa_mgc_verify_service_change_req -> entry with"
+ "~n AR: ~p"
+ "~n Mid: ~p"
+ "~n", [AR, Mid]),
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [raraa_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+
+%% Notify Request verification
+-ifndef(megaco_hipe_special).
+raraa_mgc_verify_notify_req_fun() ->
+ fun(Req) ->
+ raraa_mgc_verify_notify_req(Req)
+ end.
+-endif.
+
+raraa_mgc_verify_notify_req({handle_trans_request, _, ?VERSION, [AR]}) ->
+ (catch raraa_mgc_do_verify_notify_req(AR));
+raraa_mgc_verify_notify_req(Crap) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+raraa_mgc_do_verify_notify_req(AR) ->
+ io:format("raraa_mgc_verify_notify_req -> entry with"
+ "~n AR: ~p"
+ "~n", [AR]),
+ {Cid, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ AckData = raraa,
+ Replies = [raraa_mgc_notify_reply_ar(Cid, Tid)],
+ Reply = {{handle_ack, AckData}, Replies},
+ {ok, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ throw({error, Err6, ErrReply6})
+ end.
+
+
+-ifndef(megaco_hipe_special).
+raraa_mgc_verify_handle_trans_ack_fun() ->
+ fun(Ack) ->
+ raraa_mgc_verify_handle_trans_ack(Ack)
+ end.
+-endif.
+
+raraa_mgc_verify_handle_trans_ack(
+ {handle_trans_ack, CH, ?VERSION, ok, raraa}) ->
+ io:format("raraa_mgc_verify_handle_trans_ack -> ok"
+ "~n CH: ~p"
+ "~n", [CH]),
+ {ok, CH, ok};
+raraa_mgc_verify_handle_trans_ack(Crap) ->
+ io:format("raraa_mgc_verify_handle_trans_ack -> unknown"
+ "~n Crap: ~p~n", [Crap]),
+ {error, Crap, ok}.
+
+
+%% Disconnect verification
+raraa_mgc_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, _R}) ->
+ {ok, CH, ok};
+raraa_mgc_verify_handle_disconnect(Else) ->
+ {error, Else, ok}.
+
+raraa_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ AR = cre_actionReply(Cid, [CR]),
+ AR.
+
+raraa_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(raraa_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(raraa_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(raraa_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, raraa_mg_verify_service_change_rep_msg, []}).
+-define(raraa_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ {?MODULE, raraa_mg_verify_notify_rep_msg, [TermId, TransId, ReqId, CtxId]}).
+-else.
+-define(raraa_mg_decode_msg_fun(Mod, Conf),
+ raraa_mg_decode_msg_fun(Mod, Conf)).
+-define(raraa_mg_encode_msg_fun(Mod, Conf),
+ raraa_mg_encode_msg_fun(Mod, Conf)).
+-define(raraa_mg_verify_service_change_rep_msg_fun(),
+ raraa_mg_verify_service_change_rep_msg_fun()).
+-define(raraa_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ raraa_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId)).
+-endif.
+
+raraa_mg_event_sequence(text, tcp) ->
+ DecodeFun = ?raraa_mg_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?raraa_mg_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mg"},
+ ServiceChangeReq = raraa_mg_service_change_request_msg(Mid, 1, 0),
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ TransId = 2,
+ ReqId = 1,
+ CtxId = 1,
+ NotifyReq = raraa_mg_notify_request_msg(Mid, TermId,
+ TransId, ReqId, CtxId),
+ TransAck = raraa_mg_trans_ack_msg(Mid, TransId),
+ ScrVerifyFun = ?raraa_mg_verify_service_change_rep_msg_fun(),
+ NrVerifyFun = ?raraa_mg_verify_notify_rep_msg_fun(TermId,
+ TransId, ReqId, CtxId),
+%% ScrVerifyFun = raraa_mg_verify_service_change_rep_msg_fun(),
+%% NrVerifyFun = raraa_mg_verify_notify_rep_msg_fun(TermId,
+%% TransId, ReqId, CtxId),
+ EvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, 2944},
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ScrVerifyFun, 10000}},
+ {send, "notify request", NotifyReq},
+ {expect_receive, "notify-reply", {NrVerifyFun, 10000}},
+ {send, "transaction-ack", TransAck},
+ {expect_nothing, 11000},
+ disconnect
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+raraa_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+raraa_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+raraa_mg_verify_service_change_rep_msg_fun() ->
+ fun(Msg) ->
+ (catch raraa_mg_verify_service_change_rep_msg(Msg))
+ end.
+-endif.
+
+raraa_mg_verify_service_change_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ SCRes =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = _TermID,
+ serviceChangeResult = ServChRes} ->
+ ServChRes;
+ _ ->
+ throw({error, {invalid_serviceChangeReply, SCR}})
+ end,
+ SCRP =
+ case SCRes of
+ {serviceChangeResParms, Parms} ->
+ Parms;
+ _ ->
+ throw({error, {invalid_serviceChangeResult, SCRes}})
+ end,
+ case SCRP of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _MgcMid} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeResParms, SCRP}}
+ end;
+raraa_mg_verify_service_change_rep_msg(Crap) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+raraa_mg_verify_notify_rep_msg_fun(TermId, TransId, Rid, Cid) ->
+ fun(Msg) ->
+ (catch raraa_mg_verify_notify_rep_msg(Msg,
+ TermId, TransId, Rid, Cid))
+ end.
+-endif.
+
+raraa_mg_verify_notify_rep_msg(#'MegacoMessage'{mess = Mess} = M,
+ TermId, TransId, Rid, Cid) ->
+ io:format("raraa_mg_verify_notify_rep_msg -> entry with"
+ "~n M: ~p"
+ "~n TermId: ~p"
+ "~n TransId: ~p"
+ "~n Rid: ~p"
+ "~n Cid: ~p"
+ "~n", [M, TermId, TransId, Rid, Cid]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = 'NULL',
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ NR =
+ case CR of
+ {notifyReply, NotifyReply} ->
+ NotifyReply;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ case NR of
+ #'NotifyReply'{terminationID = [TermId],
+ errorDescriptor = asn1_NOVALUE} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_notifyReply, NR}}
+ end;
+raraa_mg_verify_notify_rep_msg(Crap, _TermId, _TransId, _Rid, _Cid) ->
+ {error, {invalid_message, Crap}}.
+
+raraa_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+raraa_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = raraa_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+raraa_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+raraa_mg_notify_request_msg(Mid, TermId, TransId, Rid, Cid) ->
+ AR = raraa_mg_notify_request_ar(Rid, TermId, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+raraa_mg_trans_ack_msg(Mid, TransId) ->
+ TR = cre_transRespAck(cre_transAck(TransId)),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+request_and_reply_and_no_ack(suite) ->
+ [];
+request_and_reply_and_no_ack(doc) ->
+ ["This test case tests that megaco handles a failed three-way-handshake,"
+ " i.e. when the ack never arrives"];
+request_and_reply_and_no_ack(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, rarana),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = rarana_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = rarana_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_tcp_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_tcp_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+
+-ifdef(megaco_hipe_special).
+-define(rarana_mgc_verify_handle_connect_fun(),
+ {?MODULE, rarana_mgc_verify_handle_connect, []}).
+-define(rarana_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, rarana_mgc_verify_service_change_req, [Mid]}).
+-define(rarana_mgc_verify_notify_req_fun(),
+ {?MODULE, rarana_mgc_verify_notify_req, []}).
+-define(rarana_mgc_verify_handle_trans_ack_fun(),
+ {?MODULE, rarana_mgc_verify_handle_trans_ack, []}).
+-define(rarana_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, rarana_mgc_verify_handle_disconnect, []}).
+-else.
+-define(rarana_mgc_verify_handle_connect_fun(),
+ fun rarana_mgc_verify_handle_connect/1).
+-define(rarana_mgc_verify_service_change_req_fun(Mid),
+ rarana_mgc_verify_service_change_req_fun(Mid)).
+-define(rarana_mgc_verify_notify_req_fun(),
+ rarana_mgc_verify_notify_req_fun()).
+-define(rarana_mgc_verify_handle_trans_ack_fun(),
+ rarana_mgc_verify_handle_trans_ack_fun()).
+-define(rarana_mgc_verify_handle_disconnect_fun(),
+ fun rarana_mgc_verify_handle_disconnect/1).
+-endif.
+
+rarana_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ ConnectVerify = ?rarana_mgc_verify_handle_connect_fun(),
+ ScrVerify = ?rarana_mgc_verify_service_change_req_fun(Mid),
+ NrVerify = ?rarana_mgc_verify_notify_req_fun(),
+ AckVerify = ?rarana_mgc_verify_handle_trans_ack_fun(),
+ DiscoVerify = ?rarana_mgc_verify_handle_disconnect_fun(),
+%% ConnectVerify = fun rarana_mgc_verify_handle_connect/1,
+%% ScrVerify = rarana_mgc_verify_service_change_req_fun(Mid),
+%% NrVerify = rarana_mgc_verify_notify_request_fun(),
+%% AckVerify = rarana_mgc_verify_trans_ack_fun(),
+%% DiscoVerify = fun rarana_mgc_verify_handle_disconnect/1,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ {megaco_trace, max},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, sent_pending_limit, 100},
+ {megaco_update_user_info, reply_timer, 9000},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_conn_info, all},
+ {megaco_callback, handle_trans_request, ScrVerify},
+ {megaco_callback, handle_trans_request, NrVerify},
+ {megaco_callback, handle_trans_ack, AckVerify},
+ %% {megaco_callback, nocall, 8000},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+%% Connect verification
+rarana_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ {ok, CH, ok};
+rarana_mgc_verify_handle_connect(Else) ->
+ {error, Else, ok}.
+
+%% Service Change verification
+-ifndef(megaco_hipe_special).
+rarana_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ rarana_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+rarana_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ (catch rarana_do_verify_service_change_req(AR, Mid));
+rarana_mgc_verify_service_change_req(Crap, _Mid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+rarana_do_verify_service_change_req(AR, Mid) ->
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [rarana_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+
+%% Notify Request verification
+-ifndef(megaco_hipe_special).
+rarana_mgc_verify_notify_req_fun() ->
+ fun(Req) ->
+ rarana_mgc_verify_notify_req(Req)
+ end.
+-endif.
+
+rarana_mgc_verify_notify_req({handle_trans_request, _, ?VERSION, [AR]}) ->
+ (catch rarana_mgc_do_verify_notify_req(AR));
+rarana_mgc_verify_notify_req(Crap) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+rarana_mgc_do_verify_notify_req(AR) ->
+ {Cid, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ AckData = rarana,
+ Replies = [rarana_mgc_notify_reply_ar(Cid, Tid)],
+ Reply = {{handle_ack, AckData}, Replies},
+ {ok, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ throw({error, Err6, ErrReply6})
+ end.
+
+
+-ifndef(megaco_hipe_special).
+rarana_mgc_verify_handle_trans_ack_fun() ->
+ fun(Ack) ->
+ rarana_mgc_verify_handle_trans_ack(Ack)
+ end.
+-endif.
+
+rarana_mgc_verify_handle_trans_ack({handle_trans_ack, CH, ?VERSION,
+ {error, timeout}, rarana}) ->
+ io:format("rarana_mgc_verify_handle_trans_ack -> expected error: ok"
+ "~n CH: ~p"
+ "~n", [CH]),
+ {ok, CH, ok};
+rarana_mgc_verify_handle_trans_ack(Crap) ->
+ io:format("rarana_mgc_verify_trans_ack -> unknown"
+ "~n Crap: ~p~n", [Crap]),
+ {error, Crap, ok}.
+
+
+%% Disconnect verification
+rarana_mgc_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, _R}) ->
+ {ok, CH, ok};
+rarana_mgc_verify_handle_disconnect(Else) ->
+ {error, Else, ok}.
+
+rarana_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ AR = cre_actionReply(Cid, [CR]),
+ AR.
+
+rarana_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(rarana_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(rarana_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(rarana_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, rarana_mg_verify_service_change_rep_msg, []}).
+-define(rarana_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ {?MODULE, rarana_mg_verify_notify_rep_msg, [TermId, TransId, ReqId, CtxId]}).
+-else.
+-define(rarana_mg_decode_msg_fun(Mod, Conf),
+ rarana_mg_decode_msg_fun(Mod, Conf)).
+-define(rarana_mg_encode_msg_fun(Mod, Conf),
+ rarana_mg_encode_msg_fun(Mod, Conf)).
+-define(rarana_mg_verify_service_change_rep_msg_fun(),
+ rarana_mg_verify_service_change_rep_msg_fun()).
+-define(rarana_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ rarana_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId)).
+-endif.
+
+rarana_mg_event_sequence(text, tcp) ->
+ DecodeFun = ?rarana_mg_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?rarana_mg_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mg"},
+ ServiceChangeReq = rarana_mg_service_change_request_msg(Mid, 1, 0),
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ TransId = 2,
+ ReqId = 1,
+ CtxId = 1,
+ NotifyReq = rarana_mg_notify_request_msg(Mid, TermId,
+ TransId, ReqId, CtxId),
+ ScrVerifyFun = ?rarana_mg_verify_service_change_rep_msg_fun(),
+ NrVerifyFun = ?rarana_mg_verify_notify_rep_msg_fun(TermId,
+ TransId, ReqId, CtxId),
+%% ScrVerifyFun = rarana_mg_verify_service_change_rep_msg_fun(),
+%% NrVerifyFun = rarana_mg_verify_notify_rep_msg_fun(TermId,
+%% TransId, ReqId, CtxId),
+ EvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, 2944},
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ScrVerifyFun, 10000}},
+ {send, "notify request", NotifyReq},
+ {expect_receive, "notify-reply", {NrVerifyFun, 10000}},
+ {expect_nothing, 11000},
+ disconnect
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+rarana_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rarana_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rarana_mg_verify_service_change_rep_msg_fun() ->
+ fun(Msg) ->
+ (catch rarana_mg_verify_service_change_rep_msg(Msg))
+ end.
+-endif.
+
+rarana_mg_verify_service_change_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ SCRes =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = _TermID,
+ serviceChangeResult = ServChRes} ->
+ ServChRes;
+ _ ->
+ throw({error, {invalid_serviceChangeReply, SCR}})
+ end,
+ SCRP =
+ case SCRes of
+ {serviceChangeResParms, Parms} ->
+ Parms;
+ _ ->
+ throw({error, {invalid_serviceChangeResult, SCRes}})
+ end,
+ case SCRP of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _MgcMid} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeResParms, SCRP}}
+ end;
+rarana_mg_verify_service_change_rep_msg(Crap) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+rarana_mg_verify_notify_rep_msg_fun(TermId, TransId, Rid, Cid) ->
+ fun(Msg) ->
+ (catch rarana_mg_verify_notify_rep_msg(Msg,
+ TermId, TransId, Rid, Cid))
+ end.
+-endif.
+
+rarana_mg_verify_notify_rep_msg(#'MegacoMessage'{mess = Mess} = M,
+ TermId, TransId, Rid, Cid) ->
+ io:format("rarana_mg_verify_notify_rep_msg -> entry with"
+ "~n M: ~p"
+ "~n TermId: ~p"
+ "~n TransId: ~p"
+ "~n Rid: ~p"
+ "~n Cid: ~p"
+ "~n", [M, TermId, TransId, Rid, Cid]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = 'NULL',
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ NR =
+ case CR of
+ {notifyReply, NotifyReply} ->
+ NotifyReply;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ case NR of
+ #'NotifyReply'{terminationID = [TermId],
+ errorDescriptor = asn1_NOVALUE} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_notifyReply, NR}}
+ end;
+rarana_mg_verify_notify_rep_msg(Crap, _TermId, _TransId, _Rid, _Cid) ->
+ {error, {invalid_message, Crap}}.
+
+rarana_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+rarana_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = rarana_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+rarana_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+rarana_mg_notify_request_msg(Mid, TermId, TransId, Rid, Cid) ->
+ AR = rarana_mg_notify_request_ar(Rid, TermId, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+request_and_reply_and_late_ack(suite) ->
+ [];
+request_and_reply_and_late_ack(doc) ->
+ ["This test case tests that megaco handles three-way-handshake "
+ "when the ack is late (and requeire a retransmission)"];
+request_and_reply_and_late_ack(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, rarala),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = rarala_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = rarala_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_tcp_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_tcp_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+
+-ifdef(megaco_hipe_special).
+-define(rarala_mgc_verify_handle_connect_fun(),
+ {?MODULE, rarala_mgc_verify_handle_connect, []}).
+-define(rarala_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, rarala_mgc_verify_service_change_req, [Mid]}).
+-define(rarala_mgc_verify_notify_req_fun(),
+ {?MODULE, rarala_mgc_verify_notify_req, []}).
+-define(rarala_mgc_verify_handle_trans_ack_fun(),
+ {?MODULE, rarala_mgc_verify_handle_trans_ack, []}).
+-define(rarala_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, rarala_mgc_verify_handle_disconnect, []}).
+-else.
+-define(rarala_mgc_verify_handle_connect_fun(),
+ fun rarala_mgc_verify_handle_connect/1).
+-define(rarala_mgc_verify_service_change_req_fun(Mid),
+ rarala_mgc_verify_service_change_req_fun(Mid)).
+-define(rarala_mgc_verify_notify_req_fun(),
+ rarala_mgc_verify_notify_req_fun()).
+-define(rarala_mgc_verify_handle_trans_ack_fun(),
+ rarala_mgc_verify_handle_trans_ack_fun()).
+-define(rarala_mgc_verify_handle_disconnect_fun(),
+ fun rarala_mgc_verify_handle_disconnect/1).
+-endif.
+
+rarala_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ RepTmr = #megaco_incr_timer{wait_for = 3000,
+ factor = 1,
+ incr = 0,
+ max_retries = 2
+ },
+ ConnectVerify = ?rarala_mgc_verify_handle_connect_fun(),
+ ScrVerify = ?rarala_mgc_verify_service_change_req_fun(Mid),
+ NrVerify = ?rarala_mgc_verify_notify_req_fun(),
+ AckVerify = ?rarala_mgc_verify_handle_trans_ack_fun(),
+ DiscoVerify = ?rarala_mgc_verify_handle_disconnect_fun(),
+%% ConnectVerify = fun rarala_mgc_verify_handle_connect/1,
+%% ScrVerify = rarala_mgc_verify_service_change_req_fun(Mid),
+%% NrVerify = rarala_mgc_verify_notify_request_fun(),
+%% AckVerify = rarala_mgc_verify_trans_ack_fun(),
+%% DiscoVerify = fun rarala_mgc_verify_handle_disconnect/1,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ {megaco_trace, max},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, sent_pending_limit, 100},
+ {megaco_update_user_info, reply_timer, RepTmr},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_conn_info, all},
+ {megaco_callback, handle_trans_request, ScrVerify},
+ {megaco_callback, handle_trans_request, NrVerify},
+ {megaco_callback, handle_trans_ack, AckVerify},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+%% Connect verification
+rarala_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ {ok, CH, ok};
+rarala_mgc_verify_handle_connect(Else) ->
+ {error, Else, ok}.
+
+%% Service Change verification
+-ifndef(megaco_hipe_special).
+rarala_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ rarala_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+rarala_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ (catch rarala_do_verify_service_change_req(AR, Mid));
+rarala_mgc_verify_service_change_req(Crap, _Mid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+rarala_do_verify_service_change_req(AR, Mid) ->
+ io:format("rarala_mgc_do_verify_service_change_req -> entry with"
+ "~n AR: ~p"
+ "~n Mid: ~p"
+ "~n", [AR, Mid]),
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [rarala_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+
+%% Notify Request verification
+-ifndef(megaco_hipe_special).
+rarala_mgc_verify_notify_req_fun() ->
+ fun(Req) ->
+ rarala_mgc_verify_notify_req(Req)
+ end.
+-endif.
+
+rarala_mgc_verify_notify_req({handle_trans_request, _, ?VERSION, [AR]}) ->
+ (catch rarala_mgc_do_verify_notify_req(AR));
+rarala_mgc_verify_notify_req(Crap) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+rarala_mgc_do_verify_notify_req(AR) ->
+ io:format("rarala_mgc_do_verify_notify_req -> entry with"
+ "~n AR: ~p"
+ "~n", [AR]),
+ {Cid, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ AckData = rarala,
+ Replies = [rarala_mgc_notify_reply_ar(Cid, Tid)],
+ Reply = {{handle_ack, AckData}, Replies},
+ {ok, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ throw({error, Err6, ErrReply6})
+ end.
+
+
+-ifndef(megaco_hipe_special).
+rarala_mgc_verify_handle_trans_ack_fun() ->
+ fun(Ack) ->
+ rarala_mgc_verify_handle_trans_ack(Ack)
+ end.
+-endif.
+
+rarala_mgc_verify_handle_trans_ack(
+ {handle_trans_ack, CH, ?VERSION, ok, rarala}) ->
+ io:format("rarala_mgc_verify_handle_trans_ack -> ok"
+ "~n CH: ~p"
+ "~n", [CH]),
+ {ok, CH, ok};
+rarala_mgc_verify_handle_trans_ack(Crap) ->
+ io:format("rarala_mgc_verify_handle_trans_ack -> unknown"
+ "~n Crap: ~p~n", [Crap]),
+ {error, Crap, ok}.
+
+
+%% Disconnect verification
+rarala_mgc_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, _R}) ->
+ {ok, CH, ok};
+rarala_mgc_verify_handle_disconnect(Else) ->
+ {error, Else, ok}.
+
+rarala_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ AR = cre_actionReply(Cid, [CR]),
+ AR.
+
+rarala_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(rarala_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(rarala_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(rarala_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, rarala_mg_verify_service_change_rep_msg, []}).
+-define(rarala_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ {?MODULE, rarala_mg_verify_notify_rep_msg, [TermId, TransId, ReqId, CtxId]}).
+-else.
+-define(rarala_mg_decode_msg_fun(Mod, Conf),
+ rarala_mg_decode_msg_fun(Mod, Conf)).
+-define(rarala_mg_encode_msg_fun(Mod, Conf),
+ rarala_mg_encode_msg_fun(Mod, Conf)).
+-define(rarala_mg_verify_service_change_rep_msg_fun(),
+ rarala_mg_verify_service_change_rep_msg_fun()).
+-define(rarala_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ rarala_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId)).
+-endif.
+
+rarala_mg_event_sequence(text, tcp) ->
+ DecodeFun = ?rarala_mg_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?rarala_mg_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mg"},
+ ServiceChangeReq = rarala_mg_service_change_request_msg(Mid, 1, 0),
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ TransId = 2,
+ ReqId = 1,
+ CtxId = 1,
+ NotifyReq = rarala_mg_notify_request_msg(Mid, TermId,
+ TransId, ReqId, CtxId),
+ TransAck = rarala_mg_trans_ack_msg(Mid, TransId),
+ ScrVerifyFun = ?rarala_mg_verify_service_change_rep_msg_fun(),
+ NrVerifyFun = ?rarala_mg_verify_notify_rep_msg_fun(TermId,
+ TransId, ReqId, CtxId),
+%% ScrVerifyFun = rarala_mg_verify_service_change_rep_msg_fun(),
+%% NrVerifyFun = rarala_mg_verify_notify_rep_msg_fun(TermId,
+%% TransId, ReqId, CtxId),
+ EvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, 2944},
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ScrVerifyFun, 10000}},
+ {send, "notify request", NotifyReq},
+ {expect_receive, "notify-reply", {NrVerifyFun, 4000}},
+ {expect_receive, "notify-reply", {NrVerifyFun, 4000}},
+ {expect_receive, "notify-reply", {NrVerifyFun, 4000}},
+ {send, "transaction-ack", TransAck},
+ {expect_nothing, 11000},
+ disconnect
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+rarala_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rarala_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rarala_mg_verify_service_change_rep_msg_fun() ->
+ fun(Msg) ->
+ (catch rarala_mg_verify_service_change_rep_msg(Msg))
+ end.
+-endif.
+
+rarala_mg_verify_service_change_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ SCRes =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = _TermID,
+ serviceChangeResult = ServChRes} ->
+ ServChRes;
+ _ ->
+ throw({error, {invalid_serviceChangeReply, SCR}})
+ end,
+ SCRP =
+ case SCRes of
+ {serviceChangeResParms, Parms} ->
+ Parms;
+ _ ->
+ throw({error, {invalid_serviceChangeResult, SCRes}})
+ end,
+ case SCRP of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _MgcMid} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeResParms, SCRP}}
+ end;
+rarala_mg_verify_service_change_rep_msg(Crap) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+rarala_mg_verify_notify_rep_msg_fun(TermId, TransId, Rid, Cid) ->
+ fun(Msg) ->
+ (catch rarala_mg_verify_notify_rep_msg(Msg,
+ TermId, TransId, Rid, Cid))
+ end.
+-endif.
+
+rarala_mg_verify_notify_rep_msg(#'MegacoMessage'{mess = Mess} = M,
+ TermId, TransId, Rid, Cid) ->
+ io:format("rarala_mg_verify_notify_rep_msg -> entry with"
+ "~n M: ~p"
+ "~n TermId: ~p"
+ "~n TransId: ~p"
+ "~n Rid: ~p"
+ "~n Cid: ~p"
+ "~n", [M, TermId, TransId, Rid, Cid]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = 'NULL',
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ NR =
+ case CR of
+ {notifyReply, NotifyReply} ->
+ NotifyReply;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ case NR of
+ #'NotifyReply'{terminationID = [TermId],
+ errorDescriptor = asn1_NOVALUE} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_notifyReply, NR}}
+ end;
+rarala_mg_verify_notify_rep_msg(Crap, _TermId, _TransId, _Rid, _Cid) ->
+ {error, {invalid_message, Crap}}.
+
+rarala_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+rarala_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = rarala_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+rarala_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+rarala_mg_notify_request_msg(Mid, TermId, TransId, Rid, Cid) ->
+ AR = rarala_mg_notify_request_ar(Rid, TermId, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+rarala_mg_trans_ack_msg(Mid, TransId) ->
+ TR = cre_transRespAck(cre_transAck(TransId)),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+trans_req_and_reply_and_req(suite) ->
+ [];
+trans_req_and_reply_and_req(doc) ->
+ ["Receive a transaction request, send a reply (discard ack)"
+ "then receive the same reply again after the timeout. "
+ "The MGC is a megaco instance (megaco event sequence) and the "
+ "MG is emulated (tcp event sequence)"];
+trans_req_and_reply_and_req(Config) when is_list(Config) ->
+ %% <CONDITIONAL-SKIP>
+ Skippable = [{unix, [darwin, linux]}],
+ Condition = fun() -> ?OS_BASED_SKIP(Skippable) end,
+ ?NON_PC_TC_MAYBE_SKIP(Config, Condition),
+ %% </CONDITIONAL-SKIP>
+
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, trarar),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = trarar_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = trarar_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_tcp_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId], 60000),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_tcp_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(trarar_mgc_verify_handle_connect_fun(),
+ {?MODULE, trarar_mgc_verify_handle_connect, []}).
+-define(trarar_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, trarar_mgc_verify_service_change_req, [Mid]}).
+-define(trarar_mgc_verify_notify_req_fun(Cid),
+ {?MODULE, trarar_mgc_verify_notify_req, [Cid]}).
+-define(trarar_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, trarar_mgc_verify_handle_disconnect, []}).
+-else.
+-define(trarar_mgc_verify_handle_connect_fun(),
+ fun trarar_mgc_verify_handle_connect/1).
+-define(trarar_mgc_verify_service_change_req_fun(Mid),
+ trarar_mgc_verify_service_change_req_fun(Mid)).
+-define(trarar_mgc_verify_notify_req_fun(Cid),
+ trarar_mgc_verify_notify_req_fun(Cid)).
+-define(trarar_mgc_verify_handle_disconnect_fun(),
+ fun trarar_mgc_verify_handle_disconnect/1).
+-endif.
+
+trarar_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+%% Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+%% ReqTmr = #megaco_incr_timer{wait_for = 500,
+%% factor = 1,
+%% max_retries = 1},
+ ConnectVerify = ?trarar_mgc_verify_handle_connect_fun(),
+ ServiceChangeReqVerify = ?trarar_mgc_verify_service_change_req_fun(Mid),
+ NotifyReqVerify1 = ?trarar_mgc_verify_notify_req_fun(1),
+ NotifyReqVerify2 = ?trarar_mgc_verify_notify_req_fun(2),
+ NotifyReqVerify3 = ?trarar_mgc_verify_notify_req_fun(3),
+ NotifyReqVerify4 = ?trarar_mgc_verify_notify_req_fun(4),
+ DiscoVerify = ?trarar_mgc_verify_handle_disconnect_fun(),
+%% ConnectVerify = fun trarar_mgc_verify_handle_connect/1,
+%% ServiceChangeReqVerify = trarar_mgc_verify_service_change_req_fun(Mid),
+%% NotifyReqVerify1 = trarar_mgc_verify_notify_request_fun(1),
+%% NotifyReqVerify2 = trarar_mgc_verify_notify_request_fun(2),
+%% NotifyReqVerify3 = trarar_mgc_verify_notify_request_fun(3),
+%% NotifyReqVerify4 = trarar_mgc_verify_notify_request_fun(4),
+%% DiscoVerify = fun trarar_mgc_verify_handle_disconnect/1,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, reply_timer, 2000},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_request, ServiceChangeReqVerify},
+ {megaco_callback, handle_trans_request, NotifyReqVerify1},
+ {megaco_callback, handle_trans_request, NotifyReqVerify2},
+ {megaco_update_conn_info, reply_timer, 4000},
+ {megaco_callback, handle_trans_request, NotifyReqVerify3},
+ {megaco_callback, handle_trans_request, NotifyReqVerify4},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+
+trarar_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("trarar_mgc_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+trarar_mgc_verify_handle_connect(Else) ->
+ io:format("trarar_mgc_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+-ifndef(megaco_hipe_special).
+trarar_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ trarar_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+trarar_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ (catch trarar_mgc_do_verify_service_change_req(AR, Mid));
+trarar_mgc_verify_service_change_req(Crap, _Mid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+trarar_mgc_do_verify_service_change_req(AR, Mid) ->
+ io:format("trarar_mgc_verify_service_change_req -> ok"
+ "~n AR: ~p"
+ "~n Mid: ~p"
+ "~n", [AR, Mid]),
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [trarar_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+-ifndef(megaco_hipe_special).
+trarar_mgc_verify_notify_req_fun(Cid) ->
+ fun(Req) ->
+ trarar_mgc_verify_notify_req(Req, Cid)
+ end.
+-endif.
+
+trarar_mgc_verify_notify_req({handle_trans_request, _, ?VERSION, [AR]}, Cid) ->
+ (catch trarar_mgc_do_verify_notify_req(AR, Cid));
+trarar_mgc_verify_notify_req(Crap, _Cid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+trarar_mgc_do_verify_notify_req(AR, Cid) ->
+ io:format("trarar_mgc_do_verify_notify_req -> entry with"
+ "~n AR: ~p"
+ "~n Cid: ~p"
+ "~n", [AR, Cid]),
+ {ContextID, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} when (CtxID == Cid) ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ Replies = [trarar_mgc_notify_reply_ar(ContextID, Tid)],
+ Reply = {discard_ack, Replies},
+ {ok, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ {error, Err6, ErrReply6}
+ end.
+
+trarar_mgc_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, R}) ->
+ io:format("trarar_mgc_verify_handle_disconnect -> ok"
+ "~n CH: ~p"
+ "~n R: ~p"
+ "~n", [CH, R]),
+ {ok, CH, ok};
+trarar_mgc_verify_handle_disconnect(Else) ->
+ io:format("trarar_mgc_verify_handle_disconnect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+trarar_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ cre_actionReply(Cid, [CR]).
+
+trarar_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+%% trarar_mgc_notify_reply(Mid, TransId, Cid, TermId) ->
+%% AR = trarar_mgc_notify_reply_ar(Cid, TermId),
+%% TRes = cre_transResult([AR]),
+%% TR = cre_transReply(TransId, TRes),
+%% Trans = cre_transaction(TR),
+%% Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+%% cre_megacoMessage(Mess).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(trarar_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(trarar_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(trarar_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, trarar_mg_verify_service_change_rep_msg, []}).
+-define(trarar_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ {?MODULE, trarar_mg_verify_notify_rep_msg, [TermId, TransId, ReqId, CtxId]}).
+-else.
+-define(trarar_mg_decode_msg_fun(Mod, Conf),
+ trarar_mg_decode_msg_fun(Mod, Conf)).
+-define(trarar_mg_encode_msg_fun(Mod, Conf),
+ trarar_mg_encode_msg_fun(Mod, Conf)).
+-define(trarar_mg_verify_service_change_rep_msg_fun(),
+ trarar_mg_verify_service_change_rep_msg_fun()).
+-define(trarar_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ trarar_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId)).
+-endif.
+
+trarar_mg_event_sequence(text, tcp) ->
+ DecodeFun = ?trarar_mg_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?trarar_mg_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mg"},
+ ServiceChangeReq = trarar_mg_service_change_request_msg(Mid, 1, 0),
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq1 =
+ trarar_mg_notify_request_msg(Mid, TermId, 2, 1, 1),
+ NotifyReq2 =
+ trarar_mg_notify_request_msg(Mid, TermId, 2, 2, 2),
+ NotifyReq3 =
+ trarar_mg_notify_request_msg(Mid, TermId, 2, 3, 3),
+ NotifyReq4 =
+ trarar_mg_notify_request_msg(Mid, TermId, 2, 4, 4),
+ ScrVerifyFun = ?trarar_mg_verify_service_change_rep_msg_fun(),
+ NrVerifyFun1 =
+ ?trarar_mg_verify_notify_rep_msg_fun(TermId, 2, 1, 1),
+ NrVerifyFun2 =
+ ?trarar_mg_verify_notify_rep_msg_fun(TermId, 2, 2, 2),
+ NrVerifyFun3 =
+ ?trarar_mg_verify_notify_rep_msg_fun(TermId, 2, 3, 3),
+ NrVerifyFun4 =
+ ?trarar_mg_verify_notify_rep_msg_fun(TermId, 2, 4, 4),
+%% ScrVerifyFun = trarar_mg_verify_service_change_rep_msg_fun(),
+%% NrVerifyFun1 =
+%% trarar_mg_verify_notify_rep_msg_fun(TermId, 2, 1, 1),
+%% NrVerifyFun2 =
+%% trarar_mg_verify_notify_rep_msg_fun(TermId, 2, 2, 2),
+%% NrVerifyFun3 =
+%% trarar_mg_verify_notify_rep_msg_fun(TermId, 2, 3, 3),
+%% NrVerifyFun4 =
+%% trarar_mg_verify_notify_rep_msg_fun(TermId, 2, 4, 4),
+ EvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, 2944},
+
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ScrVerifyFun, 10000}},
+
+ %% the original setting for reply timer is 2000
+ {send, "notify request 1", NotifyReq1},
+ {expect_receive, "notify-reply 1", {NrVerifyFun1, 2500}},
+ {sleep, 1000},
+ {send, "notify request 2", NotifyReq2},
+ {expect_receive, "notify-reply 2 (resend of 1)", {NrVerifyFun1, 2500}},
+ {sleep, 3000}, % reply timer is set to 2000
+ {send, "notify request 3 (same as 2)", NotifyReq2},
+ {expect_receive, "notify-reply 3", {NrVerifyFun2, 2500}},
+
+ %% reply timer is now set to 4000 but previous was 2000
+ %% so, 3000 is enough to let the timer running with the
+ %% previous settings (2000) to time out
+ {sleep, 3000},
+ {send, "notify request 4", NotifyReq3},
+ {expect_receive, "notify-reply 4", {NrVerifyFun3, 4500}},
+ {sleep, 5000},
+ {send, "notify request 5", NotifyReq4},
+ {expect_receive, "notify-reply 5", {NrVerifyFun4, 4500}},
+
+ {expect_nothing, 5000},
+ disconnect
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+trarar_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+trarar_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+trarar_mg_verify_service_change_rep_msg_fun() ->
+ fun(Msg) ->
+ (catch trarar_mg_verify_service_change_rep_msg(Msg))
+ end.
+-endif.
+
+trarar_mg_verify_service_change_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ SCRes =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = _TermID,
+ serviceChangeResult = ServChRes} ->
+ ServChRes;
+ _ ->
+ throw({error, {invalid_serviceChangeReply, SCR}})
+ end,
+ SCRP =
+ case SCRes of
+ {serviceChangeResParms, Parms} ->
+ Parms;
+ _ ->
+ throw({error, {invalid_serviceChangeResult, SCRes}})
+ end,
+ case SCRP of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _MgcMid} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeResParms, SCRP}}
+ end;
+trarar_mg_verify_service_change_rep_msg(Crap) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+trarar_mg_verify_notify_rep_msg_fun(TermId, TransId, Rid, Cid) ->
+ fun(Msg) ->
+ (catch trarar_mg_verify_notify_rep_msg(Msg,
+ TermId, TransId, Rid, Cid))
+ end.
+-endif.
+
+trarar_mg_verify_notify_rep_msg(#'MegacoMessage'{mess = Mess} = M,
+ TermId, TransId, Rid, Cid) ->
+ io:format("trarar_mg_verify_notify_rep_msg -> entry with"
+ "~n M: ~p"
+ "~n TermId: ~p"
+ "~n TransId: ~p"
+ "~n Rid: ~p"
+ "~n Cid: ~p"
+ "~n", [M, TermId, TransId, Rid, Cid]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ io:format("trarar_mg_verify_notify_rep_msg -> "
+ "~n Body: ~p"
+ "~n", [Body]),
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ io:format("trarar_mg_verify_notify_rep_msg -> "
+ "~n Trans: ~p"
+ "~n", [Trans]),
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ io:format("trarar_mg_verify_notify_rep_msg -> "
+ "~n TR: ~p"
+ "~n", [TR]),
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ io:format("trarar_mg_verify_notify_rep_msg -> "
+ "~n TRes: ~p"
+ "~n", [TRes]),
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ io:format("trarar_mg_verify_notify_rep_msg -> "
+ "~n AR: ~p"
+ "~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{contextId = Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ NR =
+ case CR of
+ {notifyReply, NotifyReply} ->
+ NotifyReply;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ case NR of
+ #'NotifyReply'{terminationID = [TermId],
+ errorDescriptor = asn1_NOVALUE} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_notifyReply, NR}}
+ end;
+trarar_mg_verify_notify_rep_msg(Crap, _TermId, _TransId, _Rid, _Cid) ->
+ {error, {invalid_message, Crap}}.
+
+trarar_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+trarar_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = trarar_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+trarar_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+trarar_mg_notify_request_msg(Mid, TermId, TransId, Rid, Cid) ->
+ AR = trarar_mg_notify_request_ar(Rid, TermId, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+%% trarar_mg_trans_ack_msg(Mid, TransId) ->
+%% TR = cre_transRespAck(cre_transAck(TransId)),
+%% Trans = cre_transaction(TR),
+%% Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+%% cre_megacoMessage(Mess).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+pending_ack_plain(suite) ->
+ [];
+pending_ack_plain(doc) ->
+ ["Receive a request and handle it as a long request, "
+ "i.e. return with {pending, _} and expect a call to the "
+ "long request function"];
+pending_ack_plain(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, pap),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = pap_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = pap_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_tcp_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_tcp_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+
+-ifdef(megaco_hipe_special).
+-define(pap_mgc_verify_handle_connect_fun(),
+ {?MODULE, pap_mgc_verify_handle_connect, []}).
+-define(pap_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, pap_mgc_verify_service_change_req, [Mid]}).
+-define(pap_mgc_verify_notify_req_fun(),
+ {?MODULE, pap_mgc_verify_notify_req, []}).
+-define(pap_mgc_verify_notify_req_long_fun(),
+ {?MODULE, pap_mgc_verify_notify_req_long, []}).
+-define(pap_mgc_verify_handle_trans_ack_fun(),
+ {?MODULE, pap_mgc_verify_handle_trans_ack, []}).
+-define(pap_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, pap_mgc_verify_handle_disconnect, []}).
+-else.
+-define(pap_mgc_verify_handle_connect_fun(),
+ fun pap_mgc_verify_handle_connect/1).
+-define(pap_mgc_verify_service_change_req_fun(Mid),
+ pap_mgc_verify_service_change_req_fun(Mid)).
+-define(pap_mgc_verify_notify_req_fun(),
+ pap_mgc_verify_notify_req_fun()).
+-define(pap_mgc_verify_notify_req_long_fun(),
+ pap_mgc_verify_notify_req_long_fun()).
+-define(pap_mgc_verify_handle_trans_ack_fun(),
+ pap_mgc_verify_handle_trans_ack_fun()).
+-define(pap_mgc_verify_handle_disconnect_fun(),
+ fun pap_mgc_verify_handle_disconnect/1).
+-endif.
+
+pap_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ ConnectVerify = ?pap_mgc_verify_handle_connect_fun(),
+ ScrVerify = ?pap_mgc_verify_service_change_req_fun(Mid),
+ NrVerify1 = ?pap_mgc_verify_notify_req_fun(),
+ NrVerify2 = ?pap_mgc_verify_notify_req_long_fun(),
+ AckVerify = ?pap_mgc_verify_handle_trans_ack_fun(),
+ DiscoVerify = ?pap_mgc_verify_handle_disconnect_fun(),
+%% ConnectVerify = fun pap_mgc_verify_handle_connect/1,
+%% ScrVerify = pap_mgc_verify_service_change_req_fun(Mid),
+%% NrVerify1 = pap_mgc_verify_notify_request_fun(),
+%% NrVerify2 = pap_mgc_verify_notify_request_long_fun(),
+%% AckVerify = pap_mgc_verify_trans_ack_fun(),
+%% DiscoVerify = fun pap_mgc_verify_handle_disconnect/1,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ {megaco_trace, max},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, sent_pending_limit, 100},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_conn_info, all},
+ {megaco_callback, handle_trans_request, ScrVerify},
+ {megaco_callback, handle_trans_request, NrVerify1},
+ {megaco_callback, handle_trans_long_request, NrVerify2},
+ {megaco_callback, handle_trans_ack, AckVerify},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+%% Connect verification
+pap_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ {ok, CH, ok};
+pap_mgc_verify_handle_connect(Else) ->
+ {error, Else, ok}.
+
+%% Service Change verification
+-ifndef(megaco_hipe_special).
+pap_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ pap_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+pap_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ (catch pap_do_verify_service_change_req(AR, Mid));
+pap_mgc_verify_service_change_req(Crap, _Mid) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+pap_do_verify_service_change_req(AR, Mid) ->
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [pap_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+
+%% Notify Request verification
+-ifndef(megaco_hipe_special).
+pap_mgc_verify_notify_req_fun() ->
+ fun(Req) ->
+ pap_mgc_verify_notify_req(Req)
+ end.
+-endif.
+
+pap_mgc_verify_notify_req({handle_trans_request, _, ?VERSION, [AR]}) ->
+ io:format("pap_mgc_verify_notify_req -> entry with"
+ "~n AR: ~p"
+ "~n", [AR]),
+ Reply = {pending, AR},
+ {ok, AR, Reply};
+pap_mgc_verify_notify_req(Crap) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+%% Notify Request verification
+-ifndef(megaco_hipe_special).
+pap_mgc_verify_notify_req_long_fun() ->
+ fun(Req) ->
+ pap_mgc_verify_notify_req_long(Req)
+ end.
+-endif.
+
+pap_mgc_verify_notify_req_long(
+ {handle_trans_long_request, _, ?VERSION, AR}) ->
+ (catch pap_mgc_do_verify_notify_req_long(AR));
+pap_mgc_verify_notify_req_long(Crap) ->
+ ED = cre_ErrDesc(Crap),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+pap_mgc_do_verify_notify_req_long(AR) ->
+ io:format("pap_mgc_do_verify_notify_req_long -> entry with"
+ "~n AR: ~p"
+ "~n", [AR]),
+ {Cid, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ AckData = pap,
+ Replies = [pap_mgc_notify_reply_ar(Cid, Tid)],
+ Reply = {{handle_ack, AckData}, Replies},
+ {ok, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ throw({error, Err6, ErrReply6})
+ end.
+
+
+-ifndef(megaco_hipe_special).
+pap_mgc_verify_handle_trans_ack_fun() ->
+ fun(Ack) ->
+ pap_mgc_verify_handle_trans_ack(Ack)
+ end.
+-endif.
+
+pap_mgc_verify_handle_trans_ack({handle_trans_ack, CH, ?VERSION, ok, pap}) ->
+ io:format("pap_mgc_verify_handle_trans_ack -> ok"
+ "~n CH: ~p"
+ "~n", [CH]),
+ {ok, CH, ok};
+pap_mgc_verify_handle_trans_ack(Crap) ->
+ io:format("pap_mgc_verify_handle_trans_ack -> unknown"
+ "~n Crap: ~p~n", [Crap]),
+ {error, Crap, ok}.
+
+
+%% Disconnect verification
+pap_mgc_verify_handle_disconnect({handle_disconnect, CH, ?VERSION, _R}) ->
+ {ok, CH, ok};
+pap_mgc_verify_handle_disconnect(Else) ->
+ {error, Else, ok}.
+
+pap_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ AR = cre_actionReply(Cid, [CR]),
+ AR.
+
+pap_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(pap_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(pap_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(pap_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, pap_mg_verify_service_change_rep_msg, []}).
+-define(pap_mg_verify_pending_msg_fun(TransId),
+ {?MODULE, pap_mg_verify_pending_msg, [TransId]}).
+-define(pap_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ {?MODULE, pap_mg_verify_notify_rep_msg, [TermId, TransId, ReqId, CtxId]}).
+-else.
+-define(pap_mg_decode_msg_fun(Mod, Conf),
+ pap_mg_decode_msg_fun(Mod, Conf)).
+-define(pap_mg_encode_msg_fun(Mod, Conf),
+ pap_mg_encode_msg_fun(Mod, Conf)).
+-define(pap_mg_verify_service_change_rep_msg_fun(),
+ pap_mg_verify_service_change_rep_msg_fun()).
+-define(pap_mg_verify_pending_msg_fun(TransId),
+ pap_mg_verify_pending_msg_fun(TransId)).
+-define(pap_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ pap_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId)).
+-endif.
+
+pap_mg_event_sequence(text, tcp) ->
+ DecodeFun = ?pap_mg_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?pap_mg_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mg"},
+ ServiceChangeReq = pap_mg_service_change_request_msg(Mid, 1, 0),
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ TransId = 2,
+ ReqId = 1,
+ CtxId = 1,
+ NotifyReq =
+ pap_mg_notify_request_msg(Mid, TermId, TransId, ReqId, CtxId),
+ TransAck = pap_mg_trans_ack_msg(Mid, TransId),
+ ScrVerifyFun = ?pap_mg_verify_service_change_rep_msg_fun(),
+ PendingVerifyFun =
+ ?pap_mg_verify_pending_msg_fun(TransId),
+ NrVerifyFun =
+ ?pap_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+%% ScrVerifyFun = pap_mg_verify_service_change_rep_msg_fun(),
+%% PendingVerifyFun =
+%% pap_mg_verify_pending_msg_fun(TransId),
+%% NrVerifyFun =
+%% pap_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId),
+ EvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, 2944},
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ScrVerifyFun, 10000}},
+ {send, "notify request", NotifyReq},
+ {expect_receive, "pending", {PendingVerifyFun, 4000}},
+ {expect_receive, "notify-reply", {NrVerifyFun, 4000}},
+ {send, "transaction-ack", TransAck},
+ {expect_nothing, 11000},
+ disconnect
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+pap_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+pap_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+pap_mg_verify_service_change_rep_msg_fun() ->
+ fun(Msg) ->
+ (catch pap_mg_verify_service_change_rep_msg(Msg))
+ end.
+-endif.
+
+pap_mg_verify_service_change_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ SCRes =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = _TermID,
+ serviceChangeResult = ServChRes} ->
+ ServChRes;
+ _ ->
+ throw({error, {invalid_serviceChangeReply, SCR}})
+ end,
+ SCRP =
+ case SCRes of
+ {serviceChangeResParms, Parms} ->
+ Parms;
+ _ ->
+ throw({error, {invalid_serviceChangeResult, SCRes}})
+ end,
+ case SCRP of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _MgcMid} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeResParms, SCRP}}
+ end;
+pap_mg_verify_service_change_rep_msg(Crap) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+pap_mg_verify_pending_msg_fun(TransId) ->
+ fun(Msg) ->
+ (catch pap_mg_verify_pending_msg(Msg, TransId))
+ end.
+-endif.
+
+pap_mg_verify_pending_msg(#'MegacoMessage'{mess = Mess} = M, TransId) ->
+ io:format("pap_mg_verify_pending_msg -> entry with"
+ "~n M: ~p"
+ "~n TransId: ~p"
+ "~n", [M, TransId]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TP =
+ case Trans of
+ {transactionPending, TransPending} ->
+ TransPending;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ case TP of
+ #'TransactionPending'{transactionId = TransId} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_transactionPending, TP}}
+ end;
+pap_mg_verify_pending_msg(Crap, _TransId) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+pap_mg_verify_notify_rep_msg_fun(TermId, TransId, Rid, Cid) ->
+ fun(Msg) ->
+ (catch pap_mg_verify_notify_rep_msg(Msg,
+ TermId, TransId, Rid, Cid))
+ end.
+-endif.
+
+pap_mg_verify_notify_rep_msg(#'MegacoMessage'{mess = Mess} = M,
+ TermId, TransId, Rid, Cid) ->
+ io:format("pap_mg_verify_notify_rep_msg -> entry with"
+ "~n M: ~p"
+ "~n TermId: ~p"
+ "~n TransId: ~p"
+ "~n Rid: ~p"
+ "~n Cid: ~p"
+ "~n", [M, TermId, TransId, Rid, Cid]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = 'NULL',
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ NR =
+ case CR of
+ {notifyReply, NotifyReply} ->
+ NotifyReply;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ case NR of
+ #'NotifyReply'{terminationID = [TermId],
+ errorDescriptor = asn1_NOVALUE} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_notifyReply, NR}}
+ end;
+pap_mg_verify_notify_rep_msg(Crap, _TermId, _TransId, _Rid, _Cid) ->
+ {error, {invalid_message, Crap}}.
+
+pap_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+pap_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = pap_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+pap_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+pap_mg_notify_request_msg(Mid, TermId, TransId, Rid, Cid) ->
+ AR = pap_mg_notify_request_ar(Rid, TermId, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+pap_mg_trans_ack_msg(Mid, TransId) ->
+ TR = cre_transRespAck(cre_transAck(TransId)),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+request_and_pending_and_late_reply(suite) ->
+ [];
+request_and_pending_and_late_reply(doc) ->
+ ["Receive a request and handle it as a long request, "
+ "i.e. return with {pending, _}. Then, expect the sender "
+ "to keep re-sending the request until the reply is sent."];
+request_and_pending_and_late_reply(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, rapalr),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_tcp_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = rapalr_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_tcp_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = rapalr_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_tcp_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+
+-ifdef(megaco_hipe_special).
+-define(rapalr_mgc_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(rapalr_mgc_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(rapalr_mgc_verify_service_change_req_msg_fun(),
+ {?MODULE, rapalr_mgc_verify_service_change_req_msg, []}).
+-define(rapalr_mgc_verify_notify_req_msg_fun(TermId, TransId, ReqId, CtxId),
+ {?MODULE, rapalr_mgc_verify_notify_req_msg, [TermId, TransId, ReqId, CtxId]}).
+-define(rapalr_mgc_verify_trans_ack_msg_fun(TransId),
+ {?MODULE, rapalr_mgc_verify_trans_ack_msg, [TransId]}).
+-else.
+-define(rapalr_mgc_decode_msg_fun(Mod, Conf),
+ rapalr_mgc_decode_msg_fun(Mod, Conf)).
+-define(rapalr_mgc_encode_msg_fun(Mod, Conf),
+ rapalr_mgc_encode_msg_fun(Mod, Conf)).
+-define(rapalr_mgc_verify_service_change_req_msg_fun(),
+ rapalr_mgc_verify_service_change_req_msg_fun()).
+-define(rapalr_mgc_verify_notify_req_msg_fun(TermId, TransId, ReqId, CtxId),
+ rapalr_mgc_verify_notify_req_msg_fun(TermId, TransId, ReqId, CtxId)).
+-define(rapalr_mgc_verify_trans_ack_msg_fun(TransId),
+ rapalr_mgc_verify_trans_ack_msg_fun(TransId)).
+-endif.
+
+rapalr_mgc_event_sequence(text, tcp) ->
+ DecodeFun = ?rapalr_mgc_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?rapalr_mgc_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mgc"},
+ ServiceChangeRep = rapalr_mgc_service_change_reply_msg(Mid, 1),
+ TermId =
+ #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ TransId = 2,
+ ReqId = 1,
+ CtxId = 1,
+ Pending = rapalr_mgc_trans_pending_msg(Mid, TransId),
+ NotifyRep = rapalr_mgc_notify_reply_msg(Mid, TransId,
+ CtxId, TermId),
+ ScrVerifyFun = ?rapalr_mgc_verify_service_change_req_msg_fun(),
+ NrVerifyFun =
+ ?rapalr_mgc_verify_notify_req_msg_fun(TermId, TransId, ReqId, CtxId),
+ AckVerifyFun = ?rapalr_mgc_verify_trans_ack_msg_fun(TransId),
+%% ScrVerifyFun = rapalr_mgc_verify_service_change_req_msg_fun(),
+%% NrVerifyFun =
+%% rapalr_mgc_verify_notify_req_msg_fun(TermId, TransId, ReqId, CtxId),
+%% AckVerifyFun = rapalr_mgc_verify_trans_ack_msg_fun(TransId),
+ EvSeq = [{debug, false},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {listen, 2944},
+ {expect_accept, any},
+ {expect_receive, "service-change-request", {ScrVerifyFun, 5000}},
+ {send, "service-change-reply", ServiceChangeRep},
+ {expect_receive, "notify-request(1)", {NrVerifyFun, 4000}},
+ {send, "pending", Pending},
+ {expect_receive, "notify-request(2)", {NrVerifyFun, 4000}},
+ {expect_receive, "notify-request(3)", {NrVerifyFun, 4000}},
+ {send, "notify reply", NotifyRep},
+ {expect_receive, "ack", {AckVerifyFun, 4000}},
+ {sleep, 1000},
+ disconnect
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+rapalr_mgc_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rapalr_mgc_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+rapalr_mgc_verify_service_change_req_msg_fun() ->
+ fun(Msg) ->
+ (catch rapalr_mgc_verify_service_change_req_msg(Msg))
+ end.
+-endif.
+
+rapalr_mgc_verify_service_change_req_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionRequest, TransRequest} ->
+ TransRequest;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ AR =
+ case TR of
+ #'TransactionRequest'{transactionId = _TransId,
+ actions = [ActionReq]} ->
+ ActionReq;
+ _ ->
+ throw({error, {invalid_transactionRequest, TR}})
+ end,
+ CR =
+ case AR of
+ #'ActionRequest'{contextId = _Cid,
+ commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ throw({error, {invalid_action, AR}})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ throw({error, {invalid_commandRequest, CR}})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ throw({error, {invalid_command, Cmd}})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ throw({error, {invalid_terminationID, Tid}})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeParms, Parms}}
+ end.
+
+-ifndef(megaco_hipe_special).
+rapalr_mgc_verify_notify_req_msg_fun(TermId, TransId, Rid, Cid) ->
+ fun(Msg) ->
+ (catch rapalr_mgc_verify_notify_req_msg(Msg,
+ TermId,
+ TransId, Rid, Cid))
+ end.
+-endif.
+
+rapalr_mgc_verify_notify_req_msg(#'MegacoMessage'{mess = Mess} = M,
+ TermId, TransId, Rid, Cid) ->
+ io:format("rapalr_mgc_verify_notify_req_msg -> entry with"
+ "~n M: ~p"
+ "~n TermId: ~p"
+ "~n TransId: ~p"
+ "~n Rid: ~p"
+ "~n Cid: ~p"
+ "~n", [M, TermId, TransId, Rid, Cid]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionRequest, TransRequest} ->
+ TransRequest;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ AR =
+ case TR of
+ #'TransactionRequest'{transactionId = TransId,
+ actions = [ActReq]} ->
+ ActReq;
+ _ ->
+ throw({error, {invalid_transactionRequest, TR}})
+ end,
+ CR =
+ case AR of
+ #'ActionRequest'{contextId = Cid,
+ commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ throw({error, {invalid_actions, AR}})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ throw({error, {invalid_commandRequests, CR}})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ throw({error, {invalid_command, Cmd}})
+ end,
+ OED =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermId],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ ObsEvsDesc;
+ _ ->
+ throw({error, {invalid_notifyReq, NR}})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ throw({error, {invalid_observedEventsDescriptor, OED}})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ {ok, M};
+ _ ->
+ throw({error, {invalid_observedEventLst, OE}})
+ end;
+rapalr_mgc_verify_notify_req_msg(Crap, _TermId, _TransId, _Rid, _Cid) ->
+ {error, {invalid_MegacoMessage, Crap}}.
+
+-ifndef(megaco_hipe_special).
+rapalr_mgc_verify_trans_ack_msg_fun(TransId) ->
+ fun(Msg) ->
+ (catch rapalr_mgc_verify_trans_ack_msg(Msg, TransId))
+ end.
+-endif.
+
+rapalr_mgc_verify_trans_ack_msg(#'MegacoMessage'{mess = Mess} = M,
+ TransId) ->
+ io:format("rapalr_mgc_verify_trans_ack_msg -> entry with"
+ "~n M: ~p"
+ "~n TransId: ~p"
+ "~n", [M, TransId]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TA =
+ case Trans of
+ {transactionResponseAck, [TransAck]} ->
+ TransAck;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ case TA of
+ #'TransactionAck'{firstAck = TransId,
+ lastAck = asn1_NOVALUE} ->
+ {ok, M};
+ _ ->
+ throw({error, {invalid_transactionResponseAck, TA}})
+ end;
+rapalr_mgc_verify_trans_ack_msg(Crap, _TransId) ->
+ {error, {invalid_MegacoMessage, Crap}}.
+
+rapalr_mgc_service_change_reply_msg(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ AR = cre_actionReply(Cid, [CR]),
+ TRes = cre_transResult([AR]),
+ TR = cre_transReply(1, TRes),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+rapalr_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+rapalr_mgc_notify_reply_msg(Mid, TransId, Cid, TermId) ->
+ AR = rapalr_mgc_notify_reply_ar(Cid, TermId),
+ TRes = cre_transResult([AR]),
+ TR = cre_transReply(TransId, 'NULL', TRes),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+rapalr_mgc_trans_pending_msg(Mid, TransId) ->
+ TP = #'TransactionPending'{transactionId = TransId},
+ Body = {transactions, [{transactionPending, TP}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(rapalr_mg_verify_handle_connect_fun(),
+ {?MODULE, rapalr_mg_verify_handle_connect, []}).
+-define(rapalr_mg_verify_service_change_rep_fun(),
+ {?MODULE, rapalr_mg_verify_service_change_rep, []}).
+-define(rapalr_mg_verify_notify_rep_fun(),
+ {?MODULE, rapalr_mg_verify_notify_rep, []}).
+-else.
+-define(rapalr_mg_verify_handle_connect_fun(),
+ rapalr_mg_verify_handle_connect_fun()).
+-define(rapalr_mg_verify_service_change_rep_fun(),
+ rapalr_mg_verify_service_change_rep_fun()).
+-define(rapalr_mg_verify_notify_rep_fun(),
+ rapalr_mg_verify_notify_rep_fun()).
+-endif.
+
+rapalr_mg_event_sequence(text, tcp) ->
+ Mid = {deviceName,"mg"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ LReqTmr = #megaco_incr_timer{wait_for = 3000,
+ factor = 1,
+ incr = 0,
+ max_retries = 2
+ },
+ ServiceChangeReq = rapalr_mg_service_change_request_ar(Mid, 1),
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = rapalr_mg_notify_request_ar(1, Tid, 1),
+ ConnectVerify = ?rapalr_mg_verify_handle_connect_fun(),
+ ServiceChangeReplyVerify = ?rapalr_mg_verify_service_change_rep_fun(),
+ NotifyReplyVerify = ?rapalr_mg_verify_notify_rep_fun(),
+%% ConnectVerify = rapalr_mg_verify_handle_connect_fun(),
+%% ServiceChangeReplyVerify = rapalr_mg_verify_service_change_reply_fun(),
+%% NotifyReplyVerify = rapalr_mg_verify_notify_reply_fun(),
+ EvSeq = [
+ {debug, false},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ start_transport,
+ {megaco_trace, disable},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ {megaco_update_user_info, long_request_resend, true},
+ {megaco_update_user_info, long_request_timer, LReqTmr},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, [ServiceChangeReq], []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+ {sleep, 1000},
+ {megaco_cast, [NotifyReq], []},
+ {megaco_callback, handle_trans_reply, NotifyReplyVerify},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+rapalr_mg_verify_handle_connect_fun() ->
+ fun(Ev) ->
+ rapalr_mg_verify_handle_connect(Ev)
+ end.
+-endif.
+
+rapalr_mg_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("rapalr_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+rapalr_mg_verify_handle_connect(Else) ->
+ io:format("rapalr_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+-ifndef(megaco_hipe_special).
+rapalr_mg_verify_service_change_rep_fun() ->
+ fun(Rep) ->
+ rapalr_mg_verify_service_change_rep(Rep)
+ end.
+-endif.
+
+rapalr_mg_verify_service_change_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ (catch rapalr_mg_do_verify_service_change_rep(AR));
+rapalr_mg_verify_service_change_rep(Crap) ->
+ {error, Crap, ok}.
+
+rapalr_mg_do_verify_service_change_rep(AR) ->
+ io:format("rapalr_mg_verify_service_change_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ Reason1 = {invalid_action_reply, AR},
+ throw({error, Reason1, ok})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ Reason2 = {invalid_command_reply, CR},
+ throw({error, Reason2, ok})
+ end,
+ {Tid, SCRes} =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = [TermID],
+ serviceChangeResult = Res} ->
+ {TermID, Res};
+ _ ->
+ Reason3 = {invalid_service_change_reply, SCR},
+ throw({error, Reason3, ok})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Reason4 = {invalid_termination_id, Tid},
+ throw({error, Reason4, ok})
+ end,
+ SCRParm =
+ case SCRes of
+ {serviceChangeResParms, ServChResParms} ->
+ ServChResParms;
+ _ ->
+ Reason5 = {invalid_serviceChangeResult, SCRes},
+ throw({error, Reason5, ok})
+ end,
+ case SCRParm of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _RemoteMid} ->
+ {ok, AR, ok};
+ _ ->
+ Reason6 = {invalid_service_change_result, SCRParm},
+ {error, Reason6, ok}
+ end.
+
+-ifndef(megaco_hipe_special).
+rapalr_mg_verify_notify_rep_fun() ->
+ fun(Rep) ->
+ rapalr_mg_verify_notify_rep(Rep)
+ end.
+-endif.
+
+rapalr_mg_verify_notify_rep({handle_trans_reply, _CH, ?VERSION,
+ {ok, [AR]}, _}) ->
+ io:format("rapalr_mg_verify_notify_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ {ok, AR, ok};
+rapalr_mg_verify_notify_rep(Else) ->
+ io:format("rapalr_mg_verify_notify_rep -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+rapalr_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+rapalr_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+
+
+
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+dist(suite) ->
+ [];
+dist(Config) when is_list(Config) ->
+ [_Local, Dist] = ?ACQUIRE_NODES(2, Config),
+ d("dist -> start proxy",[]),
+ megaco_mess_user_test:start_proxy(),
+
+ PrelMid = preliminary_mid,
+ MgMid = ipv4_mid(4711),
+ MgcMid = ipv4_mid(),
+ UserMod = megaco_mess_user_test,
+ d("dist -> start megaco app",[]),
+ ?VERIFY(ok, application:start(megaco)),
+ UserConfig = [{user_mod, UserMod}, {send_mod, UserMod},
+ {request_timer, infinity}, {reply_timer, infinity}],
+
+ d("dist -> start megaco user MG (~p)",[MgMid]),
+ ?VERIFY(ok, megaco:start_user(MgMid, UserConfig)),
+
+ d("dist -> start megaco user MGC (~p)",[MgcMid]),
+ ?VERIFY(ok, megaco:start_user(MgcMid, UserConfig)),
+
+ d("dist -> retrieve (user info) receive_handle for MG",[]),
+ MgRH = user_info(MgMid, receive_handle),
+
+ d("dist -> retrieve (user info) receive_handle for MGC",[]),
+ MgcRH = user_info(MgcMid, receive_handle),
+
+ d("dist -> start transport",[]),
+ {ok, MgPid, MgSH} =
+ ?VERIFY({ok, _, _}, UserMod:start_transport(MgRH, MgcRH)),
+ PrelMgCH = #megaco_conn_handle{local_mid = MgMid,
+ remote_mid = preliminary_mid},
+ MgCH = #megaco_conn_handle{local_mid = MgMid,
+ remote_mid = MgcMid},
+ MgcCH = #megaco_conn_handle{local_mid = MgcMid,
+ remote_mid = MgMid},
+
+ d("dist -> (MG) connect",[]),
+ ?SEND(megaco:connect(MgRH, PrelMid, MgSH, MgPid)), % Mg prel
+
+ d("dist -> (MG) await connect",[]),
+ ?USER({connect, PrelMgCH, _V, []}, ok),
+ ?RECEIVE([{res, _, {ok, PrelMgCH}}]),
+
+ d("dist -> (MG) send service change request",[]),
+ Req = service_change_request(),
+ ?SEND(megaco:call(PrelMgCH, [Req], [])),
+
+ d("dist -> (MGC) await auto-connect",[]),
+ ?USER({connect, MgcCH, _V, []}, ok), % Mgc auto
+
+
+ Rep = service_change_reply(MgcMid),
+ d("dist -> (MGC) "
+ "await service change request and send reply when received",[]),
+ ?USER({request, MgcCH, _V, [[Req]]}, {discard_ack, [Rep]}),
+
+ d("dist -> (MG) await connect",[]),
+ ?USER({connect, MgCH, _V, []}, ok), % Mg confirm
+
+ d("dist -> (MG) await service change reply",[]),
+ ?RECEIVE([{res, _, {1, {ok, [Rep]}}}]),
+
+ %% Dist
+ d("dist -> start megaco on ~p", [Dist]),
+ ?VERIFY(ok, rpc:call(Dist, megaco, start, [])),
+
+ d("dist -> start megaco user on ~p", [Dist]),
+ ?VERIFY(ok, rpc:call(Dist, megaco, start_user, [MgcMid, UserConfig])),
+
+ d("dist -> (MG) connect to MGC", []),
+ MgcPid = self(),
+ MgcSH = {element(2, MgSH), element(1, MgSH)},
+ ?SEND(rpc:call(Dist, megaco, connect, [MgcRH, MgMid, MgcSH, MgcPid])), % Mgc dist
+
+ d("dist -> (MGC) await auto-connect (from MG on ~p)", [Dist]),
+ ?USER({connect, MgcCH, _V, []}, ok), % Mgc dist auto
+ ?RECEIVE([{res, _, {ok, MgcCH}}]),
+
+ d("dist -> (~p:MG) send service change request",[Dist]),
+ ?SEND(rpc:call(Dist, megaco, call, [MgcCH, [Req], []])),
+
+ d("dist -> (MG????????) "
+ "await service change request and send reply when received",[]),
+ ?USER({request, MgCH, _V, [[Req]]}, {discard_ack, [Rep]}),
+ ?RECEIVE([{res, _, {1, {ok, [Rep]}}}]),
+
+ d("dist -> retreive some info",[]),
+ connections([MgCH, MgcCH]),
+ ?VERIFY([MgCH], megaco:user_info(MgMid, connections)),
+ ?VERIFY([MgcCH], megaco:user_info(MgcMid, connections)),
+
+ ?VERIFY([MgcCH], rpc:call(Dist, megaco, system_info, [connections])),
+ ?VERIFY([], rpc:call(Dist, megaco, user_info, [MgMid, connections])),
+ ?VERIFY([MgcCH], rpc:call(Dist, megaco, user_info, [MgcMid, connections])),
+
+ %% Shutdown
+
+ d("dist -> close down the shop...",[]),
+ Reason = shutdown,
+ ?SEND(megaco:disconnect(MgCH, Reason)),
+ ?USER({disconnect, MgCH, _V, [{user_disconnect, Reason}]}, ok),
+ ?RECEIVE([{res, _, ok}]),
+ ?VERIFY(ok, megaco:stop_user(MgMid)),
+
+ ?SEND(megaco:disconnect(MgcCH, Reason)),
+ ?USER({disconnect, MgcCH, _V, [{user_disconnect, Reason}]}, ok),
+ ?USER({disconnect, MgcCH, _V, [{user_disconnect, Reason}]}, ok),
+ ?RECEIVE([{res, _, ok}]),
+ ?VERIFY(ok, megaco:stop_user(MgcMid)),
+
+ ?VERIFY(ok, application:stop(megaco)),
+ ?RECEIVE([]),
+ d("dist -> done",[]),
+ ok.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_4359(suite) ->
+ [];
+otp_4359(Config) when is_list(Config) ->
+ ?ACQUIRE_NODES(1, Config),
+ Mid = {deviceName, "dummy_mid"},
+
+ io:format("otp_4359 -> start megaco application~n", []),
+ ?VERIFY(ok, application:start(megaco)),
+
+ %% megaco:enable_trace(max, io),
+ io:format("otp_4359 -> start and configure megaco user~n", []),
+ ?VERIFY(ok, megaco:start_user(Mid, [{send_mod, ?MODULE},
+ {request_timer, infinity},
+ {reply_timer, infinity}])),
+
+ io:format("otp_4359 -> update user info: user_mod -> ~p~n", [?MODULE]),
+ ?VERIFY(ok, megaco:update_user_info(Mid, user_mod, ?MODULE)),
+ io:format("otp_4359 -> update user info: user_args -> ~p~n", [self()]),
+ ?VERIFY(ok, megaco:update_user_info(Mid, user_args, [self()])),
+ io:format("otp_4359 -> retreive receive_handle~n", []),
+ RH0 = user_info(Mid, receive_handle),
+ io:format("otp_4359 -> RH0: ~p~n", [RH0]),
+ RH1 = RH0#megaco_receive_handle{send_mod = ?MODULE,
+ encoding_mod = megaco_compact_text_encoder,
+ encoding_config = []},
+
+ %% First an erroneous transaction (missing the transaction id number)
+ %% then an valid transaction.
+ M = "!/1 ml2 "
+ "T={C=${A=${M{O {MO=SR,RG=OFF,RV=OFF}}}}}"
+ "T=1{C=${A=${M{O {MO=SR,RG=OFF,RV=OFF}}}}}",
+
+ %% Simulate incomming message
+ %% Will result in an (auto) connect first
+ io:format("otp_4359 -> simulate receive message~n", []),
+ megaco:receive_message(RH1, self(), self(), list_to_binary(M)),
+ io:format("otp_4359 -> await actions~n", []),
+ Actions = otp_4359_await_actions([{handle_connect, ignore},
+ {send_message, ?megaco_bad_request},
+ {handle_trans_request, ignore},
+ {send_message, ?megaco_not_implemented}]),
+ io:format("otp_4359 -> analyze actions~n", []),
+ otp_4359_analyze_result(RH1, Actions),
+
+ Conns = megaco:system_info(connections),
+ io:format("otp_4359 -> connections~n~p~n", [Conns]),
+ OKs = lists:duplicate(length(Conns),ok),
+ io:format("otp_4359 -> verify (all) connection disconnect~n", []),
+ ?VERIFY(OKs, [megaco:disconnect(CH, test_complete) || CH <- Conns]),
+ io:format("otp_4359 -> stop user (~p)~n", [Mid]),
+ stop_user(Mid),
+ io:format("otp_4359 -> stop megaco application~n", []),
+ ?VERIFY(ok, application:stop(megaco)),
+ io:format("otp_4359 -> make sure we have nothing in the message queue~n", []),
+ ?RECEIVE([]),
+ io:format("otp_4359 -> done~n", []),
+ ok.
+
+
+otp_4359_await_actions(Exp) ->
+ otp_4359_await_actions(Exp, []).
+
+otp_4359_await_actions([], Rep) ->
+ lists:reverse(Rep);
+otp_4359_await_actions([{M,I}|R] = _All, Rep) ->
+ receive
+ {M, Info} ->
+ io:format("otp_4359 -> received expected event [~w]~n", [M]),
+ otp_4359_await_actions(R, [{M, I, Info}|Rep])
+%% Else ->
+%% exit({received_unexpected_message, M, Else})
+%% %% io:format("received unexpected: ~p~n", [Else]),
+%% %% otp_4359_await_actions(All, Rep)
+ after 10000 ->
+ exit({timeout,megaco_test_lib:flush()} )
+ end.
+
+otp_4359_analyze_result(_RH, []) ->
+ ok;
+otp_4359_analyze_result(RH,
+ [{send_message, ExpErrorCode, EncodedMessage}|L]) ->
+ io:format("otp_4359_analyze_result -> send_message: ", []),
+ otp_4359_analyze_encoded_message(RH, ExpErrorCode, EncodedMessage),
+ otp_4359_analyze_result(RH,L);
+otp_4359_analyze_result(RH, [{M,ignore,_}|T]) ->
+ io:format("otp_4359_analyze_result -> ignoring ~p~n", [M]),
+ otp_4359_analyze_result(RH,T).
+
+otp_4359_analyze_encoded_message(RH, ExpErrorCode, M)
+ when is_record(RH, megaco_receive_handle) andalso is_binary(M) ->
+ #megaco_receive_handle{encoding_mod = Mod,
+ encoding_config = Conf} = RH,
+ case (catch Mod:decode_message(Conf, M)) of
+ {ok, #'MegacoMessage'{mess = #'Message'{messageBody = Body}}} ->
+ case Body of
+ {transactions, [{transactionReply,Reply}]} ->
+ case Reply of
+ #'TransactionReply'{transactionResult = Result} ->
+ case Result of
+ {transactionError,ED} when is_record(ED, 'ErrorDescriptor') ->
+ case ED#'ErrorDescriptor'.errorCode of
+ ExpErrorCode ->
+ io:format("error code ~p ok~n", [ExpErrorCode]),
+ ok;
+ Code ->
+ io:format("error code ~p erroneous~n", [Code]),
+ exit({unexpected_error_code, ExpErrorCode, Code})
+ end;
+ _ ->
+ io:format("unexpected trans result~n", []),
+ exit({unexpected_trans_result, Result})
+ end;
+ _ ->
+ io:format("unexpected trans reply~n", []),
+ exit({unexpected_trans_reply, Reply})
+ end;
+ _ ->
+ io:format("unexpected body~n", []),
+ exit({unexpected_body, Body})
+ end;
+
+ Else ->
+ io:format("unexpected decode result~n", []),
+ exit({unexpected_decode_result, Else})
+ end.
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_4836(suite) ->
+ [];
+otp_4836(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, otp_4836),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("start the MGC simulator (generator)"),
+ {ok, Mgc} = megaco_test_tcp_generator:start_link("MGC", MgcNode),
+
+ d("create the MGC event sequence"),
+ MgcEvSeq = otp_4836_mgc_event_sequence(text, tcp),
+
+ d("start the MGC simulation"),
+ {ok, MgcId} = megaco_test_tcp_generator:exec(Mgc, MgcEvSeq),
+
+ i("[MG] start"),
+ MgMid = {deviceName, "mg"},
+ ReqTmr = #megaco_incr_timer{wait_for = 3000,
+ factor = 1,
+ incr = 0,
+ max_retries = 3},
+ %% 5000, %% Does not matter since we will not use this anyway...
+ LongReqTmr = #megaco_incr_timer{wait_for = 3000,
+ factor = 1,
+ incr = 0,
+ max_retries = 3},
+ PendingTmr = 10000,
+ ReplyTmr = 16000,
+ MgConfig = [{request_timer, ReqTmr},
+ {long_request_timer, LongReqTmr},
+ {pending_timer, PendingTmr},
+ {reply_timer, ReplyTmr}],
+ {ok, Mg} = ?MG_START(MgNode, MgMid, text, tcp, MgConfig, ?MG_VERBOSITY),
+
+ i("[MG] connect to the MGC (service change)"),
+ ServChRes = ?MG_SERV_CHANGE(Mg),
+ d("service change result: ~p", [ServChRes]),
+
+ d("[MG] send the notify"),
+ {ok, Reply} = (catch ?MG_NOTIF_RAR(Mg)),
+ {1, {ok, [AR]}} = Reply,
+ d("[MG] ActionReply: ~p", [AR]),
+
+ d("await the generator reply"),
+ await_completion([MgcId]),
+
+ %% Tell MG to stop
+ i("[MG] stop"),
+ ?MG_STOP(Mg),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_tcp_generator:stop(Mgc),
+
+ i("done", []),
+ ok.
+
+
+-ifdef(megaco_hipe_special).
+-define(otp_4836_mgc_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(otp_4836_mgc_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(otp_4836_mgc_verify_service_change_req_msg_fun(),
+ {?MODULE, otp_4836_mgc_verify_service_change_req_msg, []}).
+-define(otp_4836_mgc_verify_notify_req_msg_fun(),
+ {?MODULE, otp_4836_mgc_verify_notify_req_msg, []}).
+-else.
+-define(otp_4836_mgc_decode_msg_fun(Mod, Conf),
+ otp_4836_mgc_decode_msg_fun(Mod, Conf)).
+-define(otp_4836_mgc_encode_msg_fun(Mod, Conf),
+ otp_4836_mgc_encode_msg_fun(Mod, Conf)).
+-define(otp_4836_mgc_verify_service_change_req_msg_fun(),
+ otp_4836_mgc_verify_service_change_req_msg_fun()).
+-define(otp_4836_mgc_verify_notify_req_msg_fun(),
+ otp_4836_mgc_verify_notify_req_msg_fun()).
+-endif.
+
+otp_4836_mgc_event_sequence(text, tcp) ->
+ DecodeFun = ?otp_4836_mgc_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?otp_4836_mgc_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"ctrl"},
+ ServiceChangeReply = otp_4836_service_change_reply_msg(Mid, 1, 0),
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReply = otp_4836_notify_reply_msg(Mid, 2, 0, TermId),
+ Pending = otp_4836_pending_msg(Mid,2),
+ ServiceChangeVerifyFun = ?otp_4836_mgc_verify_service_change_req_msg_fun(),
+ NotifyReqVerifyFun = ?otp_4836_mgc_verify_notify_req_msg_fun(),
+ MgcEvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {listen, 2944},
+ {expect_accept, any},
+ {expect_receive, "service-change-request", {ServiceChangeVerifyFun, 10000}},
+ {send, "service-change-reply", ServiceChangeReply},
+ {expect_receive, "notify-request", {NotifyReqVerifyFun, 10000}},
+ {send, "pending 1", Pending},
+ {sleep, 100},
+ {send, "pending 2", Pending},
+ {sleep, 500},
+ {send, "notify-reply", NotifyReply},
+ {sleep, 2000}
+ ],
+ MgcEvSeq.
+
+otp_4836_service_change_reply_msg(Mid, TransId, Cid) ->
+ SCRP = #'ServiceChangeResParm'{serviceChangeMgcId = Mid},
+ SCRPs = {serviceChangeResParms,SCRP},
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = #'ServiceChangeReply'{terminationID = [Root],
+ serviceChangeResult = SCRPs},
+ CR = {serviceChangeReply, SCR},
+ otp_4836_msg(Mid, TransId, CR, Cid).
+
+otp_4836_notify_reply_msg(Mid, TransId, Cid, TermId) ->
+ NR = #'NotifyReply'{terminationID = [TermId]},
+ CR = {notifyReply, NR},
+ otp_4836_msg(Mid, TransId, CR, Cid).
+
+otp_4836_msg(Mid, TransId, CR, Cid) ->
+ AR = #'ActionReply'{contextId = Cid,
+ commandReply = [CR]},
+ ARs = {actionReplies, [AR]},
+ TR = #'TransactionReply'{transactionId = TransId,
+ transactionResult = ARs},
+ Body = {transactions, [{transactionReply, TR}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+
+otp_4836_pending_msg(Mid, TransId) ->
+ TP = #'TransactionPending'{transactionId = TransId},
+ Body = {transactions, [{transactionPending, TP}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+
+-ifndef(megaco_hipe_special).
+otp_4836_mgc_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+%% otp_4836_mgc_encode_msg_fun(Mod, Conf, Ver) ->
+%% fun(M) ->
+%% encode_msg(M, Mod, Conf, Ver)
+%% end.
+
+-ifndef(megaco_hipe_special).
+otp_4836_mgc_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+%% otp_4836_mgc_decode_msg_fun(Mod, Conf, Ver) ->
+%% fun(M) ->
+%% decode_msg(M, Mod, Conf, Ver)
+%% end.
+
+%% otp_4836_verify_msg_fun() ->
+%% fun(M) ->
+%% {ok, M}
+%% end.
+
+-ifndef(megaco_hipe_special).
+otp_4836_mgc_verify_service_change_req_msg_fun() ->
+ fun(M) ->
+ otp_4836_mgc_verify_service_change_req_msg(M)
+ end.
+-endif.
+
+otp_4836_mgc_verify_service_change_req_msg(
+ #'MegacoMessage'{mess = Mess} = M) ->
+ #'Message'{version = _V,
+ mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, [Trans]} = Body,
+ {transactionRequest, TR} = Trans,
+ #'TransactionRequest'{transactionId = _Tid,
+ actions = [AR]} = TR,
+ #'ActionRequest'{contextId = _Cid,
+ contextRequest = _CtxReq,
+ contextAttrAuditReq = _CtxAar,
+ commandRequests = [CR]} = AR,
+ #'CommandRequest'{command = Cmd,
+ optional = _Opt,
+ wildcardReturn = _WR} = CR,
+ {serviceChangeReq, SCR} = Cmd,
+ #'ServiceChangeRequest'{terminationID = _TermID,
+ serviceChangeParms = SCP} = SCR,
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} = SCP,
+ {ok, M};
+otp_4836_mgc_verify_service_change_req_msg(M) ->
+ {error, {invalid_message, M}}.
+
+-ifndef(megaco_hipe_special).
+otp_4836_mgc_verify_notify_req_msg_fun() ->
+ fun(M) ->
+ otp_4836_mgc_verify_notify_req_msg(M)
+ end.
+-endif.
+
+otp_4836_mgc_verify_notify_req_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ #'Message'{messageBody = Body} = Mess,
+ {transactions, [Trans]} = Body,
+ {transactionRequest, TR} = Trans,
+ #'TransactionRequest'{actions = [AR]} = TR,
+ #'ActionRequest'{commandRequests = [CR1,CR2]} = AR,
+ #'CommandRequest'{command = Cmd1} = CR1,
+ {notifyReq, NR1} = Cmd1,
+ #'NotifyRequest'{observedEventsDescriptor = OED1} = NR1,
+ #'ObservedEventsDescriptor'{observedEventLst = [OE1]} = OED1,
+ #'ObservedEvent'{eventName = "al/of"} = OE1,
+ #'CommandRequest'{command = Cmd2} = CR2,
+ {notifyReq, NR2} = Cmd2,
+ #'NotifyRequest'{observedEventsDescriptor = OED2} = NR2,
+ #'ObservedEventsDescriptor'{observedEventLst = [OE2]} = OED2,
+ #'ObservedEvent'{eventName = "al/of"} = OE2,
+ {ok, M};
+otp_4836_mgc_verify_notify_req_msg(M) ->
+ {error, {invalid_message, M}}.
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_5805(suite) ->
+ [];
+otp_5805(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, otp_5805),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = otp_5805_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} =
+ megaco_test_megaco_generator:exec(Mgc, MgcEvSeq, timer:minutes(1)),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("start the MG simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("create the MG event sequence"),
+ MgEvSeq = otp_5805_mg_event_sequence(text, tcp),
+
+ d("start the MG simulation"),
+ {ok, MgId} =
+ megaco_test_tcp_generator:exec(Mg, MgEvSeq, timer:minutes(1)),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_tcp_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+-ifdef(megaco_hipe_special).
+-define(otp_5805_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(otp_5805_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(otp_5805_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, otp_5805_mg_verify_service_change_rep_msg, []}).
+-define(otp_5805_mg_verify_error_descriptor_msg_fun(),
+ {?MODULE, otp_5805_mg_verify_error_descriptor_msg, []}).
+-else.
+-define(otp_5805_mg_decode_msg_fun(Mod, Conf),
+ otp_5805_mg_decode_msg_fun(Mod, Conf)).
+-define(otp_5805_mg_encode_msg_fun(Mod, Conf),
+ otp_5805_mg_encode_msg_fun(Mod, Conf)).
+-define(otp_5805_mg_verify_service_change_rep_msg_fun(),
+ otp_5805_mg_verify_service_change_rep_msg_fun()).
+-define(otp_5805_mg_verify_error_descriptor_msg_fun(),
+ otp_5805_mg_verify_error_descriptor_msg_fun()).
+-endif.
+
+otp_5805_mg_event_sequence(text, tcp) ->
+ DecodeFun = ?otp_5805_mg_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?otp_5805_mg_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mg"},
+ ServiceChangeReq = otp_5805_mg_service_change_request_msg(Mid, 1, 0),
+ NotifyReqNNV = otp_5805_mg_notify_request_msg("1"),
+ NotifyReqUV = otp_5805_mg_notify_request_msg("4"),
+ ServiceChangeReplyVerifyFun =
+ ?otp_5805_mg_verify_service_change_rep_msg_fun(),
+ EDVerify =
+ ?otp_5805_mg_verify_error_descriptor_msg_fun(),
+%% ServiceChangeReplyVerifyFun =
+%% otp_5805_mg_verify_service_change_rep_msg_fun(),
+%% EDVerify = otp_5805_mg_verify_error_descriptor_msg_fun(),
+ MgEvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, 2944},
+
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ServiceChangeReplyVerifyFun, 5000}},
+ {sleep, 1000},
+ {send, "notify request (not negotiated version)", NotifyReqNNV},
+ {expect_receive, "error-descriptor", EDVerify},
+ {sleep, 1000},
+ {send, "notify request (unsupported version)", NotifyReqUV},
+ {expect_receive, "error-descriptor", EDVerify},
+
+ {expect_nothing, 4000},
+ disconnect
+ ],
+ MgEvSeq.
+
+-ifndef(megaco_hipe_special).
+otp_5805_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+otp_5805_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+otp_5805_mg_verify_service_change_rep_msg_fun() ->
+ fun(M) ->
+ otp_5805_mg_verify_service_change_rep_msg(M)
+ end.
+-endif.
+
+otp_5805_mg_verify_service_change_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ case Mess of
+ #'Message'{version = 1,
+ mId = _MgMid,
+ messageBody = Body} ->
+ case Body of
+ {transactions, [Trans]} ->
+ case Trans of
+ {transactionReply, TR} ->
+ case TR of
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = Res} ->
+ case Res of
+ {actionReplies, [AR]} ->
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CR]} ->
+ case CR of
+ {serviceChangeReply, SCR} ->
+ case SCR of
+ #'ServiceChangeReply'{
+ terminationID = _TermID,
+ serviceChangeResult = SCRes} ->
+ case SCRes of
+ {serviceChangeResParms, SCRP} ->
+ case SCRP of
+ #'ServiceChangeResParm'{
+ serviceChangeMgcId = _MgcMid,
+ serviceChangeVersion = 2} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_scrp, SCRP}}
+ end;
+ _ ->
+ {error, {invalid_scres, SCRes}}
+ end;
+ _ ->
+ {error, {invalid_scr, SCR}}
+ end;
+ _ ->
+ {error, {invalid_cr, CR}}
+ end;
+ _ ->
+ {error, {invalid_ar, AR}}
+ end;
+ _ ->
+ {error, {invalid_tres, Res}}
+ end;
+ _ ->
+ {error, {invalid_tr, TR}}
+ end;
+ _ ->
+ {error, {invalid_trans, Trans}}
+ end;
+ _ ->
+ {error, {invalid_body, Body}}
+ end;
+ _ ->
+ {error, {invalid_mess, Mess}}
+ end;
+otp_5805_mg_verify_service_change_rep_msg(M) ->
+ {error, {invalid_message, M}}.
+
+
+-ifndef(megaco_hipe_special).
+otp_5805_mg_verify_error_descriptor_msg_fun() ->
+ fun(M) ->
+ otp_5805_mg_verify_error_descriptor_msg(M)
+ end.
+-endif.
+
+otp_5805_mg_verify_error_descriptor_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ case Mess of
+ #'Message'{version = 2,
+ mId = _MgMid,
+ messageBody = Body} ->
+ io:format("otp_5805_mg_verify_error_descriptor_msg_fun -> ok"
+ "~n Body: ~p"
+ "~n", [Body]),
+ case Body of
+ {messageError, ED} ->
+ case ED of
+ #'ErrorDescriptor'{
+ errorCode = ?megaco_version_not_supported} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_ed, ED}}
+ end;
+ _ ->
+ {error, {invalid_body, Body}}
+ end;
+ _ ->
+ {error, {invalid_mess, Mess}}
+ end;
+otp_5805_mg_verify_error_descriptor_msg(M) ->
+ {error, {invalid_message, M}}.
+
+otp_5805_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, 2, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_5805_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = otp_5805_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(1, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+%% otp_5805_mg_notify_request_ar(Rid, Tid, Cid) ->
+%% TT = cre_timeNotation("19990729", "22000000"),
+%% Ev = cre_obsEvent("al/of", TT),
+%% EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+%% NR = cre_notifyReq([Tid], EvsDesc),
+%% CMD = cre_command(NR),
+%% CR = cre_cmdReq(CMD),
+%% cre_actionReq(Cid, [CR]).
+
+otp_5805_mg_notify_request_msg(V) ->
+ M =
+"MEGACO/" ++ V ++ " mg
+Transaction = 2 {
+ Context = 1 {
+ Notify = 00000000/00000000/01101101 {
+ ObservedEvents = 1 {
+ 19990729T22000000:al/of
+ }
+ }
+ }
+}",
+ list_to_binary(M).
+
+
+%%
+%% MGC generator stuff
+%%
+
+-ifdef(megaco_hipe_special).
+-define(otp_5805_mgc_verify_handle_connect_fun(),
+ {?MODULE, otp_5805_mgc_verify_handle_connect, []}).
+-define(otp_5805_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, otp_5805_mgc_verify_service_change_req, [Mid]}).
+-define(otp_5805_mgc_verify_handle_syntax_error_fun(),
+ {?MODULE, otp_5805_mgc_verify_handle_syntax_error, []}).
+-define(otp_5805_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, otp_5805_mgc_verify_handle_disconnect, []}).
+-else.
+-define(otp_5805_mgc_verify_handle_connect_fun(),
+ fun otp_5805_mgc_verify_handle_connect/1).
+-define(otp_5805_mgc_verify_service_change_req_fun(Mid),
+ otp_5805_mgc_verify_service_change_req_fun(Mid)).
+-define(otp_5805_mgc_verify_handle_syntax_error_fun(),
+ fun otp_5805_mgc_verify_handle_syntax_error/1).
+-define(otp_5805_mgc_verify_handle_disconnect_fun(),
+ fun otp_5805_mgc_verify_handle_disconnect/1).
+-endif.
+
+otp_5805_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ ConnectVerify = ?otp_5805_mgc_verify_handle_connect_fun(),
+ ServiceChangeReqVerify = ?otp_5805_mgc_verify_service_change_req_fun(Mid),
+ SyntaxErrorVerify1 = ?otp_5805_mgc_verify_handle_syntax_error_fun(),
+ SyntaxErrorVerify2 = ?otp_5805_mgc_verify_handle_syntax_error_fun(),
+ DiscoVerify = ?otp_5805_mgc_verify_handle_disconnect_fun(),
+%% ConnectVerify = fun otp_5805_mgc_verify_handle_connect/1,
+%% ServiceChangeReqVerify = otp_5805_mgc_verify_service_change_req_fun(Mid),
+%% SyntaxErrorVerify1 = fun otp_5805_mgc_verify_handle_syntax_error/1,
+%% SyntaxErrorVerify2 = fun otp_5805_mgc_verify_handle_syntax_error/1,
+%% DiscoVerify = fun otp_5805_mgc_verify_handle_disconnect/1,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ {megaco_trace, max},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_conn_info, all},
+ {megaco_callback, handle_trans_request_sc, ServiceChangeReqVerify},
+ {megaco_update_conn_info, protocol_version, 2},
+ {megaco_callback, handle_syntax_error, SyntaxErrorVerify1},
+ {megaco_callback, handle_syntax_error, SyntaxErrorVerify2},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+otp_5805_mgc_verify_handle_connect({handle_connect, CH, 1}) ->
+ io:format("otp_5805_mgc_verify_handle_connect -> ok"
+ "~n CH: ~p"
+ "~n", [CH]),
+ {ok, CH, ok};
+otp_5805_mgc_verify_handle_connect({handle_connect, CH, V}) ->
+ io:format("otp_5805_mgc_verify_handle_connect -> unexpected version"
+ "~n CH: ~p"
+ "~n V: ~p"
+ "~n", [CH, V]),
+ {error, {unexpected_version, V}, ok};
+otp_5805_mgc_verify_handle_connect(Else) ->
+ {error, Else, ok}.
+
+
+-ifndef(megaco_hipe_special).
+otp_5805_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Ev) ->
+ otp_5805_mgc_verify_service_change_req(Ev, Mid)
+ end.
+-endif.
+
+otp_5805_mgc_verify_service_change_req({handle_trans_request, _, V, [AR]},
+ Mid) ->
+ io:format("otp_5805_mgc_verify_service_change_req -> ok so far"
+ "~n V: ~p"
+ "~n", [V]),
+ case AR of
+ #'ActionRequest'{commandRequests = [CR]} ->
+ case CR of
+ #'CommandRequest'{command = Cmd} ->
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [Tid],
+ serviceChangeParms = Parms}} ->
+ case Tid of
+ #megaco_term_id{contains_wildcards = false,
+ id = ["root"]} ->
+ case Parms of
+ #'ServiceChangeParm'{
+ serviceChangeMethod = restart,
+ serviceChangeVersion = 2,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ Reply =
+ {discard_ack,
+ [otp_5805_mgc_service_change_reply_ar(Mid, 1)]},
+ {ok, AR, Reply};
+ _ ->
+ Err = {invalid_SCP, Parms},
+ ED = otp_5805_err_desc(Parms),
+ ErrReply =
+ {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+ _ ->
+ Err = {invalid_termination_id, Tid},
+ ED = otp_5805_err_desc(Tid),
+ ErrReply = {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+ _ ->
+ Err = {invalid_command, Cmd},
+ ED = otp_5805_err_desc(Cmd),
+ ErrReply = {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+ _ ->
+ Err = {invalid_command_request, CR},
+ ED = otp_5805_err_desc(CR),
+ ErrReply = {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+ _ ->
+ Err = {invalid_action_request, AR},
+ ED = otp_5805_err_desc(AR),
+ ErrReply = {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+otp_5805_mgc_verify_service_change_req(Else, _Mid) ->
+ ED = otp_5805_err_desc(Else),
+ ErrReply = {discard_ack, ED},
+ {error, Else, ErrReply}.
+
+otp_5805_mgc_verify_handle_syntax_error({handle_syntax_error, CH, _, ED})
+ when is_record(ED, 'ErrorDescriptor') ->
+ io:format("otp_5805_mgc_verify_handle_syntax_error -> ok so far"
+ "~n CH: ~p"
+ "~n ED: ~p"
+ "~n", [CH, ED]),
+ case ED of
+ #'ErrorDescriptor'{errorCode = ?megaco_version_not_supported} ->
+ {ok, CH, reply};
+ #'ErrorDescriptor'{errorCode = Code} ->
+ {error, {invalid_errorCode, Code}, ok}
+ end;
+otp_5805_mgc_verify_handle_syntax_error(Else) ->
+ io:format("otp_5805_mgc_verify_handle_syntax_error -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+otp_5805_mgc_verify_handle_disconnect({handle_disconnect, CH, V, _R}) ->
+ io:format("otp_5805_mgc_verify_handle_disconnect -> ok"
+ "~n CH: ~p"
+ "~n V: ~p"
+ "~n _R: ~p"
+ "~n", [CH, V, _R]),
+ {ok, CH, ok};
+otp_5805_mgc_verify_handle_disconnect(Else) ->
+ io:format("otp_5805_mgc_verify_handle_disconnect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+otp_5805_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid, 2),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ cre_actionReply(Cid, [CR]).
+
+%% otp_5805_mgc_notify_reply_ar(Cid, TermId) ->
+%% NR = cre_notifyReply([TermId]),
+%% CR = cre_cmdReply(NR),
+%% cre_actionReply(Cid, [CR]).
+
+
+otp_5805_err_desc(T) ->
+ EC = ?megaco_internal_gateway_error,
+ ET = lists:flatten(io_lib:format("~w",[T])),
+ #'ErrorDescriptor'{errorCode = EC, errorText = ET}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_5881(suite) ->
+ [];
+otp_5881(Config) when is_list(Config) ->
+ ?SKIP("deprecated by OTP-5887"),
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, otp_5881),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("start the MGC simulator (generator)"),
+ {ok, Mgc} = megaco_test_tcp_generator:start_link("MGC", MgcNode),
+
+ d("create the MGC event sequence"),
+ MgcEvSeq = otp_5881_mgc_event_sequence(text, tcp),
+
+ d("start the MGC simulation"),
+ {ok, MgcId} = megaco_test_tcp_generator:exec(Mgc, MgcEvSeq),
+
+ i("[MG] start"),
+ MgMid = {deviceName, "mg"},
+ ReqTmr = #megaco_incr_timer{wait_for = 3000,
+ factor = 1,
+ incr = 0,
+ max_retries = 3},
+ %% 5000, %% Does not matter since we will not use this anyway...
+ LongReqTmr = #megaco_incr_timer{wait_for = 3000,
+ factor = 1,
+ incr = 0,
+ max_retries = 3},
+ PendingTmr = 10000,
+ ReplyTmr = 16000,
+ MgConfig = [{request_timer, ReqTmr},
+ {long_request_timer, LongReqTmr},
+ {pending_timer, PendingTmr},
+ {reply_timer, ReplyTmr}],
+ {ok, Mg} = ?MG_START(MgNode, MgMid, text, tcp, MgConfig, ?MG_VERBOSITY),
+
+ i("[MG] verify transaction-id: undefined_serial"),
+ otp_5881_verify_trans_id(Mg, undefined_serial),
+
+ i("[MG] connect to the MGC (service change)"),
+ ServChRes = ?MG_SERV_CHANGE(Mg),
+ d("service change result: ~p", [ServChRes]),
+
+ i("[MG] verify transaction-id: 1"),
+ otp_5881_verify_trans_id(Mg, 1),
+
+ d("[MG] send the notify"),
+ {ok, Reply} = (catch ?MG_NOTIF_RAR(Mg)),
+ {1, {ok, [AR]}} = Reply,
+ d("[MG] ActionReply: ~p", [AR]),
+
+ i("[MG] verify transaction-id: 2"),
+ otp_5881_verify_trans_id(Mg, 2),
+
+ d("await the generator reply"),
+ await_completion([MgcId]),
+
+ %% Tell MG to stop
+ i("[MG] stop"),
+ ?MG_STOP(Mg),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_tcp_generator:stop(Mgc),
+
+ i("done", []),
+ ok.
+
+otp_5881_verify_trans_id(Mg, Expected) ->
+ case ?MG_CONN_INFO(Mg, trans_id) of
+ Expected ->
+ ok;
+ ErroneousValue ->
+ throw({unexpected_transaction_id_value, ErroneousValue, Expected})
+ end.
+
+
+-ifdef(megaco_hipe_special).
+-define(otp_5881_mgc_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(otp_5881_mgc_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(otp_5881_mgc_verify_service_change_req_msg_fun(),
+ {?MODULE, otp_5881_mgc_verify_service_change_req_msg, []}).
+-define(otp_5881_mgc_verify_notify_req_msg_fun(),
+ {?MODULE, otp_5881_mgc_verify_notify_req_msg, []}).
+-else.
+-define(otp_5881_mgc_decode_msg_fun(Mod, Conf),
+ otp_5881_mgc_decode_msg_fun(Mod, Conf)).
+-define(otp_5881_mgc_encode_msg_fun(Mod, Conf),
+ otp_5881_mgc_encode_msg_fun(Mod, Conf)).
+-define(otp_5881_mgc_verify_service_change_req_msg_fun(),
+ otp_5881_mgc_verify_service_change_req_msg_fun()).
+-define(otp_5881_mgc_verify_notify_req_msg_fun(),
+ otp_5881_mgc_verify_notify_req_msg_fun()).
+-endif.
+
+otp_5881_mgc_event_sequence(text, tcp) ->
+ DecodeFun = ?otp_5881_mgc_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?otp_5881_mgc_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"ctrl"},
+ ServiceChangeReply = otp_5881_service_change_reply_msg(Mid, 1, 0),
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReply = otp_5881_notify_reply_msg(Mid, 2, 0, TermId),
+ %% Pending = otp_5881_pending_msg(Mid,2),
+ ServiceChangeVerifyFun = ?otp_5881_mgc_verify_service_change_req_msg_fun(),
+ NotifyReqVerifyFun = ?otp_5881_mgc_verify_notify_req_msg_fun(),
+%% ServiceChangeVerifyFun = otp_5881_verify_service_change_req_msg_fun(),
+%% NotifyReqVerifyFun = otp_5881_verify_notify_request_fun(),
+ MgcEvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {listen, 2944},
+ {expect_accept, any},
+ {expect_receive, "service-change-request", {ServiceChangeVerifyFun, 10000}},
+ {send, "service-change-reply", ServiceChangeReply},
+ {expect_receive, "notify-request", {NotifyReqVerifyFun, 10000}},
+ {send, "notify-reply", NotifyReply},
+ {sleep, 2000}
+ ],
+ MgcEvSeq.
+
+-ifndef(megaco_hipe_special).
+otp_5881_mgc_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+otp_5881_mgc_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+otp_5881_service_change_reply_msg(Mid, TransId, Cid) ->
+ SCRP = #'ServiceChangeResParm'{serviceChangeMgcId = Mid},
+ SCRPs = {serviceChangeResParms,SCRP},
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = #'ServiceChangeReply'{terminationID = [Root],
+ serviceChangeResult = SCRPs},
+ CR = {serviceChangeReply, SCR},
+ otp_5881_msg(Mid, TransId, CR, Cid).
+
+otp_5881_notify_reply_msg(Mid, TransId, Cid, TermId) ->
+ NR = #'NotifyReply'{terminationID = [TermId]},
+ CR = {notifyReply, NR},
+ otp_5881_msg(Mid, TransId, CR, Cid).
+
+otp_5881_msg(Mid, TransId, CR, Cid) ->
+ AR = #'ActionReply'{contextId = Cid,
+ commandReply = [CR]},
+ ARs = {actionReplies, [AR]},
+ TR = #'TransactionReply'{transactionId = TransId,
+ transactionResult = ARs},
+ Body = {transactions, [{transactionReply, TR}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+
+%% otp_5881_pending_msg(Mid, TransId) ->
+%% TP = #'TransactionPending'{transactionId = TransId},
+%% Body = {transactions, [{transactionPending, TP}]},
+%% Mess = #'Message'{version = 1,
+%% mId = Mid,
+%% messageBody = Body},
+%% #'MegacoMessage'{mess = Mess}.
+
+
+-ifndef(megaco_hipe_special).
+otp_5881_mgc_verify_service_change_req_msg_fun() ->
+ fun(M) ->
+ otp_5881_mgc_verify_service_change_req_msg(M)
+ end.
+-endif.
+
+otp_5881_mgc_verify_service_change_req_msg(
+ #'MegacoMessage'{mess = Mess} = M) ->
+ #'Message'{version = _V,
+ mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, [Trans]} = Body,
+ {transactionRequest, TR} = Trans,
+ #'TransactionRequest'{transactionId = _Tid,
+ actions = [AR]} = TR,
+ #'ActionRequest'{contextId = _Cid,
+ contextRequest = _CtxReq,
+ contextAttrAuditReq = _CtxAar,
+ commandRequests = [CR]} = AR,
+ #'CommandRequest'{command = Cmd,
+ optional = _Opt,
+ wildcardReturn = _WR} = CR,
+ {serviceChangeReq, SCR} = Cmd,
+ #'ServiceChangeRequest'{terminationID = _TermID,
+ serviceChangeParms = SCP} = SCR,
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} = SCP,
+ {ok, M};
+otp_5881_mgc_verify_service_change_req_msg(M) ->
+ {error, {invalid_message, M}}.
+
+-ifndef(megaco_hipe_special).
+otp_5881_mgc_verify_notify_req_msg_fun() ->
+ fun(M) ->
+ otp_5881_mgc_verify_notify_req_msg(M)
+ end.
+-endif.
+
+otp_5881_mgc_verify_notify_req_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ #'Message'{messageBody = Body} = Mess,
+ {transactions, [Trans]} = Body,
+ {transactionRequest, TR} = Trans,
+ #'TransactionRequest'{actions = [AR]} = TR,
+ #'ActionRequest'{commandRequests = [CR1,CR2]} = AR,
+ #'CommandRequest'{command = Cmd1} = CR1,
+ {notifyReq, NR1} = Cmd1,
+ #'NotifyRequest'{observedEventsDescriptor = OED1} = NR1,
+ #'ObservedEventsDescriptor'{observedEventLst = [OE1]} = OED1,
+ #'ObservedEvent'{eventName = "al/of"} = OE1,
+ #'CommandRequest'{command = Cmd2} = CR2,
+ {notifyReq, NR2} = Cmd2,
+ #'NotifyRequest'{observedEventsDescriptor = OED2} = NR2,
+ #'ObservedEventsDescriptor'{observedEventLst = [OE2]} = OED2,
+ #'ObservedEvent'{eventName = "al/of"} = OE2,
+ {ok, M};
+otp_5881_mgc_verify_notify_req_msg(M) ->
+ {error, {invalid_message, M}}.
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_5887(suite) ->
+ [];
+otp_5887(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, otp_5887),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("start the MGC simulator (generator)"),
+ {ok, Mgc} = megaco_test_tcp_generator:start_link("MGC", MgcNode),
+
+ d("create the MGC event sequence"),
+ MgcEvSeq = otp_5887_mgc_event_sequence(text, tcp),
+
+ d("start the MGC simulation"),
+ {ok, MgcId} = megaco_test_tcp_generator:exec(Mgc, MgcEvSeq),
+
+ i("[MG] start"),
+ MgMid = {deviceName, "mg"},
+ ReqTmr = #megaco_incr_timer{wait_for = 3000,
+ factor = 1,
+ incr = 0,
+ max_retries = 3},
+ %% 5000, %% Does not matter since we will not use this anyway...
+ LongReqTmr = #megaco_incr_timer{wait_for = 3000,
+ factor = 1,
+ incr = 0,
+ max_retries = 3},
+ PendingTmr = 10000,
+ ReplyTmr = 16000,
+ MgConfig = [{request_timer, ReqTmr},
+ {long_request_timer, LongReqTmr},
+ {pending_timer, PendingTmr},
+ {reply_timer, ReplyTmr}],
+ {ok, Mg} = ?MG_START(MgNode, MgMid, text, tcp, MgConfig, ?MG_VERBOSITY),
+
+ i("[MG] conn info: ~n~p", [?MG_CONN_INFO(Mg, all)]),
+
+ i("[MG] verify conn transaction-id: 1"),
+ otp_5887_verify_conn_trans_id(Mg, 1),
+
+ i("[MG] user info: ~n~p", [?MG_USER_INFO(Mg, all)]),
+
+ i("[MG] verify user transaction-id: undefined_serial"),
+ otp_5887_verify_user_trans_id(Mg, undefined_serial),
+
+ i("[MG] connect to the MGC (service change)"),
+ ServChRes = ?MG_SERV_CHANGE(Mg),
+ d("service change result: ~p", [ServChRes]),
+
+ i("[MG] conn info: ~n~p", [?MG_CONN_INFO(Mg, all)]),
+
+ i("[MG] verify conn transaction-id: 2"),
+ otp_5887_verify_conn_trans_id(Mg, 2),
+
+ i("[MG] user info: ~n~p", [?MG_USER_INFO(Mg, all)]),
+
+ i("[MG] verify user transaction-id: 1"),
+ otp_5887_verify_user_trans_id(Mg, 1),
+
+ d("[MG] send the notify"),
+ {ok, Reply} = (catch ?MG_NOTIF_RAR(Mg)),
+ {1, {ok, [AR]}} = Reply,
+ d("[MG] ActionReply: ~p", [AR]),
+
+ i("[MG] conn info: ~n~p", [?MG_CONN_INFO(Mg, all)]),
+
+ i("[MG] verify conn transaction-id: 3"),
+ otp_5887_verify_conn_trans_id(Mg, 3),
+
+ i("[MG] user info: ~n~p", [?MG_USER_INFO(Mg, all)]),
+
+ i("[MG] verify user transaction-id: 2"),
+ otp_5887_verify_user_trans_id(Mg, 2),
+
+ d("await the generator reply"),
+ await_completion([MgcId]),
+
+ %% Tell MG to stop
+ i("[MG] stop"),
+ ?MG_STOP(Mg),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_tcp_generator:stop(Mgc),
+
+ i("done", []),
+ ok.
+
+
+otp_5887_verify_conn_trans_id(Mg, Expected) ->
+ F = fun() -> (catch ?MG_CONN_INFO(Mg, trans_id)) end,
+ otp_5887_verify_trans_id(F, Expected).
+
+otp_5887_verify_user_trans_id(Mg, Expected) ->
+ F = fun() -> (catch ?MG_USER_INFO(Mg, trans_id)) end,
+ otp_5887_verify_trans_id(F, Expected).
+
+otp_5887_verify_trans_id(F, Expected) ->
+ case F() of
+ Expected ->
+ ok;
+ ErroneousValue ->
+ throw({unexpected_transaction_id_value, ErroneousValue, Expected})
+ end.
+
+
+-ifdef(megaco_hipe_special).
+-define(otp_5887_mgc_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(otp_5887_mgc_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(otp_5887_mgc_verify_service_change_req_msg_fun(),
+ {?MODULE, otp_5887_mgc_verify_service_change_req_msg, []}).
+-define(otp_5887_mgc_verify_notify_req_msg_fun(),
+ {?MODULE, otp_5887_mgc_verify_notify_req_msg, []}).
+-else.
+-define(otp_5887_mgc_decode_msg_fun(Mod, Conf),
+ otp_5887_mgc_decode_msg_fun(Mod, Conf)).
+-define(otp_5887_mgc_encode_msg_fun(Mod, Conf),
+ otp_5887_mgc_encode_msg_fun(Mod, Conf)).
+-define(otp_5887_mgc_verify_service_change_req_msg_fun(),
+ otp_5887_mgc_verify_service_change_req_msg_fun()).
+-define(otp_5887_mgc_verify_notify_req_msg_fun(),
+ otp_5887_mgc_verify_notify_req_msg_fun()).
+-endif.
+
+otp_5887_mgc_event_sequence(text, tcp) ->
+ DecodeFun = ?otp_5887_mgc_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?otp_5887_mgc_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"ctrl"},
+ ServiceChangeReply = otp_5887_service_change_reply_msg(Mid, 1, 0),
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReply = otp_5887_notify_reply_msg(Mid, 2, 0, TermId),
+ ServiceChangeVerifyFun = ?otp_5887_mgc_verify_service_change_req_msg_fun(),
+ NotifyReqVerifyFun = ?otp_5887_mgc_verify_notify_req_msg_fun(),
+%% ServiceChangeVerifyFun = otp_5887_verify_service_change_req_msg_fun(),
+%% NotifyReqVerifyFun = otp_5887_verify_notify_request_fun(),
+ MgcEvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {listen, 2944},
+ {expect_accept, any},
+ {expect_receive, "service-change-request", {ServiceChangeVerifyFun, 10000}},
+ {send, "service-change-reply", ServiceChangeReply},
+ {expect_receive, "notify-request", {NotifyReqVerifyFun, 10000}},
+ {send, "notify-reply", NotifyReply},
+ {sleep, 2000}
+ ],
+ MgcEvSeq.
+
+otp_5887_service_change_reply_msg(Mid, TransId, Cid) ->
+ SCRP = #'ServiceChangeResParm'{serviceChangeMgcId = Mid},
+ SCRPs = {serviceChangeResParms,SCRP},
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = #'ServiceChangeReply'{terminationID = [Root],
+ serviceChangeResult = SCRPs},
+ CR = {serviceChangeReply, SCR},
+ otp_5887_msg(Mid, TransId, CR, Cid).
+
+otp_5887_notify_reply_msg(Mid, TransId, Cid, TermId) ->
+ NR = #'NotifyReply'{terminationID = [TermId]},
+ CR = {notifyReply, NR},
+ otp_5887_msg(Mid, TransId, CR, Cid).
+
+otp_5887_msg(Mid, TransId, CR, Cid) ->
+ AR = #'ActionReply'{contextId = Cid,
+ commandReply = [CR]},
+ ARs = {actionReplies, [AR]},
+ TR = #'TransactionReply'{transactionId = TransId,
+ transactionResult = ARs},
+ Body = {transactions, [{transactionReply, TR}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+
+%% otp_5887_pending_msg(Mid, TransId) ->
+%% TP = #'TransactionPending'{transactionId = TransId},
+%% Body = {transactions, [{transactionPending, TP}]},
+%% Mess = #'Message'{version = 1,
+%% mId = Mid,
+%% messageBody = Body},
+%% #'MegacoMessage'{mess = Mess}.
+
+
+-ifndef(megaco_hipe_special).
+otp_5887_mgc_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+%% otp_5887_mgc_encode_msg_fun(Mod, Conf, Ver) ->
+%% fun(M) ->
+%% encode_msg(M, Mod, Conf, Ver)
+%% end.
+
+-ifndef(megaco_hipe_special).
+otp_5887_mgc_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+%% otp_5887_mgc_decode_msg_fun(Mod, Conf, Ver) ->
+%% fun(M) ->
+%% decode_msg(M, Mod, Conf, Ver)
+%% end.
+
+-ifndef(megaco_hipe_special).
+otp_5887_mgc_verify_service_change_req_msg_fun() ->
+ fun(M) ->
+ otp_5887_mgc_verify_service_change_req_msg(M)
+ end.
+-endif.
+
+otp_5887_mgc_verify_service_change_req_msg(
+ #'MegacoMessage'{mess = Mess} = M) ->
+ #'Message'{version = _V,
+ mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, [Trans]} = Body,
+ {transactionRequest, TR} = Trans,
+ #'TransactionRequest'{transactionId = _Tid,
+ actions = [AR]} = TR,
+ #'ActionRequest'{contextId = _Cid,
+ contextRequest = _CtxReq,
+ contextAttrAuditReq = _CtxAar,
+ commandRequests = [CR]} = AR,
+ #'CommandRequest'{command = Cmd,
+ optional = _Opt,
+ wildcardReturn = _WR} = CR,
+ {serviceChangeReq, SCR} = Cmd,
+ #'ServiceChangeRequest'{terminationID = _TermID,
+ serviceChangeParms = SCP} = SCR,
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} = SCP,
+ {ok, M};
+otp_5887_mgc_verify_service_change_req_msg(M) ->
+ {error, {invalid_message, M}}.
+
+
+-ifndef(megaco_hipe_special).
+otp_5887_mgc_verify_notify_req_msg_fun() ->
+ fun(M) ->
+ otp_5887_mgc_verify_notify_req_msg(M)
+ end.
+-endif.
+
+otp_5887_mgc_verify_notify_req_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ #'Message'{messageBody = Body} = Mess,
+ {transactions, [Trans]} = Body,
+ {transactionRequest, TR} = Trans,
+ #'TransactionRequest'{actions = [AR]} = TR,
+ #'ActionRequest'{commandRequests = [CR1,CR2]} = AR,
+ #'CommandRequest'{command = Cmd1} = CR1,
+ {notifyReq, NR1} = Cmd1,
+ #'NotifyRequest'{observedEventsDescriptor = OED1} = NR1,
+ #'ObservedEventsDescriptor'{observedEventLst = [OE1]} = OED1,
+ #'ObservedEvent'{eventName = "al/of"} = OE1,
+ #'CommandRequest'{command = Cmd2} = CR2,
+ {notifyReq, NR2} = Cmd2,
+ #'NotifyRequest'{observedEventsDescriptor = OED2} = NR2,
+ #'ObservedEventsDescriptor'{observedEventLst = [OE2]} = OED2,
+ #'ObservedEvent'{eventName = "al/of"} = OE2,
+ {ok, M};
+otp_5887_mgc_verify_notify_req_msg(M) ->
+ {error, {invalid_message, M}}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_6253(suite) ->
+ [];
+otp_6253(Config) when is_list(Config) ->
+ ?ACQUIRE_NODES(1, Config),
+
+ put(verbosity, debug),
+ put(tc, otp_6253),
+
+ d("otp_6253 -> start test case controller",[]),
+ ok = megaco_tc_controller:start_link(),
+
+ PrelMid = preliminary_mid,
+ MgMid = ipv4_mid(4711),
+
+ ?VERIFY(ok, application:start(megaco)),
+ ?VERIFY(ok, megaco:start_user(MgMid, [{send_mod, megaco_mess_user_test},
+ {request_timer, infinity},
+ {reply_timer, infinity}])),
+
+ MgRH = user_info(MgMid, receive_handle),
+ {ok, PrelCH} = ?VERIFY({ok, _}, megaco:connect(MgRH, PrelMid, sh, self())),
+
+ connections([PrelCH]),
+ ?VERIFY([PrelCH], megaco:user_info(MgMid, connections)),
+
+ SC = service_change_request(),
+
+ %% Instruct the transport module to fail all send_message
+ d("otp_6253 -> instruct transport module to fail message send",[]),
+ ok = megaco_tc_controller:insert(allow_send_message, {fail, otp_6253}),
+
+ ?VERIFY({1, {error, {send_message_failed, otp_6253}}},
+ megaco:call(PrelCH, [SC], [])),
+
+ sleep(1000),
+
+ %% Instruct the transport module to cancel all send_message
+ d("otp_6253 -> instruct transport module to cancel message send",[]),
+ ok = megaco_tc_controller:insert(allow_send_message, {cancel, otp_6253}),
+
+ ?VERIFY({1, {error, {send_message_cancelled, otp_6253}}},
+ megaco:call(PrelCH, [SC], [])),
+
+ ?VERIFY(ok, megaco:disconnect(PrelCH, shutdown)),
+
+ ?VERIFY(ok, megaco:stop_user(MgMid)),
+ ?VERIFY(ok, application:stop(megaco)),
+ ?RECEIVE([]),
+ ok.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_6275(suite) ->
+ [];
+otp_6275(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, otp_6275),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("start the MGC simulator (generator)"),
+ {ok, Mgc} = megaco_test_tcp_generator:start_link("MGC", MgcNode),
+
+ d("create the MGC event sequence"),
+ MgcEvSeq = otp_6275_mgc_event_sequence(text, tcp),
+
+ d("start the MGC simulation"),
+ {ok, MgcId} = megaco_test_tcp_generator:exec(Mgc, MgcEvSeq),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = otp_6275_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ d("[MGC] await the generator reply"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_tcp_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_6275_mg_verify_handle_connect_fun(),
+ {?MODULE, otp_6275_mg_verify_handle_connect, []}).
+-define(otp_6275_mg_verify_notify_req_fun(),
+ {?MODULE, otp_6275_mg_verify_notify_req, []}).
+-define(otp_6275_mg_verify_handle_trans_rep_fun(),
+ {?MODULE, otp_6275_mg_verify_handle_trans_rep, []}).
+-else.
+-define(otp_6275_mg_verify_handle_connect_fun(),
+ otp_6275_mg_verify_handle_connect_fun()).
+-define(otp_6275_mg_verify_notify_req_fun(),
+ otp_6275_mg_verify_notify_req_fun()).
+-define(otp_6275_mg_verify_handle_trans_rep_fun(),
+ otp_6275_mg_verify_handle_trans_rep_fun()).
+-endif.
+
+otp_6275_mg_event_sequence(text, tcp) ->
+ Mid = {deviceName,"mg"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ otp_6275_mg_event_sequence2(Mid, RI).
+
+otp_6275_mg_event_sequence2(Mid, RI) ->
+ ServiceChangeReq = [otp_6275_mg_service_change_request_ar(Mid, 1)],
+ _Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ ConnectVerify = ?otp_6275_mg_verify_handle_connect_fun(),
+ NotifyReqVerify = ?otp_6275_mg_verify_notify_req_fun(),
+ TransReplyVerify = ?otp_6275_mg_verify_handle_trans_rep_fun(),
+%% ConnectVerify = otp_6275_mg_verify_handle_connect_fun(),
+%% NotifyReqVerify = otp_6275_mg_verify_notify_request_fun(),
+%% TransReplyVerify = otp_6275_mg_verify_trans_reply_fun(),
+ EvSeq = [
+ {debug, true},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ %% {megaco_update_user_info, recv_pending_limit, 4},
+ {megaco_update_user_info, request_timer, 3000},
+ start_transport,
+ {megaco_trace, disable}, %%100},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, ServiceChangeReq, []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_request, NotifyReqVerify},
+ {megaco_callback, handle_trans_reply, TransReplyVerify},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+otp_6275_mg_verify_handle_connect_fun() ->
+ fun(Event) ->
+ (catch otp_6275_mg_verify_handle_connect(Event))
+ end.
+-endif.
+
+otp_6275_mg_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("otp_6275_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+otp_6275_mg_verify_handle_connect(Else) ->
+ io:format("otp_6275_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+-ifndef(megaco_hipe_special).
+otp_6275_mg_verify_notify_req_fun() ->
+ fun(Event) ->
+ (catch otp_6275_mg_verify_notify_req(Event))
+ end.
+-endif.
+
+otp_6275_mg_verify_notify_req(
+ {handle_trans_request, _CH, ?VERSION, [AR]}) ->
+ io:format("otp_6275_mg_verify_notify_req -> entry with"
+ "~n AR: ~p"
+ "~n", [AR]),
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ ET1 = lists:flatten(
+ io_lib:format("Invalid action request: ~w", [AR])),
+ EC1 = ?megaco_internal_gateway_error,
+ ED1 = #'ErrorDescriptor'{errorCode = EC1,
+ errorText = ET1},
+ throw({error, {invalid_ActionRequest, AR}, {discard_ack, ED1}})
+ end,
+
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ ET2 = lists:flatten(
+ io_lib:format("Invalid command request: ~w", [CR])),
+ EC2 = ?megaco_internal_gateway_error,
+ ED2 = #'ErrorDescriptor'{errorCode = EC2,
+ errorText = ET2},
+ throw({error, {invalid_CommandRequest, CR}, {discard_ack, ED2}})
+ end,
+
+ case Cmd of
+ {notifyReq, NotifyReq} ->
+ ET3 = "Unexpected request",
+ EC3 = ?megaco_transaction_req_received_before_servicechange_reply,
+ ED3 = #'ErrorDescriptor'{errorCode = EC3,
+ errorText = ET3},
+ throw({ok, {ok, NotifyReq}, {discard_ack, ED3}});
+ _ ->
+ ET4 = lists:flatten(
+ io_lib:format("Invalid command: ~w", [Cmd])),
+ EC4 = ?megaco_internal_gateway_error,
+ ED4 = #'ErrorDescriptor'{errorCode = EC4,
+ errorText = ET4},
+ throw({error, {invalid_command, Cmd}, {discard_ack, ED4}})
+ end;
+otp_6275_mg_verify_notify_req({Tag, CH, Version, ARs}) ->
+ io:format("otp_6275_mg_verify_notify_req -> ok"
+ "~n Tag: ~p"
+ "~n CH: ~p"
+ "~n Version: ~p"
+ "~n ARs: ~p"
+ "~n", [Tag, CH, Version, ARs]),
+ {error, {invalid_event, {Tag, CH, Version, ARs}}, ok};
+otp_6275_mg_verify_notify_req(Else) ->
+ io:format("otp_6275_mg_verify_notify_req -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+-ifndef(megaco_hipe_special).
+otp_6275_mg_verify_handle_trans_rep_fun() ->
+ fun(Event) ->
+ (catch otp_6275_mg_verify_handle_trans_rep(Event))
+ end.
+-endif.
+
+otp_6275_mg_verify_handle_trans_rep(
+ {handle_trans_reply, CH, ?VERSION, {error, timeout} = Error, _}) ->
+ io:format("otp_6275_mg_verify_trans_rep -> expected error"
+ "~n", []),
+ case CH of
+ #megaco_conn_handle{remote_mid = preliminary_mid} ->
+ {ok, Error, error};
+ _ ->
+ {error, {unexpected_connection, CH}, error}
+ end;
+otp_6275_mg_verify_handle_trans_rep(
+ {handle_trans_reply, _CH, ?VERSION, Error, _}) ->
+ io:format("otp_6275_mg_verify_handle_trans_rep -> unexpected error"
+ "~n Error: ~p"
+ "~n", [Error]),
+ {error, Error, error};
+otp_6275_mg_verify_handle_trans_rep(Else) ->
+ io:format("otp_6275_mg_verify_handle_trans_rep -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, error}.
+
+otp_6275_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+%%
+%% MGC generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_6275_mgc_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(otp_6275_mgc_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(otp_6275_mgc_verify_service_change_req_msg_fun(),
+ {?MODULE, otp_6275_mgc_verify_service_change_req_msg, []}).
+-define(otp_6275_mgc_verify_notify_rep_msg_fun(),
+ {?MODULE, otp_6275_mgc_verify_notify_rep_msg, []}).
+-else.
+-define(otp_6275_mgc_decode_msg_fun(Mod, Conf),
+ otp_6275_mgc_decode_msg_fun(Mod, Conf)).
+-define(otp_6275_mgc_encode_msg_fun(Mod, Conf),
+ otp_6275_mgc_encode_msg_fun(Mod, Conf)).
+-define(otp_6275_mgc_verify_service_change_req_msg_fun(),
+ otp_6275_mgc_verify_service_change_req_msg_fun()).
+-define(otp_6275_mgc_verify_notify_rep_msg_fun(),
+ otp_6275_mgc_verify_notify_rep_msg_fun()).
+-endif.
+
+otp_6275_mgc_event_sequence(text, tcp) ->
+ DecodeFun = ?otp_6275_mgc_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?otp_6275_mgc_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"ctrl"},
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = otp_6275_mgc_notify_request_msg(Mid, 2, 1, TermId, 1),
+ SCRVerifyFun = ?otp_6275_mgc_verify_service_change_req_msg_fun(),
+ NotifyReplyVerifyFun = ?otp_6275_mgc_verify_notify_rep_msg_fun(),
+%% SCRVerifyFun = otp_6275_mgc_verify_service_change_req_fun(),
+%% NotifyReplyVerifyFun = otp_6275_mgc_verify_notify_reply_fun(),
+ MgcEvSeq =
+ [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {listen, 2944},
+
+ {expect_accept, any},
+ {expect_receive, "service-change-request", {SCRVerifyFun, 5000}},
+ {sleep, 1000}, %% Do _not_ send SC reply
+ {send, "notify-request", NotifyReq},
+ {expect_receive, "request before sc reply", {NotifyReplyVerifyFun, 5000}},
+ {sleep, 2000}
+ ],
+ MgcEvSeq.
+
+-ifndef(megaco_hipe_special).
+otp_6275_mgc_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+%% otp_6275_mgc_encode_msg_fun(Mod, Conf, Ver) ->
+%% fun(M) ->
+%% encode_msg(M, Mod, Conf, Ver)
+%% end.
+
+-ifndef(megaco_hipe_special).
+otp_6275_mgc_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+%% otp_6275_mgc_decode_msg_fun(Mod, Conf, Ver) ->
+%% fun(M) ->
+%% decode_msg(M, Mod, Conf, Ver)
+%% end.
+
+-ifndef(megaco_hipe_special).
+otp_6275_mgc_verify_service_change_req_msg_fun() ->
+ fun(M) ->
+ (catch otp_6275_mgc_verify_service_change_req_msg(M))
+ end.
+-endif.
+
+otp_6275_mgc_verify_service_change_req_msg(
+ #'MegacoMessage'{mess = Mess} = M) ->
+ io:format("otp_6275_mgc_verify_service_change_req_msg -> entry with"
+ "~n M: ~p"
+ "~n", [M]),
+ Body =
+ case Mess of
+ #'Message'{messageBody = MB} ->
+ MB;
+ _ ->
+ throw({error, {invalid_mess, Mess}})
+ end,
+
+ Trans =
+ case Body of
+ {transactions, [Transaction]} ->
+ Transaction;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+
+ TR =
+ case Trans of
+ {transactionRequest, TransReq} ->
+ TransReq;
+ _ ->
+ throw({error, {invalid_transaction, Trans}})
+ end,
+
+ AR =
+ case TR of
+ #'TransactionRequest'{actions = [ActionReq]} ->
+ ActionReq;
+ _ ->
+ throw({error, {invalid_transactionRequest, TR}})
+ end,
+
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ throw({error, {invalid_TransactionRequest, AR}})
+ end,
+
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ throw({error, {invalid_ActionRequest, CR}})
+ end,
+
+ SCR =
+ case Cmd of
+ {serviceChangeReq, ServiceChangeReq} ->
+ ServiceChangeReq;
+ _ ->
+ throw({error, {invalid_command, Cmd}})
+ end,
+
+ SCP =
+ case SCR of
+ #'ServiceChangeRequest'{serviceChangeParms = ServiceChangeParms} ->
+ ServiceChangeParms;
+ _ ->
+ throw({error, {invalid_serviceChangeReq, SCR}})
+ end,
+
+ case SCP of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeParms, SCP}}
+ end;
+otp_6275_mgc_verify_service_change_req_msg(Crap) ->
+ {error, {invalid_MegacoMessage, Crap}}.
+
+-ifndef(megaco_hipe_special).
+otp_6275_mgc_verify_notify_rep_msg_fun() ->
+ fun(M) ->
+ (catch otp_6275_mgc_verify_notify_rep_msg(M))
+ end.
+-endif.
+
+otp_6275_mgc_verify_notify_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ io:format("otp_6275_mgc_verify_notify_rep_msg -> entry with"
+ "~n M: ~p"
+ "~n", [M]),
+ Body =
+ case Mess of
+ #'Message'{messageBody = MB} ->
+ MB;
+ _ ->
+ throw({error, {invalid_mess, Mess}})
+ end,
+
+ Trans =
+ case Body of
+ {transactions, [Transaction]} ->
+ Transaction;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transaction, Trans}})
+ end,
+
+ Res =
+ case TR of
+ #'TransactionReply'{transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+
+ ED =
+ case Res of
+ {transactionError, ErrorDesc} ->
+ ErrorDesc;
+ _ ->
+ throw({error, {invalid_TransactionReply, Res}})
+ end,
+
+ case ED of
+ #'ErrorDescriptor'{errorCode = ?megaco_transaction_req_received_before_servicechange_reply} ->
+ ok;
+ _ ->
+ throw({error, {invalid_transactionError, ED}})
+ end,
+ {ok, M};
+otp_6275_mgc_verify_notify_rep_msg(Crap) ->
+ {error, {invalid_MegacoMessage, Crap}}.
+
+
+otp_6275_mgc_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_6275_mgc_notify_request_msg(Mid, TransId, Cid, TermId, Rid) ->
+ AR = otp_6275_mgc_notify_request_ar(Rid, TermId, Cid),
+ otp_6275_msg(Mid, TransId, AR).
+
+
+%% --
+
+otp_6275_msg(Mid, TransId, AR) ->
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(1, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%% This test case can only be run with the stack compiled with
+%% the MEGACO_TEST_CODE flag. Therefor there is no point in
+%% including this test case in the usual test suite
+-ifdef(MEGACO_TEST_CODE).
+otp_6276(suite) ->
+ [];
+otp_6276(doc) ->
+ "OTP-6276: Cancel when receiving reply raise condition";
+otp_6276(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, otp_6276),
+ i("starting"),
+
+ d("create sequence controller"),
+ CtrlPid = otp_6276_sequence_controller_start(),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_tcp_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = otp_6276_mgc_event_sequence(text, tcp, CtrlPid),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the tcp-simulation"),
+ {ok, MgcId} = megaco_test_tcp_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("send start order to sequence controller"),
+ CtrlPid ! {start, self(), Mgc, Mg},
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = otp_6276_mg_event_sequence(text, tcp, CtrlPid),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the megaco-simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId]),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_tcp_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+otp_6276_sequence_controller_start() ->
+ Self = self(),
+ erlang:spawn(fun() -> otp_6276_sequence_controller(Self) end).
+
+otp_6276_sequence_controller(Parent) ->
+ io:format("otp_6276_sequence_controller -> entry with"
+ "~n Parent: ~p"
+ "~n self(): ~p"
+ "~n", [Parent, self()]),
+
+ d("start tc controller"),
+ put(dbg,true),
+ ok = megaco_tc_controller:start_link(),
+
+
+ %% Await MGC announcement
+ Mgc =
+ receive
+ {announce_mgc, MgcPid} ->
+ MgcPid
+ end,
+ io:format("otp_6276_sequence_controller -> MGC announced: "
+ "~n Mgc: ~p"
+ "~n", [Mgc]),
+
+ %% Await MG announcement
+ Mg =
+ receive
+ {announce_mg, MgPid} ->
+ MgPid
+ end,
+ io:format("otp_6276_sequence_controller -> MG announced: "
+ "~n Mg: ~p"
+ "~n", [Mg]),
+
+ %% Await request_received notification
+ receive
+ {notify_request_received, Mgc} ->
+ io:format("otp_6276_sequence_controller -> "
+ "request received from MGC (~p)"
+ "~n", [Mgc]),
+ ok
+ end,
+
+ %% Make sure the cancel operation gets blocked midway:
+ megaco_tc_controller:insert(block_on_cancel, {cancel_block, self()}),
+
+ %% Send start cancel order
+ io:format("otp_6276_sequence_controller -> "
+ "send cancel start order to MG (~p)"
+ "~n", [Mg]),
+ Mg ! {start_cancel, self()},
+ receive
+ {started_cancel, Mg} ->
+ ok
+ end,
+ io:format("otp_6276_sequence_controller -> "
+ "cancel started - now await blocked"
+ "~n", []),
+
+ receive
+ {cancel_block, Mg} ->
+ ok
+ end,
+ io:format("otp_6276_sequence_controller -> "
+ "cancel blocked - now instruct MGC to send notify reply"
+ "~n", []),
+
+ %% Make sure the cancel operation gets blocked midway:
+ megaco_tc_controller:insert(block_on_reply, {reply_block, self()}),
+
+ %% Send NR-send order
+ Mgc ! {notify_reply_send, self()},
+ io:format("otp_6276_sequence_controller -> "
+ "NR-send order sent - now await notify reply blocked received"
+ "~n", []),
+
+ ReplyPid =
+ receive
+ {reply_block, Pid, true} ->
+ io:format("otp_6276_sequence_controller -> "
+ "notify reply blocked received from ~p (true) - "
+ "now unblock cancel"
+ "~n", [Pid]),
+ %% Pid ! {reply_block, self()},
+ Pid;
+ {reply_block, Pid, Info} ->
+ io:format("otp_6276_sequence_controller -> "
+ "notify reply blocked received from ~p: ~p"
+ "~n", [Pid, Info]),
+ Pid ! {reply_block, self()},
+ exit({unexpected_reply_block_info, Info})
+ end,
+
+ %% Send cancel continue (unblock) order
+ Mg ! {cancel_block, self()},
+ io:format("otp_6276_sequence_controller -> "
+ "cancel unblocked - now await notify-request cancelled"
+ "~n", []),
+
+ %% Await request cancelled
+ receive
+ {notify_request_cancelled, Mg} ->
+ ok;
+ {notify_request_cancelled, Pid} ->
+ io:format("otp_6276_sequence_controller -> "
+ "notify-request cancelled - from ~p"
+ "~n", [Pid]),
+ ok
+ end,
+ io:format("otp_6276_sequence_controller -> "
+ "notify-request cancelled - now unblock notify-reply"
+ "~n", []),
+
+ %% await notify reply result
+ ReplyPid ! {reply_block, self()},
+ io:format("otp_6276_sequence_controller -> "
+ "notify-reply unblocked - now await unexpected trans"
+ "~n", []),
+
+ %% Await unexpected trans
+ receive
+ {unexpected_trans, Mg, _Trans} ->
+ ok;
+ {unexpected_trans, Pid, _Trans} ->
+ io:format("otp_6276_sequence_controller -> "
+ "unexpected_trans - from ~p"
+ "~n", [Pid]),
+ ok
+ end,
+ io:format("otp_6276_sequence_controller -> "
+ "unexpected transaction received"
+ "~n", []),
+
+ %% Await unexpected trans
+ Mgc ! {done, self()},
+ receive
+ {done, Mgc} ->
+ ok
+ end,
+ io:format("otp_6276_sequence_controller -> MGC instructed we are done"
+ "~n", []),
+
+ d("stop tc controller"),
+ megaco_tc_controller:stop(),
+
+ io:format("otp_6276_sequence_controller -> done~n", []),
+
+ exit(normal).
+
+
+%%
+%% MGC generator stuff
+%%
+otp_6276_mgc_event_sequence(text, tcp, Ctrl) ->
+ Mid = {deviceName,"ctrl"},
+ EM = megaco_pretty_text_encoder,
+ EC = [],
+ otp_6276_mgc_event_sequence2(Mid, EM, EC, Ctrl).
+
+otp_6276_mgc_event_sequence2(Mid, EM, EC, Ctrl) ->
+ DecodeFun = otp_6276_mgc_decode_msg_fun(EM, EC),
+ EncodeFun = otp_6276_mgc_encode_msg_fun(EM, EC),
+ AnnounceMe = otp_6276_mgc_announce_fun(Ctrl),
+ ServiceChangeReqVerify =
+ otp_6276_mgc_verify_service_change_req_fun(Mid),
+ ServiceChangeReply =
+ otp_6276_mgc_service_change_reply_msg(Mid, 1, 0),
+ NotifyReqVerify = otp_6276_mgc_verify_notify_request_fun(Ctrl),
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ AwaitNrSendOrder = otp_6276_mgc_await_notify_reply_send_order_fun(Ctrl),
+ NotifyReply = otp_6276_mgc_notify_reply_msg(Mid, 2, 0, TermId),
+ AwaitDoneOrder = otp_6276_mgc_await_done_order_fun(Ctrl),
+ EvSeq =
+ [
+ {trigger, AnnounceMe},
+ {debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {listen, 2944},
+ {expect_accept, any},
+ {expect_receive, "service-change-req",
+ {ServiceChangeReqVerify, 10000}},
+ {send, "service-change-reply", ServiceChangeReply},
+ {expect_receive, "notify-request", {NotifyReqVerify, 5000}},
+
+ {trigger, AwaitNrSendOrder},
+
+ {send, "notify-reply", NotifyReply},
+
+ {trigger, AwaitDoneOrder},
+
+ disconnect
+ ],
+ EvSeq.
+
+otp_6276_mgc_announce_fun(Pid) ->
+ fun() ->
+ Pid ! {announce_mgc, self()}
+ end.
+
+otp_6276_mgc_await_notify_reply_send_order_fun(Pid) ->
+ fun() ->
+ receive
+ {notify_reply_send, Pid} ->
+ Pid ! {notify_reply_send, self()}
+ end
+ end.
+
+otp_6276_mgc_await_done_order_fun(Pid) ->
+ fun() ->
+ receive
+ {done, Pid} ->
+ Pid ! {done, self()}
+ end
+ end.
+
+otp_6276_mgc_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ Mod:encode_message(Conf, M)
+ end.
+
+otp_6276_mgc_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ Mod:decode_message(Conf, M)
+ end.
+
+otp_6276_mgc_service_change_reply_msg(Mid, TransId, Cid) ->
+ SCRP = #'ServiceChangeResParm'{serviceChangeMgcId = Mid},
+ SCRPs = {serviceChangeResParms,SCRP},
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = #'ServiceChangeReply'{terminationID = [Root],
+ serviceChangeResult = SCRPs},
+ CR = {serviceChangeReply, SCR},
+ otp_6276_mgc_msg(Mid, TransId, CR, Cid).
+
+otp_6276_mgc_notify_reply_msg(Mid, TransId, Cid, TermId) ->
+ NR = #'NotifyReply'{terminationID = [TermId]},
+ CR = {notifyReply, NR},
+ otp_6276_mgc_msg(Mid, TransId, CR, Cid).
+
+otp_6276_mgc_msg(Mid, TransId, CR, Cid) ->
+ AR = #'ActionReply'{contextId = Cid,
+ commandReply = [CR]},
+ ARs = {actionReplies, [AR]},
+ TR = #'TransactionReply'{transactionId = TransId,
+ transactionResult = ARs},
+ Body = {transactions, [{transactionReply, TR}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+otp_6276_mgc_pending_msg(Mid, TransId) ->
+ TP = #'TransactionPending'{transactionId = TransId},
+ Body = {transactions, [{transactionPending, TP}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+otp_6276_mgc_verify_service_change_req_fun(_) ->
+ fun(#'MegacoMessage'{mess = Mess} = M) ->
+ #'Message'{version = _V,
+ mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, [Trans]} = Body,
+ {transactionRequest, TR} = Trans,
+ #'TransactionRequest'{transactionId = _Tid,
+ actions = [AR]} = TR,
+ #'ActionRequest'{contextId = _Cid,
+ contextRequest = _CtxReq,
+ contextAttrAuditReq = _CtxAar,
+ commandRequests = [CR]} = AR,
+ #'CommandRequest'{command = Cmd,
+ optional = _Opt,
+ wildcardReturn = _WR} = CR,
+ {serviceChangeReq, SCR} = Cmd,
+ #'ServiceChangeRequest'{terminationID = _TermID,
+ serviceChangeParms = SCP} = SCR,
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} = SCP,
+ {ok, M};
+ (M) ->
+ {error, {invalid_message, M}}
+ end.
+
+otp_6276_mgc_verify_notify_request_fun(Pid) ->
+ fun(M) ->
+ (catch otp_6276_mgc_verify_notify_request(M, Pid))
+ end.
+
+otp_6276_mgc_verify_notify_request(#'MegacoMessage'{mess = Mess} = M,
+ Pid) ->
+ io:format("otp_6276_mgc_verify_notify_request -> entry with"
+ "~n M: ~p"
+ "~n", [M]),
+ Body =
+ case Mess of
+ #'Message'{messageBody = MessageBody} ->
+ MessageBody;
+ _ ->
+ throw({error, {invalid_mess, Mess}})
+ end,
+
+ Trans =
+ case Body of
+ {transactions, [Transaction]} ->
+ Transaction;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+
+ TR =
+ case Trans of
+ {transactionRequest, TransReq} ->
+ TransReq;
+ _ ->
+ throw({error, {invalid_transaction, Trans}})
+ end,
+
+ AR =
+ case TR of
+ #'TransactionRequest'{actions = [Action]} ->
+ Action;
+ _ ->
+ throw({error, {invalid_transactionRequest, TR}})
+ end,
+
+ io:format("otp_6276_mgc_verify_notify_request -> "
+ "~n AR: ~p"
+ "~n", [AR]),
+
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CommandReq]} ->
+ CommandReq;
+ _ ->
+ throw({error, {invalid_TransactionRequest, AR}})
+ end,
+
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ throw({error, {invalid_ActionRequest, CR}})
+ end,
+
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ throw({error, {invalid_CommandRequest, Cmd}})
+ end,
+
+ OED =
+ case NR of
+ #'NotifyRequest'{observedEventsDescriptor = ObsEvDesc} ->
+ ObsEvDesc;
+ _ ->
+ throw({error, {invalid_notifyReq, NR}})
+ end,
+
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEv]} ->
+ ObsEv;
+ _ ->
+ throw({error, {invalid_NotifyRequest, OED}})
+ end,
+
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ ok;
+ _ ->
+ throw({error, {invalid_ObservedEventsDescriptor, OE}})
+ end,
+ io:format("otp_6276_mgc_verify_notify_request -> "
+ "send notify_request received to "
+ "~n Pid: ~p"
+ "~n self(): ~p"
+ "~n", [Pid, self()]),
+ Pid ! {notify_request_received, self()},
+ {ok, M};
+otp_6276_mgc_verify_notify_request(M, _Pid) ->
+ {error, {invalid_message, M}}.
+
+
+%%
+%% MG generator stuff
+%%
+otp_6276_mg_event_sequence(text, tcp, Ctrl) ->
+ Mid = {deviceName,"mg"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ otp_6276_mg_event_sequence2(Mid, RI, Ctrl).
+
+otp_6276_mg_event_sequence2(Mid, RI, Ctrl) ->
+ AnnounceMe = otp_6276_mg_announce_fun(Ctrl),
+ ServiceChangeReq = [otp_6276_mg_service_change_request_ar(Mid, 1)],
+ ConnectVerify = fun otp_6276_mg_verify_handle_connect/1,
+ ServiceChangeReplyVerify =
+ fun otp_6276_mg_verify_service_change_reply/1,
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = [otp_6276_mg_notify_request_ar(1, Tid, 1)],
+ AwaitCancelOrder = otp_6276_mg_await_cancel_order_fun(Ctrl),
+ TransReplyVerify = otp_6276_mg_verify_trans_reply_fun(Ctrl),
+ UnexpTransVerify = otp_6276_mg_verify_unexpected_trans_fun(Ctrl),
+ EvSeq = [
+ {trigger, AnnounceMe},
+ {debug, true},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, recv_pending_limit, 4},
+ start_transport,
+ {megaco_trace, disable}, %%100},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, ServiceChangeReq, []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+ {sleep, 1000},
+ {megaco_cast, NotifyReq, []},
+
+ {trigger, AwaitCancelOrder},
+
+ {megaco_cancel, otp_6276},
+
+ {megaco_callback, handle_trans_reply, TransReplyVerify},
+ {megaco_callback, handle_unexpected_trans, UnexpTransVerify},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+otp_6276_mg_announce_fun(Pid) ->
+ fun() ->
+ Pid ! {announce_mg, self()}
+ end.
+
+otp_6276_mg_await_cancel_order_fun(Pid) ->
+ fun() ->
+ io:format("otp_6276_mg_await_cancel_order_fun -> entry with"
+ "~n Pid: ~p"
+ "~n self(): ~p"
+ "~n", [Pid, self()]),
+ receive
+ {start_cancel, Pid} ->
+ io:format("otp_6276_mg_await_cancel_order_fun -> "
+ "received cancel start order"
+ "~n Pid: ~p"
+ "~n self(): ~p"
+ "~n", [Pid, self()]),
+ Pid ! {started_cancel, self()}
+ end
+ end.
+
+otp_6276_mg_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("otp_6276_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+otp_6276_mg_verify_handle_connect(Else) ->
+ io:format("otp_6276_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+otp_6276_mg_verify_service_change_reply({handle_trans_reply, _CH,
+ ?VERSION,
+ {ok, [AR]}, _}) ->
+ io:format("otp_6276_mg_verify_service_change_reply -> ok"
+ "~n AR: ~p~n", [AR]),
+ case AR of
+ #'ActionReply'{commandReply = [SCR]} ->
+ case SCR of
+ {serviceChangeReply,
+ #'ServiceChangeReply'{terminationID = [Tid],
+ serviceChangeResult = Res}} ->
+ case Tid of
+ #megaco_term_id{contains_wildcards = false,
+ id = ["root"]} ->
+ case Res of
+ {serviceChangeResParms,
+ #'ServiceChangeResParm'{
+ serviceChangeMgcId = _RemoteMid}} ->
+ {ok, AR, ok};
+ {Tag, Val} ->
+ Err = {invalid_service_change_result,
+ Tag, Val},
+ {error, Err, ok}
+ end;
+ _ ->
+ Err = {invalid_termination_id, Tid},
+ {error, Err, ok}
+ end;
+ {Tag, Val} ->
+ Err = {invalid_command_reply, Tag, Val},
+ {error, Err, ok}
+ end;
+ _ ->
+ Err = {invalid_action_reply, AR},
+ {error, Err, ok}
+ end;
+otp_6276_mg_verify_service_change_reply(Else) ->
+ io:format("otp_6276_mg_verify_service_change_reply -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+otp_6276_mg_verify_trans_reply_fun(Pid) ->
+ fun(Event) ->
+ otp_6276_mg_verify_trans_reply(Pid, Event)
+ end.
+
+otp_6276_mg_verify_trans_reply(Pid,
+ {handle_trans_reply, _CH, ?VERSION,
+ {error, {user_cancel, otp_6276}} = E, _}) ->
+ io:format("otp_6276_mg_verify_trans_reply -> expected error"
+ "~n", []),
+ Pid ! {notify_request_cancelled, self()},
+ {ok, E, error};
+otp_6276_mg_verify_trans_reply(_Pid,
+ {handle_trans_reply, _CH, ?VERSION,
+ {error, Reason} = E, _}) ->
+ io:format("otp_6276_mg_verify_trans_reply -> unexpected error"
+ "~n Reason: ~p"
+ "~n", [Reason]),
+ {error, E, error};
+otp_6276_mg_verify_trans_reply(_Pid,
+ {handle_trans_reply, _CH, ?VERSION, Result, _}) ->
+ io:format("otp_6276_mg_verify_trans_reply -> unexpected result"
+ "~n Result: ~p"
+ "~n", [Result]),
+ {error, Result, error};
+otp_6276_mg_verify_trans_reply(_Pid, Else) ->
+ io:format("otp_6276_mg_verify_trans_reply -> unknown event"
+ "~n Else: ~p"
+ "~n", [Else]),
+ {error, Else, error}.
+
+otp_6276_mg_verify_unexpected_trans_fun(Pid) ->
+ fun(Event) ->
+ otp_6276_mg_verify_unexpected_trans(Pid, Event)
+ end.
+
+otp_6276_mg_verify_unexpected_trans(Pid,
+ {handle_unexpected_trans, RH, ?VERSION, Trans}) ->
+ io:format("otp_6276_mg_verify_unexpected_trans -> expected event"
+ "~n RH: ~p"
+ "~n Trans: ~p"
+ "~n", [RH, Trans]),
+ Pid ! {unexpected_trans, self(), Trans},
+ {ok, Trans, error};
+otp_6276_mg_verify_unexpected_trans(_Pid, Else) ->
+ io:format("otp_6276_mg_verify_unexpected_trans -> unknown event"
+ "~n Else: ~p"
+ "~n", [Else]),
+ {error, Else, error}.
+
+otp_6276_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_6276_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+-else. % -ifdef(MEGACO_TEST_CODE).
+
+otp_6276(suite) ->
+ [];
+otp_6276(doc) ->
+ "OTP-6276";
+otp_6276(Config) when is_list(Config) ->
+
+ ?SKIP("included only if compiled with USE_MEGACO_TEST_CODE=true").
+
+-endif. % -ifdef(MEGACO_TEST_CODE).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+otp_6442_resend_request1(suite) ->
+ [];
+otp_6442_resend_request1(Config) when is_list(Config) ->
+ put(verbosity, debug),
+ put(sname, "TEST"),
+ put(tc, otp6442rreq1),
+ i("starting"),
+
+ MgNode = make_node_name(mg),
+ d("start (MG) node: ~p", [MgNode]),
+ ok = megaco_test_lib:start_nodes([MgNode], ?FILE, ?LINE),
+
+ d("[MG] start the simulator "),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgMid = {deviceName,"mg"},
+ MgEvSeq = otp_6442_resend_request1_mg_event_sequence(MgMid),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ i("await the transport module service change send_message event"),
+ Pid = otp_6442_expect(fun otp_6442_rsrq1_verify_scr_msg/1, 5000),
+
+ i("wait some before issuing the service change reply"),
+ sleep(500),
+
+ i("send the service change reply"),
+ MgcMid = {deviceName,"mgc"},
+ ServiceChangeReply = otp_6442_mgc_service_change_reply_msg(MgcMid, 1, 1),
+ megaco_test_generic_transport:incomming_message(Pid, ServiceChangeReply),
+
+ i("await the transport module "
+ "notify-request send_message event from MG: "
+ "ignore"),
+ ok = otp_6442_expect(fun otp_6442_rsrq1_verify_first_nr_msg/1, 5000),
+
+ i("await the transport module "
+ "notify-request resend_message event from MG: "
+ "reply"),
+ {TransId2, Cid2, TermId2} =
+ otp_6442_expect(fun otp_6442_rsrq1_verify_second_nr_msg/1, 10000),
+
+ i("wait some before issuing the notify reply"),
+ sleep(500),
+
+ i("send the notify reply"),
+ NotifyReply =
+ otp_6442_mgc_notify_reply_msg(MgcMid, TransId2, Cid2, TermId2),
+ megaco_test_generic_transport:incomming_message(Pid, NotifyReply),
+
+ d("await the generator reply"),
+ await_completion([MgId]),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+otp_6442_expect(Verify, Timeout) when (Timeout > 0) ->
+ T = mtime(),
+ receive
+ Msg ->
+ case (catch Verify(Msg)) of
+ {ok, Result} ->
+ d("verified after ~p msec", [mtime() - T]),
+ Result;
+ skip ->
+ otp_6442_expect(Verify, to(Timeout, T));
+ {error, Reason} ->
+ exit({verification_failed, Reason})
+ end
+ after Timeout ->
+ exit(timeout)
+ end;
+otp_6442_expect(_, _Timeout) ->
+ exit(timeout).
+
+otp_6442_rsrq1_verify_scr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected service change request message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, Pid};
+otp_6442_rsrq1_verify_scr_msg(
+ {transport_event, {send_message, _SH, BadMsg}, _Pid}) ->
+ io:format("otp_6442_rsrq1_verify_scr_msg -> error: "
+ "~n BadMsg: ~p"
+ "~n", [BadMsg]),
+ {error, {invalid_message, BadMsg}};
+otp_6442_rsrq1_verify_scr_msg({transport_event, BadEvent, _Pid}) ->
+ io:format("otp_6442_rsrq1_verify_scr_msg -> error: "
+ "~n BadEvent: ~p"
+ "~n", [BadEvent]),
+ {error, {invalid_message, BadEvent}};
+otp_6442_rsrq1_verify_scr_msg(Msg) ->
+ io:format("otp_6442_rsrq1_verify_scr_msg -> error: "
+ "~n Msg: ~p"
+ "~n", [Msg]),
+ {error, {invalid_message, Msg}}.
+
+otp_6442_rsrq1_verify_first_nr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected first notify request send message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, ok};
+otp_6442_rsrq1_verify_first_nr_msg(Msg) ->
+ io:format("otp_6442_rsrq1_verify_nr_msg -> error: "
+ "~n Msg: ~p"
+ "~n", [Msg]),
+ {error, {invalid_message, Msg}}.
+
+otp_6442_rsrq1_verify_second_nr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ io:format("otp_6442_rsrq1_verify_second_nr_msg -> "
+ "entry when received expected message with"
+ "~n Msg: ~p"
+ "~n", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ #'MegacoMessage'{mess = Mess} = Msg,
+ #'Message'{mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, Transactions} = Body,
+ [Transaction] = Transactions,
+ {transactionRequest, TransReq} = Transaction,
+ #'TransactionRequest'{transactionId = TransId,
+ actions = Actions} = TransReq,
+ [Action] = Actions,
+ #'ActionRequest'{contextId = Cid,
+ commandRequests = CmdReqs} = Action,
+ [CmdReq] = CmdReqs,
+ #'CommandRequest'{command = Cmd} = CmdReq,
+ {notifyReq, NR} = Cmd,
+ #'NotifyRequest'{terminationID = [TermId]} = NR,
+ {ok, {TransId, Cid, TermId}};
+otp_6442_rsrq1_verify_second_nr_msg(Msg) ->
+ io:format("otp_6442_rsrq1_verify_second_nr_msg -> entry when error with"
+ "~n Msg: ~p"
+ "~n", [Msg]),
+ {error, {invalid_message, Msg}}.
+
+
+otp_6442_mgc_service_change_reply_msg(Mid, TransId, Cid) ->
+ SCRP = #'ServiceChangeResParm'{serviceChangeMgcId = Mid},
+ SCRPs = {serviceChangeResParms, SCRP},
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = #'ServiceChangeReply'{terminationID = [Root],
+ serviceChangeResult = SCRPs},
+ CR = {serviceChangeReply, SCR},
+ otp_6442_mgc_reply_msg(Mid, TransId, CR, Cid).
+
+otp_6442_mgc_notify_reply_msg(Mid, TransId, Cid, TermId) ->
+ NR = #'NotifyReply'{terminationID = [TermId]},
+ CR = {notifyReply, NR},
+ otp_6442_mgc_reply_msg(Mid, TransId, CR, Cid).
+
+otp_6442_mgc_reply_msg(Mid, TransId, CR, Cid) ->
+ AR = #'ActionReply'{contextId = Cid,
+ commandReply = [CR]},
+ ARs = {actionReplies, [AR]},
+ TR = #'TransactionReply'{transactionId = TransId,
+ transactionResult = ARs},
+ Body = {transactions, [{transactionReply, TR}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_6442_resend_request1_mg_verify_handle_connect_fun(),
+ {?MODULE, otp_6442_resend_request1_mg_verify_handle_connect, []}).
+-define(otp_6442_resend_request1_mg_verify_service_change_rep_fun(),
+ {?MODULE, otp_6442_resend_request1_mg_verify_service_change_rep, []}).
+-define(otp_6442_resend_request1_mg_verify_notify_rep_fun(),
+ {?MODULE, otp_6442_resend_request1_mg_verify_notify_rep, []}).
+-else.
+-define(otp_6442_resend_request1_mg_verify_handle_connect_fun(),
+ otp_6442_resend_request1_mg_verify_handle_connect_fun()).
+-define(otp_6442_resend_request1_mg_verify_service_change_rep_fun(),
+ otp_6442_resend_request1_mg_verify_service_change_rep_fun()).
+-define(otp_6442_resend_request1_mg_verify_notify_rep_fun(),
+ otp_6442_resend_request1_mg_verify_notify_rep_fun()).
+-endif.
+
+otp_6442_resend_request1_mg_event_sequence(Mid) ->
+ RI = [
+ {port, self()}, % This is just a trick to get my pid to the transport module
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_test_generic_transport}
+ ],
+ ServiceChangeReq =
+ otp_6442_resend_request1_mg_service_change_request_ar(Mid, 1),
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = otp_6442_resend_request1_mg_notify_request_ar(1, Tid, 1),
+ ConnectVerify =
+ ?otp_6442_resend_request1_mg_verify_handle_connect_fun(),
+ ServiceChangeReplyVerify =
+ ?otp_6442_resend_request1_mg_verify_service_change_rep_fun(),
+ NotifyReplyVerify =
+ ?otp_6442_resend_request1_mg_verify_notify_rep_fun(),
+ %% ConnectVerify =
+ %% otp_6442_resend_request1_mg_verify_handle_connect_fun(),
+ %% ServiceChangeReplyVerify =
+ %% otp_6442_resend_request1_mg_verify_service_change_reply_fun(),
+ %% NotifyReplyVerify = otp_6442_resend_request1_mg_verify_notify_reply_fun(),
+ EvSeq = [
+ {debug, false},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, resend_indication, false},
+ start_transport,
+ {megaco_trace, disable},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, [ServiceChangeReq], []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+ {sleep, 1000},
+ {megaco_cast, [NotifyReq], []},
+ {megaco_callback, handle_trans_reply, NotifyReplyVerify},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_request1_mg_verify_handle_connect_fun() ->
+ fun(Ev) ->
+ otp_6442_resend_request1_mg_verify_handle_connect(Ev)
+ end.
+-endif.
+
+otp_6442_resend_request1_mg_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("otp_6442_resend_request1_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+otp_6442_resend_request1_mg_verify_handle_connect(Else) ->
+ io:format("otp_6442_resend_request1_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_request1_mg_verify_service_change_rep_fun() ->
+ fun(Rep) ->
+ otp_6442_resend_request1_mg_verify_service_change_rep(Rep)
+ end.
+-endif.
+
+otp_6442_resend_request1_mg_verify_service_change_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ (catch otp_6442_resend_request1_mg_do_verify_service_change_rep(AR));
+otp_6442_resend_request1_mg_verify_service_change_rep(Crap) ->
+ {error, Crap, ok}.
+
+otp_6442_resend_request1_mg_do_verify_service_change_rep(AR) ->
+ io:format("otp_6442_resend_request1_mg_verify_service_change_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ Reason1 = {invalid_action_reply, AR},
+ throw({error, Reason1, ok})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ Reason2 = {invalid_command_reply, CR},
+ throw({error, Reason2, ok})
+ end,
+ {Tid, SCRes} =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = [TermID],
+ serviceChangeResult = Res} ->
+ {TermID, Res};
+ _ ->
+ Reason3 = {invalid_service_change_reply, SCR},
+ throw({error, Reason3, ok})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Reason4 = {invalid_termination_id, Tid},
+ throw({error, Reason4, ok})
+ end,
+ SCRParm =
+ case SCRes of
+ {serviceChangeResParms, ServChResParms} ->
+ ServChResParms;
+ _ ->
+ Reason5 = {invalid_serviceChangeResult, SCRes},
+ throw({error, Reason5, ok})
+ end,
+ case SCRParm of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _RemoteMid} ->
+ {ok, AR, ok};
+ _ ->
+ Reason6 = {invalid_service_change_result, SCRParm},
+ {error, Reason6, ok}
+ end.
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_request1_mg_verify_notify_rep_fun() ->
+ fun(Rep) ->
+ otp_6442_resend_request1_mg_verify_notify_rep(Rep)
+ end.
+-endif.
+
+otp_6442_resend_request1_mg_verify_notify_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ io:format("otp_6442_resend_request1_mg_verify_notify_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ {ok, AR, ok};
+otp_6442_resend_request1_mg_verify_notify_rep(Else) ->
+ io:format("otp_6442_resend_request1_mg_verify_notify_rep -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+otp_6442_resend_request1_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_6442_resend_request1_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_6442_resend_request2(suite) ->
+ [];
+otp_6442_resend_request2(Config) when is_list(Config) ->
+ put(verbosity, debug),
+ put(sname, "TEST"),
+ put(tc, otp6442rreq2),
+ i("starting"),
+
+ MgNode = make_node_name(mg),
+ d("start (MG) node: ~p", [MgNode]),
+ ok = megaco_test_lib:start_nodes([MgNode], ?FILE, ?LINE),
+
+ d("[MG] start the simulator "),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ Mid = {deviceName,"mg"},
+ MgcMid = {deviceName,"mgc"},
+ MgEvSeq = otp_6442_resend_request2_mg_event_sequence(Mid),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ i("await the transport module service change send_message event"),
+ Pid = otp_6442_expect(fun otp_6442_rsrq2_verify_scr_msg/1, 5000),
+
+ i("wait some before issuing the service change reply"),
+ sleep(500),
+
+ i("send the service change reply"),
+ ServiceChangeReply = otp_6442_mgc_service_change_reply_msg(MgcMid, 1, 1),
+ megaco_test_generic_transport:incomming_message(Pid, ServiceChangeReply),
+
+ i("await the transport module notify-request send_message event from MG: ignore"),
+ ok = otp_6442_expect(fun otp_6442_rsrq2_verify_first_nr_msg/1, 5000),
+
+ i("await the transport module notify-request resend_message event from MG: reply"),
+ {TransId2, Cid2, TermId2} =
+ otp_6442_expect(fun otp_6442_rsrq2_verify_second_nr_msg/1, 10000),
+
+ i("wait some before issuing the notify reply"),
+ sleep(500),
+
+ i("send the notify reply"),
+ NotifyReply = otp_6442_mgc_notify_reply_msg(MgcMid, TransId2, Cid2, TermId2),
+ megaco_test_generic_transport:incomming_message(Pid, NotifyReply),
+
+ d("await the generator reply"),
+ await_completion([MgId]),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+otp_6442_rsrq2_verify_scr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected service change request message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, Pid};
+otp_6442_rsrq2_verify_scr_msg(Msg) ->
+ io:format("otp_6442_rsrq2_verify_nr_msg -> error: "
+ "~n Msg: ~p"
+ "~n", [Msg]),
+ {error, {invalid_message, Msg}}.
+
+otp_6442_rsrq2_verify_first_nr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected first notify request message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, ok};
+otp_6442_rsrq2_verify_first_nr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+otp_6442_rsrq2_verify_second_nr_msg(
+ {transport_event, {resend_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected second notify request message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ #'MegacoMessage'{mess = Mess} = Msg,
+ #'Message'{mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, Transactions} = Body,
+ [Transaction] = Transactions,
+ {transactionRequest, TransReq} = Transaction,
+ #'TransactionRequest'{transactionId = TransId,
+ actions = Actions} = TransReq,
+ [Action] = Actions,
+ #'ActionRequest'{contextId = Cid,
+ commandRequests = CmdReqs} = Action,
+ [CmdReq] = CmdReqs,
+ #'CommandRequest'{command = Cmd} = CmdReq,
+ {notifyReq, NR} = Cmd,
+ #'NotifyRequest'{terminationID = [TermId]} = NR,
+ {ok, {TransId, Cid, TermId}};
+otp_6442_rsrq2_verify_second_nr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_6442_resend_request2_mg_verify_handle_connect_fun(),
+ {?MODULE, otp_6442_resend_request2_mg_verify_handle_connect, []}).
+-define(otp_6442_resend_request2_mg_verify_service_change_rep_fun(),
+ {?MODULE, otp_6442_resend_request2_mg_verify_service_change_rep, []}).
+-define(otp_6442_resend_request2_mg_verify_notify_rep_fun(),
+ {?MODULE, otp_6442_resend_request2_mg_verify_notify_rep, []}).
+-else.
+-define(otp_6442_resend_request2_mg_verify_handle_connect_fun(),
+ otp_6442_resend_request2_mg_verify_handle_connect_fun()).
+-define(otp_6442_resend_request2_mg_verify_service_change_rep_fun(),
+ otp_6442_resend_request2_mg_verify_service_change_rep_fun()).
+-define(otp_6442_resend_request2_mg_verify_notify_rep_fun(),
+ otp_6442_resend_request2_mg_verify_notify_rep_fun()).
+-endif.
+
+otp_6442_resend_request2_mg_event_sequence(Mid) ->
+ RI = [
+ {port, self()}, % This is just a trick to get my pid to the transport module
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_test_generic_transport}
+ ],
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = otp_6442_resend_request2_mg_notify_request_ar(1, Tid, 1),
+ ServiceChangeReq =
+ otp_6442_resend_request2_mg_service_change_request_ar(Mid, 1),
+ ConnectVerify =
+ ?otp_6442_resend_request2_mg_verify_handle_connect_fun(),
+ ServiceChangeReplyVerify =
+ ?otp_6442_resend_request2_mg_verify_service_change_rep_fun(),
+ NotifyReplyVerify =
+ ?otp_6442_resend_request2_mg_verify_notify_rep_fun(),
+%% ConnectVerify =
+%% otp_6442_resend_request2_mg_verify_handle_connect_fun(),
+%% ServiceChangeReplyVerify =
+%% otp_6442_resend_request2_mg_verify_service_change_reply_fun(),
+%% NotifyReplyVerify = otp_6442_resend_request2_mg_verify_notify_reply_fun(),
+ EvSeq = [
+ {debug, false},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, resend_indication, true},
+ start_transport,
+ {megaco_trace, disable},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, [ServiceChangeReq], []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+ {sleep, 1000},
+ {megaco_cast, [NotifyReq], []},
+ {megaco_callback, handle_trans_reply, NotifyReplyVerify},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_request2_mg_verify_handle_connect_fun() ->
+ fun(Ev) ->
+ otp_6442_resend_request2_mg_verify_handle_connect(Ev)
+ end.
+-endif.
+
+otp_6442_resend_request2_mg_verify_handle_connect(
+ {handle_connect, CH, ?VERSION}) ->
+ io:format("otp_6442_resend_request2_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+otp_6442_resend_request2_mg_verify_handle_connect(Else) ->
+ io:format("otp_6442_resend_request2_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_request2_mg_verify_service_change_rep_fun() ->
+ fun(Rep) ->
+ otp_6442_resend_request2_mg_verify_service_change_rep(Rep)
+ end.
+-endif.
+
+otp_6442_resend_request2_mg_verify_service_change_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ (catch otp_6442_resend_request2_mg_do_verify_service_change_rep(AR));
+otp_6442_resend_request2_mg_verify_service_change_rep(Crap) ->
+ {error, Crap, ok}.
+
+otp_6442_resend_request2_mg_do_verify_service_change_rep(AR) ->
+ io:format("otp_6442_resend_request2_mg_verify_service_change_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ Reason1 = {invalid_action_reply, AR},
+ throw({error, Reason1, ok})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ Reason2 = {invalid_command_reply, CR},
+ throw({error, Reason2, ok})
+ end,
+ {Tid, SCRes} =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = [TermID],
+ serviceChangeResult = Res} ->
+ {TermID, Res};
+ _ ->
+ Reason3 = {invalid_service_change_reply, SCR},
+ throw({error, Reason3, ok})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Reason4 = {invalid_termination_id, Tid},
+ throw({error, Reason4, ok})
+ end,
+ SCRParm =
+ case SCRes of
+ {serviceChangeResParms, ServChResParms} ->
+ ServChResParms;
+ _ ->
+ Reason5 = {invalid_serviceChangeResult, SCRes},
+ throw({error, Reason5, ok})
+ end,
+ case SCRParm of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _RemoteMid} ->
+ {ok, AR, ok};
+ _ ->
+ Reason6 = {invalid_service_change_result, SCRParm},
+ {error, Reason6, ok}
+ end.
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_request2_mg_verify_notify_rep_fun() ->
+ fun(Rep) ->
+ otp_6442_resend_request2_mg_verify_notify_rep(Rep)
+ end.
+-endif.
+
+otp_6442_resend_request2_mg_verify_notify_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ io:format("otp_6442_resend_request2_mg_verify_notify_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ {ok, AR, ok};
+otp_6442_resend_request2_mg_verify_notify_rep(Else) ->
+ io:format("otp_6442_resend_request2_mg_verify_notify_rep -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+otp_6442_resend_request2_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_6442_resend_request2_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_6442_resend_reply1(suite) ->
+ [];
+otp_6442_resend_reply1(Config) when is_list(Config) ->
+ put(sname, "TEST"),
+ put(verbosity, debug),
+ put(tc, otp6442rrep1),
+ i("starting"),
+
+ MgNode = make_node_name(mg),
+ d("start (MG) node: ~p", [MgNode]),
+ ok = megaco_test_lib:start_nodes([MgNode], ?FILE, ?LINE),
+
+ d("[MG] start the simulator "),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ Mid = {deviceName,"mg"},
+ MgcMid = {deviceName,"mgc"},
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ MgEvSeq = otp_6442_resend_reply1_mg_event_sequence(Mid, TermId),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ i("await the transport module service change send_message event"),
+ Pid = otp_6442_expect(fun otp_6442_rsrp1_verify_scr_msg/1, 5000),
+
+ i("wait some before issuing the service change reply"),
+ sleep(500),
+
+ i("simulate MGC sending the service change reply"),
+ ServiceChangeReply = otp_6442_mgc_service_change_reply_msg(MgcMid, 1, 1),
+ megaco_test_generic_transport:incomming_message(Pid, ServiceChangeReply),
+
+
+ i("wait some before issuing the notify request"),
+ sleep(500),
+
+ i("simulate MGC sending the notify request"),
+ NotifyRequest = otp_6442_mgc_notify_request_msg(MgcMid, TermId, 2, 1),
+ megaco_test_generic_transport:incomming_message(Pid, NotifyRequest),
+
+ i("await the transport module first notify-reply send_message event from MG: "
+ "ignore"),
+ otp_6442_expect(fun otp_6442_rsrp1_verify_first_nr_msg/1, 5000),
+
+ i("await the transport module second notify-reply send_message event from MG: "
+ "ack"),
+ {TransId, _, _} = otp_6442_expect(fun otp_6442_rsrp1_verify_second_nr_msg/1, 10000),
+
+ i("wait some before issuing the ack"),
+ sleep(500),
+
+ i("simulate MGC sending the ack"),
+ Ack = otp_6442_mgc_ack_msg(MgcMid, TransId),
+ megaco_test_generic_transport:incomming_message(Pid, Ack),
+
+
+ d("await the generator reply"),
+ await_completion([MgId]),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+otp_6442_rsrp1_verify_scr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected service change request message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, Pid};
+otp_6442_rsrp1_verify_scr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+otp_6442_rsrp1_verify_first_nr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected first notify reply message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, ok};
+otp_6442_rsrp1_verify_first_nr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+otp_6442_rsrp1_verify_second_nr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected second notify reply message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ #'MegacoMessage'{mess = Mess} = Msg,
+ #'Message'{mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, Transactions} = Body,
+ [Transaction] = Transactions,
+ {transactionReply, TransRep} = Transaction,
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = 'NULL',
+ transactionResult = TransRes} = TransRep,
+ {actionReplies, ActReps} = TransRes,
+ [ActRep] = ActReps,
+ #'ActionReply'{contextId = Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = asn1_NOVALUE,
+ commandReply = CmdReps} = ActRep,
+ [CmdRep] = CmdReps,
+ {notifyReply, NR} = CmdRep,
+ #'NotifyReply'{terminationID = TermId} = NR,
+ {ok, {TransId, Cid, TermId}};
+otp_6442_rsrp1_verify_second_nr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+
+otp_6442_mgc_notify_request_msg(Mid, TermId, TransId, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(1, [Ev]),
+ NR = cre_notifyReq([TermId], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ AR = cre_actionReq(Cid, [CR]),
+ ARs = [AR],
+ TR = cre_transReq(TransId, ARs),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+
+otp_6442_mgc_ack_msg(Mid, TransId) ->
+ TR = cre_transRespAck(cre_transAck(TransId)),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_6442_resend_reply1_mg_verify_handle_connect_fun(),
+ {?MODULE, otp_6442_resend_reply1_mg_verify_handle_connect, []}).
+-define(otp_6442_resend_reply1_mg_verify_service_change_rep_fun(),
+ {?MODULE, otp_6442_resend_reply1_mg_verify_service_change_rep, []}).
+-define(otp_6442_resend_reply1_mg_verify_notify_req_fun(TermId),
+ {?MODULE, otp_6442_resend_reply1_mg_verify_notify_req, [TermId]}).
+-define(otp_6442_resend_reply1_mg_verify_ack_fun(),
+ {?MODULE, otp_6442_resend_reply1_mg_verify_ack, []}).
+-else.
+-define(otp_6442_resend_reply1_mg_verify_handle_connect_fun(),
+ otp_6442_resend_reply1_mg_verify_handle_connect_fun()).
+-define(otp_6442_resend_reply1_mg_verify_service_change_rep_fun(),
+ otp_6442_resend_reply1_mg_verify_service_change_rep_fun()).
+-define(otp_6442_resend_reply1_mg_verify_notify_req_fun(TermId),
+ otp_6442_resend_reply1_mg_verify_notify_req_fun(TermId)).
+-define(otp_6442_resend_reply1_mg_verify_ack_fun(),
+ otp_6442_resend_reply1_mg_verify_ack_fun()).
+-endif.
+
+otp_6442_resend_reply1_mg_event_sequence(Mid, TermId) ->
+ RI = [
+ {port, self()}, % This is just a trick to get my pid to the transport module
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_test_generic_transport}
+ ],
+ ServiceChangeReq =
+ otp_6442_resend_reply1_mg_service_change_request_ar(Mid, 1),
+ RepTmr = #megaco_incr_timer{wait_for = 2000,
+ factor = 1,
+ max_retries = 1},
+ ConnectVerify =
+ ?otp_6442_resend_reply1_mg_verify_handle_connect_fun(),
+ ServiceChangeReplyVerify =
+ ?otp_6442_resend_reply1_mg_verify_service_change_rep_fun(),
+ NotifyReqVerify =
+ ?otp_6442_resend_reply1_mg_verify_notify_req_fun(TermId),
+ AckVerify =
+ ?otp_6442_resend_reply1_mg_verify_ack_fun(),
+%% ConnectVerify =
+%% otp_6442_resend_reply1_mg_verify_handle_connect_fun(),
+%% ServiceChangeReplyVerify =
+%% otp_6442_resend_reply1_mg_verify_service_change_reply_fun(),
+%% NotifyReqVerify =
+%% otp_6442_resend_reply1_mg_verify_notify_request_fun(TermId),
+%% AckVerify =
+%% otp_6442_resend_reply1_mg_verify_ack_fun(),
+ EvSeq = [
+ {debug, false},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, resend_indication, false},
+ {megaco_update_user_info, reply_timer, RepTmr},
+ start_transport,
+ {megaco_trace, disable},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, [ServiceChangeReq], []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+ {sleep, 1000},
+
+ {megaco_callback, handle_trans_request, NotifyReqVerify},
+ {megaco_callback, handle_trans_ack, AckVerify},
+
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_reply1_mg_verify_handle_connect_fun() ->
+ fun(Ev) ->
+ otp_6442_resend_reply1_mg_verify_handle_connect(Ev)
+ end.
+-endif.
+
+otp_6442_resend_reply1_mg_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("otp_6442_resend_reply1_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+otp_6442_resend_reply1_mg_verify_handle_connect(Else) ->
+ io:format("otp_6442_resend_reply1_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_reply1_mg_verify_service_change_rep_fun() ->
+ fun(Rep) ->
+ otp_6442_resend_reply1_mg_verify_service_change_rep(Rep)
+ end.
+-endif.
+
+otp_6442_resend_reply1_mg_verify_service_change_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ (catch otp_6442_resend_reply1_mg_do_verify_service_change_rep(AR));
+otp_6442_resend_reply1_mg_verify_service_change_rep(Crap) ->
+ {error, Crap, ok}.
+
+otp_6442_resend_reply1_mg_do_verify_service_change_rep(AR) ->
+ io:format("otp_6442_resend_reply1_mg_verify_service_change_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ Reason1 = {invalid_action_reply, AR},
+ throw({error, Reason1, ok})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ Reason2 = {invalid_command_reply, CR},
+ throw({error, Reason2, ok})
+ end,
+ {Tid, SCRes} =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = [TermID],
+ serviceChangeResult = Res} ->
+ {TermID, Res};
+ _ ->
+ Reason3 = {invalid_service_change_reply, SCR},
+ throw({error, Reason3, ok})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Reason4 = {invalid_termination_id, Tid},
+ throw({error, Reason4, ok})
+ end,
+ SCRParm =
+ case SCRes of
+ {serviceChangeResParms, ServChResParms} ->
+ ServChResParms;
+ _ ->
+ Reason5 = {invalid_serviceChangeResult, SCRes},
+ throw({error, Reason5, ok})
+ end,
+ case SCRParm of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _RemoteMid} ->
+ {ok, AR, ok};
+ _ ->
+ Reason6 = {invalid_service_change_result, SCRParm},
+ {error, Reason6, ok}
+ end.
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_reply1_mg_verify_notify_req_fun(TermId) ->
+ fun(Req) ->
+ otp_6442_resend_reply1_mg_verify_notify_req(Req, TermId)
+ end.
+-endif.
+
+otp_6442_resend_reply1_mg_verify_notify_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, TermId) ->
+ io:format("otp_6442_resend_reply1_mg_verify_notify_req -> ok"
+ "~n AR: ~p~n", [AR]),
+ case AR of
+ #'ActionRequest'{contextId = 1 = Cid,
+ commandRequests = [CR]} ->
+ #'CommandRequest'{command = Cmd} = CR,
+ {notifyReq, NR} = Cmd,
+ #'NotifyRequest'{terminationID = [TermId],
+ observedEventsDescriptor = OED,
+ errorDescriptor = asn1_NOVALUE} = NR,
+ #'ObservedEventsDescriptor'{observedEventLst = [OE]} = OED,
+ #'ObservedEvent'{eventName = "al/of"} = OE,
+ HandleAck = {handle_ack, otp_6442_resend_reply1},
+ Reply = {HandleAck,
+ [otp_6442_resend_reply1_mg_notify_reply_ar(Cid, TermId)]},
+ {ok, AR, Reply};
+ _ ->
+ ED = otp_6442_resend_reply1_err_desc(AR),
+ ErrReply = {discard_ack, ED},
+ {error, AR, ErrReply}
+ end;
+otp_6442_resend_reply1_mg_verify_notify_req(Else, TermId) ->
+ io:format("otp_6442_resend_reply1_mg_verify_notify_request -> unknown"
+ "~n Else: ~p"
+ "~n TermId: ~p"
+ "~n", [Else, TermId]),
+ ED = otp_6442_resend_reply1_err_desc(Else),
+ ErrReply = {discard_ack, ED},
+ {error, Else, ErrReply}.
+
+otp_6442_resend_reply1_mg_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_reply1_mg_verify_ack_fun() ->
+ fun(Ack) ->
+ otp_6442_resend_reply1_mg_verify_ack(Ack)
+ end.
+-endif.
+
+otp_6442_resend_reply1_mg_verify_ack(
+ {handle_trans_ack, CH, ?VERSION, ok, otp_6442_resend_reply1}) ->
+ io:format("otp_6442_resend_reply1_verify_ack -> ok"
+ "~n CH: ~p"
+ "~n", [CH]),
+ {ok, CH, ok};
+otp_6442_resend_reply1_mg_verify_ack(Else) ->
+ io:format("otp_6442_resend_reply1_verify_ack -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+otp_6442_resend_reply1_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_6442_resend_reply1_err_desc(T) ->
+ EC = ?megaco_internal_gateway_error,
+ ET = lists:flatten(io_lib:format("~w",[T])),
+ #'ErrorDescriptor'{errorCode = EC, errorText = ET}.
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_6442_resend_reply2(suite) ->
+ [];
+otp_6442_resend_reply2(Config) when is_list(Config) ->
+ put(sname, "TEST"),
+ put(verbosity, debug),
+ put(tc, otp6442rrep2),
+ i("starting"),
+
+ MgNode = make_node_name(mg),
+ d("start (MG) node: ~p", [MgNode]),
+ ok = megaco_test_lib:start_nodes([MgNode], ?FILE, ?LINE),
+
+ d("[MG] start the simulator "),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ Mid = {deviceName,"mg"},
+ MgcMid = {deviceName,"mgc"},
+ TermId = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ MgEvSeq = otp_6442_resend_reply2_mg_event_sequence(Mid, TermId),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ i("await the transport module service change send_message event"),
+ Pid = otp_6442_expect(fun otp_6442_rsrp2_verify_scr_msg/1, 5000),
+
+ i("wait some before issuing the service change reply"),
+ sleep(500),
+
+ i("simulate MGC sending the service change reply"),
+ ServiceChangeReply = otp_6442_mgc_service_change_reply_msg(MgcMid, 1, 1),
+ megaco_test_generic_transport:incomming_message(Pid, ServiceChangeReply),
+
+
+ i("wait some before issuing the notify request"),
+ sleep(500),
+
+ i("simulate MGC sending the notify request"),
+ NotifyRequest = otp_6442_mgc_notify_request_msg(MgcMid, TermId, 2, 1),
+ megaco_test_generic_transport:incomming_message(Pid, NotifyRequest),
+
+ i("await the transport module notify-reply send_message event from MG: ignore"),
+ otp_6442_expect(otp_6442_rsrp2_verify_first_nr_msg_fun(), 5000),
+
+ i("await the transport module notify-reply resend_message event from MG: ack"),
+ {TransId, _, _} =
+ otp_6442_expect(otp_6442_rsrp2_verify_second_nr_msg_fun(), 10000),
+
+ i("wait some before issuing the ack"),
+ sleep(500),
+
+ i("simulate MGC sending the ack"),
+ Ack = otp_6442_mgc_ack_msg(MgcMid, TransId),
+ megaco_test_generic_transport:incomming_message(Pid, Ack),
+
+
+ d("await the generator reply"),
+ await_completion([MgId]),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+otp_6442_rsrp2_verify_scr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected service change request message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, Pid};
+otp_6442_rsrp2_verify_scr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+otp_6442_rsrp2_verify_first_nr_msg_fun() ->
+ fun(E) ->
+ otp_6442_rsrp2_verify_first_nr_msg(E)
+ end.
+
+otp_6442_rsrp2_verify_first_nr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected first notify reply message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, ok};
+otp_6442_rsrp2_verify_first_nr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+otp_6442_rsrp2_verify_second_nr_msg_fun() ->
+ fun(E) ->
+ otp_6442_rsrp2_verify_second_nr_msg(E)
+ end.
+
+otp_6442_rsrp2_verify_second_nr_msg(
+ {transport_event, {resend_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected second notify reply message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ #'MegacoMessage'{mess = Mess} = Msg,
+ #'Message'{mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, Transactions} = Body,
+ [Transaction] = Transactions,
+ {transactionReply, TransRep} = Transaction,
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = 'NULL',
+ transactionResult = TransRes} = TransRep,
+ {actionReplies, ActReps} = TransRes,
+ [ActRep] = ActReps,
+ #'ActionReply'{contextId = Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = asn1_NOVALUE,
+ commandReply = CmdReps} = ActRep,
+ [CmdRep] = CmdReps,
+ {notifyReply, NR} = CmdRep,
+ #'NotifyReply'{terminationID = TermId} = NR,
+ {ok, {TransId, Cid, TermId}};
+otp_6442_rsrp2_verify_second_nr_msg(Msg) ->
+ d("received expected bad second notify reply message: "
+ "~n Msg: ~p", [Msg]),
+ {error, {invalid_message, Msg}}.
+
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_6442_resend_reply2_mg_verify_handle_connect_fun(),
+ {?MODULE, otp_6442_resend_reply2_mg_verify_handle_connect, []}).
+-define(otp_6442_resend_reply2_mg_verify_service_change_rep_fun(),
+ {?MODULE, otp_6442_resend_reply2_mg_verify_service_change_rep, []}).
+-define(otp_6442_resend_reply2_mg_verify_notify_req_fun(TermId),
+ {?MODULE, otp_6442_resend_reply2_mg_verify_notify_req, [TermId]}).
+-define(otp_6442_resend_reply2_mg_verify_ack_fun(),
+ {?MODULE, otp_6442_resend_reply2_mg_verify_ack, []}).
+-else.
+-define(otp_6442_resend_reply2_mg_verify_handle_connect_fun(),
+ otp_6442_resend_reply2_mg_verify_handle_connect_fun()).
+-define(otp_6442_resend_reply2_mg_verify_service_change_rep_fun(),
+ otp_6442_resend_reply2_mg_verify_service_change_rep_fun()).
+-define(otp_6442_resend_reply2_mg_verify_notify_req_fun(TermId),
+ otp_6442_resend_reply2_mg_verify_notify_req_fun(TermId)).
+-define(otp_6442_resend_reply2_mg_verify_ack_fun(),
+ otp_6442_resend_reply2_mg_verify_ack_fun()).
+-endif.
+
+otp_6442_resend_reply2_mg_event_sequence(Mid, TermId) ->
+ RI = [
+ {port, self()}, % This is just a trick to get my pid to the transport module
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_test_generic_transport}
+ ],
+ ServiceChangeReq =
+ otp_6442_resend_reply2_mg_service_change_request_ar(Mid, 1),
+ RepTmr = #megaco_incr_timer{wait_for = 2000,
+ factor = 1,
+ max_retries = 1},
+ ConnectVerify =
+ ?otp_6442_resend_reply2_mg_verify_handle_connect_fun(),
+ ServiceChangeReplyVerify =
+ ?otp_6442_resend_reply2_mg_verify_service_change_rep_fun(),
+ NotifyReqVerify =
+ ?otp_6442_resend_reply2_mg_verify_notify_req_fun(TermId),
+ AckVerify =
+ ?otp_6442_resend_reply2_mg_verify_ack_fun(),
+%% ConnectVerify =
+%% otp_6442_resend_reply2_mg_verify_handle_connect_fun(),
+%% ServiceChangeReplyVerify =
+%% otp_6442_resend_reply2_mg_verify_service_change_reply_fun(),
+%% NotifyReqVerify =
+%% otp_6442_resend_reply2_mg_verify_notify_request_fun(TermId),
+%% AckVerify =
+%% otp_6442_resend_reply2_mg_verify_ack_fun(),
+ EvSeq = [
+ {debug, false},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, resend_indication, true},
+ {megaco_update_user_info, reply_timer, RepTmr},
+ start_transport,
+ {megaco_trace, disable},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, [ServiceChangeReq], []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+ {sleep, 1000},
+
+ {megaco_callback, handle_trans_request, NotifyReqVerify},
+ {megaco_callback, handle_trans_ack, AckVerify},
+
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_reply2_mg_verify_handle_connect_fun() ->
+ fun(Ev) ->
+ otp_6442_resend_reply2_mg_verify_handle_connect(Ev)
+ end.
+-endif.
+
+otp_6442_resend_reply2_mg_verify_handle_connect(
+ {handle_connect, CH, ?VERSION}) ->
+ io:format("otp_6442_resend_reply2_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+otp_6442_resend_reply2_mg_verify_handle_connect(Else) ->
+ io:format("otp_6442_resend_reply2_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_reply2_mg_verify_service_change_rep_fun() ->
+ fun(Rep) ->
+ otp_6442_resend_reply2_mg_verify_service_change_rep(Rep)
+ end.
+-endif.
+
+otp_6442_resend_reply2_mg_verify_service_change_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ (catch otp_6442_resend_reply2_mg_do_verify_service_change_rep(AR));
+otp_6442_resend_reply2_mg_verify_service_change_rep(Crap) ->
+ {error, Crap, ok}.
+
+otp_6442_resend_reply2_mg_do_verify_service_change_rep(AR) ->
+ io:format("otp_6442_resend_reply2_mg_verify_service_change_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ Reason1 = {invalid_action_reply, AR},
+ throw({error, Reason1, ok})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ Reason2 = {invalid_command_reply, CR},
+ throw({error, Reason2, ok})
+ end,
+ {Tid, SCRes} =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = [TermID],
+ serviceChangeResult = Res} ->
+ {TermID, Res};
+ _ ->
+ Reason3 = {invalid_service_change_reply, SCR},
+ throw({error, Reason3, ok})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Reason4 = {invalid_termination_id, Tid},
+ throw({error, Reason4, ok})
+ end,
+ SCRParm =
+ case SCRes of
+ {serviceChangeResParms, ServChResParms} ->
+ ServChResParms;
+ _ ->
+ Reason5 = {invalid_serviceChangeResult, SCRes},
+ throw({error, Reason5, ok})
+ end,
+ case SCRParm of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _RemoteMid} ->
+ {ok, AR, ok};
+ _ ->
+ Reason6 = {invalid_service_change_result, SCRParm},
+ {error, Reason6, ok}
+ end.
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_reply2_mg_verify_notify_req_fun(TermId) ->
+ fun(Req) ->
+ otp_6442_resend_reply2_mg_verify_notify_req(Req, TermId)
+ end.
+-endif.
+
+otp_6442_resend_reply2_mg_verify_notify_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, TermId) ->
+ io:format("otp_6442_resend_reply2_mg_verify_notify_req -> ok"
+ "~n AR: ~p~n", [AR]),
+ case AR of
+ #'ActionRequest'{contextId = 1 = Cid,
+ commandRequests = [CR]} ->
+ #'CommandRequest'{command = Cmd} = CR,
+ {notifyReq, NR} = Cmd,
+ #'NotifyRequest'{terminationID = [TermId],
+ observedEventsDescriptor = OED,
+ errorDescriptor = asn1_NOVALUE} = NR,
+ #'ObservedEventsDescriptor'{observedEventLst = [OE]} = OED,
+ #'ObservedEvent'{eventName = "al/of"} = OE,
+ HandleAck = {handle_ack, otp_6442_resend_reply2},
+ Reply = {HandleAck,
+ [otp_6442_resend_reply2_mg_notify_reply_ar(Cid, TermId)]},
+ {ok, AR, Reply};
+ _ ->
+ ED = otp_6442_resend_reply2_err_desc(AR),
+ ErrReply = {discard_ack, ED},
+ {error, AR, ErrReply}
+ end;
+otp_6442_resend_reply2_mg_verify_notify_req(Else, TermId) ->
+ io:format("otp_6442_resend_reply2_mg_verify_notify_req -> unknown"
+ "~n Else: ~p"
+ "~n TermId: ~p"
+ "~n", [Else, TermId]),
+ ED = otp_6442_resend_reply2_err_desc(Else),
+ ErrReply = {discard_ack, ED},
+ {error, Else, ErrReply}.
+
+otp_6442_resend_reply2_mg_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+
+-ifndef(megaco_hipe_special).
+otp_6442_resend_reply2_mg_verify_ack_fun() ->
+ fun(Ack) ->
+ otp_6442_resend_reply2_mg_verify_ack(Ack)
+ end.
+-endif.
+
+otp_6442_resend_reply2_mg_verify_ack(
+ {handle_trans_ack, CH, ?VERSION, ok, otp_6442_resend_reply2}) ->
+ io:format("otp_6442_resend_reply2_verify_ack -> ok"
+ "~n CH: ~p"
+ "~n", [CH]),
+ {ok, CH, ok};
+otp_6442_resend_reply2_mg_verify_ack(Else) ->
+ io:format("otp_6442_resend_reply2_verify_ack -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+otp_6442_resend_reply2_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+otp_6442_resend_reply2_err_desc(T) ->
+ EC = ?megaco_internal_gateway_error,
+ ET = lists:flatten(io_lib:format("~w",[T])),
+ #'ErrorDescriptor'{errorCode = EC, errorText = ET}.
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_6865_request_and_reply_plain_extra1(suite) ->
+ [];
+otp_6865_request_and_reply_plain_extra1(Config) when is_list(Config) ->
+ ?ACQUIRE_NODES(1, Config),
+
+ put(sname, "TEST"),
+ put(verbosity, debug),
+ put(tc, otp6865e1),
+ i("starting"),
+
+ d("start test case controller",[]),
+ ok = megaco_tc_controller:start_link(),
+
+ %% Instruct the transport module to fail all send_message
+ d("instruct transport module to provide extra info: ",[]),
+ ExtraInfo = otp_6865_extra_info,
+ ok = megaco_tc_controller:insert(extra_transport_info, ExtraInfo),
+
+ d("start proxy",[]),
+ megaco_mess_user_test:start_proxy(),
+
+ PrelMid = preliminary_mid,
+ MgMid = ipv4_mid(4711),
+ MgcMid = ipv4_mid(),
+ UserMod = megaco_mess_user_test,
+ d("start megaco app",[]),
+ ?VERIFY(ok, application:start(megaco)),
+ UserConfig = [{user_mod, UserMod}, {send_mod, UserMod},
+ {request_timer, infinity}, {reply_timer, infinity}],
+ d("start (MG) user ~p",[MgMid]),
+ ?VERIFY(ok, megaco:start_user(MgMid, UserConfig)),
+
+ d("start (MGC) user ~p",[MgcMid]),
+ ?VERIFY(ok, megaco:start_user(MgcMid, UserConfig)),
+
+ d("get receive info for ~p",[MgMid]),
+ MgRH = user_info(MgMid, receive_handle),
+ d("get receive info for ~p",[MgcMid]),
+ MgcRH = user_info(MgcMid, receive_handle),
+ d("start transport",[]),
+ {ok, MgPid, MgSH} =
+ ?VERIFY({ok, _, _}, UserMod:start_transport(MgRH, MgcRH)),
+ PrelMgCH = #megaco_conn_handle{local_mid = MgMid,
+ remote_mid = preliminary_mid},
+ MgCH = #megaco_conn_handle{local_mid = MgMid,
+ remote_mid = MgcMid},
+ MgcCH = #megaco_conn_handle{local_mid = MgcMid,
+ remote_mid = MgMid},
+ d("(MG) try connect to MGC",[]),
+ ?SEND(megaco:connect(MgRH, PrelMid, MgSH, MgPid)), % Mg prel
+ d("await connect from MG",[]),
+ ?USER({connect, PrelMgCH, _V, []}, ok),
+ ?RECEIVE([{res, _, {ok, PrelMgCH}}]),
+
+ d("(MG) send service change request",[]),
+ Req = service_change_request(),
+ ?SEND(megaco:call(PrelMgCH, [Req], [])),
+
+ d("(MGC) send service change reply",[]),
+ ?USER({connect, MgcCH, _V, [ExtraInfo]}, ok), % Mgc auto
+ Rep = service_change_reply(MgcMid),
+ ?USER({request, MgcCH, _V, [[Req], ExtraInfo]}, {discard_ack, [Rep]}),
+ ?USER({connect, MgCH, _V, [ExtraInfo]}, ok), % Mg confirm
+ ?RECEIVE([{res, _, {1, {ok, [Rep], ExtraInfo}}}]),
+
+ d("get (system info) connections",[]),
+ connections([MgCH, MgcCH]),
+ d("get (~p) connections",[MgMid]),
+ ?VERIFY([MgCH], megaco:user_info(MgMid, connections)),
+ d("get (~p) connections",[MgcMid]),
+ ?VERIFY([MgcCH], megaco:user_info(MgcMid, connections)),
+
+ Reason = shutdown,
+ d("(MG) disconnect",[]),
+ ?SEND(megaco:disconnect(MgCH, Reason)),
+ ?USER({disconnect, MgCH, _V, [{user_disconnect, Reason}]}, ok),
+ ?RECEIVE([{res, _, ok}]),
+ ?VERIFY(ok, megaco:stop_user(MgMid)),
+
+ d("(MGC) disconnect",[]),
+ ?SEND(megaco:disconnect(MgcCH, Reason)),
+ ?USER({disconnect, MgcCH, _V, [{user_disconnect, Reason}]}, ok),
+ ?RECEIVE([{res, _, ok}]),
+ ?VERIFY(ok, megaco:stop_user(MgcMid)),
+
+ d("stop megaco app",[]),
+ ?VERIFY(ok, application:stop(megaco)),
+ ?RECEIVE([]),
+
+ d("stop test case controller",[]),
+ ok = megaco_tc_controller:stop(),
+
+ d("done",[]),
+ ok.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_6865_request_and_reply_plain_extra2(suite) ->
+ [];
+otp_6865_request_and_reply_plain_extra2(doc) ->
+ [];
+otp_6865_request_and_reply_plain_extra2(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, otp6865e2),
+ i("starting"),
+
+ d("start tc controller"),
+ ok = megaco_tc_controller:start_link(),
+
+ %% Instruct the transport module to fail all send_message
+ d("instruct transport module to provide extra info: ", []),
+ ExtraInfo = otp6865e2_extra_info,
+ ok = megaco_tc_controller:insert(extra_transport_info, ExtraInfo),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = otp6865e2_mgc_event_sequence(ExtraInfo, text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = otp6865e2_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_tcp_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId], 60000),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_tcp_generator:stop(Mg),
+
+ i("stop tc controller"),
+ ok = megaco_tc_controller:stop(),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp6865e2_mgc_verify_handle_connect_fun(ExtraInfo),
+ {?MODULE, otp6865e2_mgc_verify_handle_connect, [ExtraInfo]}).
+-define(otp6865e2_mgc_verify_service_change_req_fun(Mid, ExtraInfo),
+ {?MODULE, otp6865e2_mgc_verify_service_change_req, [Mid, ExtraInfo]}).
+-define(otp6865e2_mgc_verify_notify_req_fun(Cid, ExtraInfo, RequireAck),
+ {?MODULE, otp6865e2_mgc_verify_notify_req, [Cid, ExtraInfo, RequireAck]}).
+-define(otp6865e2_mgc_verify_reply_ack_fun(ExtraInfo),
+ {?MODULE, otp6865e2_mgc_verify_reply_ack, [ExtraInfo]}).
+-define(otp6865e2_mgc_verify_notify_reply_fun(ExtraInfo),
+ {?MODULE, otp6865e2_mgc_verify_notify_reply, [ExtraInfo]}).
+-define(otp6865e2_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, otp6865e2_mgc_verify_handle_disconnect, []}).
+-else.
+-define(otp6865e2_mgc_verify_handle_connect_fun(ExtraInfo),
+ otp6865e2_mgc_verify_handle_connect(ExtraInfo)).
+-define(otp6865e2_mgc_verify_service_change_req_fun(Mid, ExtraInfo),
+ otp6865e2_mgc_verify_service_change_req_fun(Mid, ExtraInfo)).
+-define(otp6865e2_mgc_verify_notify_req_fun(Cid, ExtraInfo, RequireAck),
+ otp6865e2_mgc_verify_notify_req_fun(Cid, ExtraInfo, RequireAck)).
+-define(otp6865e2_mgc_verify_reply_ack_fun(ExtraInfo),
+ otp6865e2_mgc_verify_reply_ack_fun(ExtraInfo)).
+-define(otp6865e2_mgc_verify_notify_reply_fun(ExtraInfo),
+ otp6865e2_mgc_verify_notify_reply_fun(ExtraInfo)).
+-define(otp6865e2_mgc_verify_handle_disconnect_fun(),
+ fun otp6865e2_mgc_verify_handle_disconnect/1).
+-endif.
+
+otp6865e2_mgc_event_sequence(ExtraInfo, text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ ConnectVerify =
+ ?otp6865e2_mgc_verify_handle_connect_fun(ExtraInfo),
+ ServiceChangeReqVerify =
+ ?otp6865e2_mgc_verify_service_change_req_fun(Mid, ExtraInfo),
+ NotifyReqVerify1 =
+ ?otp6865e2_mgc_verify_notify_req_fun(1, ExtraInfo, false),
+ NotifyReqVerify2 =
+ ?otp6865e2_mgc_verify_notify_req_fun(2, ExtraInfo, true),
+ AckVerify = ?otp6865e2_mgc_verify_reply_ack_fun(ExtraInfo),
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = [otp6865e2_mgc_notify_request_ar(1, Tid, 1)],
+ NotifyReplyVerify = ?otp6865e2_mgc_verify_notify_reply_fun(ExtraInfo),
+ DiscoVerify =
+ ?otp6865e2_mgc_verify_handle_disconnect_fun(),
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_request, ServiceChangeReqVerify},
+ {megaco_callback, handle_trans_request, NotifyReqVerify1},
+ {megaco_callback, handle_trans_request, NotifyReqVerify2},
+ {megaco_callback, handle_trans_ack, AckVerify},
+ {megaco_cast, NotifyReq, []},
+ {megaco_callback, handle_trans_reply, NotifyReplyVerify},
+ {megaco_callback, handle_disconnect, DiscoVerify},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+otp6865e2_mgc_verify_handle_connect(ExtraInfo) ->
+ fun(Req) ->
+ otp6865e2_mgc_verify_handle_connect(Req, ExtraInfo)
+ end.
+-endif.
+
+otp6865e2_mgc_verify_handle_connect({handle_connect, CH, ?VERSION, ExtraInfo},
+ ExtraInfo) ->
+ io:format("otp6865e2_mgc_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+otp6865e2_mgc_verify_handle_connect(Else, ExtraInfo) ->
+ io:format("otp6865e2_mgc_verify_handle_connect -> unknown"
+ "~n Else: ~p"
+ "~n ExtraInfo: ~p"
+ "~n", [Else, ExtraInfo]),
+ {error, {Else, ExtraInfo}, ok}.
+
+-ifndef(megaco_hipe_special).
+otp6865e2_mgc_verify_service_change_req_fun(Mid, ExtraInfo) ->
+ fun(Req) ->
+ otp6865e2_mgc_verify_service_change_req(Req, Mid, ExtraInfo)
+ end.
+-endif.
+
+otp6865e2_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR], ExtraInfo}, Mid, ExtraInfo) ->
+ (catch otp6865e2_mgc_do_verify_service_change_req(AR, Mid));
+otp6865e2_mgc_verify_service_change_req(Crap, _Mid, ExtraInfo) ->
+ ED = cre_ErrDesc({Crap, ExtraInfo}),
+ ErrReply = {discard_ack, ED},
+ {error, {Crap, ExtraInfo}, ErrReply}.
+
+otp6865e2_mgc_do_verify_service_change_req(AR, Mid) ->
+ io:format("otp6865e2_mgc_verify_service_change_req -> ok"
+ "~n AR: ~p"
+ "~n Mid: ~p"
+ "~n", [AR, Mid]),
+ CR =
+ case AR of
+ #'ActionRequest'{commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ {Tid, Parms} =
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [TermID],
+ serviceChangeParms = ServChParms}} ->
+ {TermID, ServChParms};
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Err4 = {invalid_termination_id, Tid},
+ ED4 = cre_ErrDesc(Tid),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ case Parms of
+ #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ AckData = [otp6865e2_mgc_service_change_reply_ar(Mid, 1)],
+ Reply = {discard_ack, AckData},
+ {ok, AR, Reply};
+ _ ->
+ Err5 = {invalid_SCP, Parms},
+ ED5 = cre_ErrDesc(Parms),
+ ErrReply5 = {discard_ack, ED5},
+ {error, Err5, ErrReply5}
+ end.
+
+-ifndef(megaco_hipe_special).
+otp6865e2_mgc_verify_notify_req_fun(Cid, ExtraInfo, RequireAck) ->
+ fun(Req) ->
+ otp6865e2_mgc_verify_notify_req(Req, Cid, ExtraInfo, RequireAck)
+ end.
+-endif.
+
+otp6865e2_mgc_verify_notify_req(
+ {handle_trans_request, _, ?VERSION, [AR], ExtraInfo},
+ Cid, ExtraInfo, RequireAck) ->
+ (catch otp6865e2_mgc_do_verify_notify_req(AR, Cid, RequireAck));
+otp6865e2_mgc_verify_notify_req(Crap, _Cid, ExtraInfo, _RequireAck) ->
+ ED = cre_ErrDesc({Crap, ExtraInfo}),
+ ErrReply = {discard_ack, ED},
+ {error, {Crap, ExtraInfo}, ErrReply}.
+
+otp6865e2_mgc_do_verify_notify_req(AR, Cid, RequireAck) ->
+ io:format("otp6865e2_mgc_do_verify_notify_req -> entry with"
+ "~n AR: ~p"
+ "~n Cid: ~p"
+ "~n RequireAck: ~p"
+ "~n", [AR, Cid, RequireAck]),
+ {ContextID, CR} =
+ case AR of
+ #'ActionRequest'{contextId = CtxID,
+ commandRequests = [CmdReq]} when (CtxID == Cid) ->
+ {CtxID, CmdReq};
+ _ ->
+ Err1 = {invalid_action_request, AR},
+ ED1 = cre_ErrDesc(AR),
+ ErrReply1 = {discard_ack, ED1},
+ throw({error, Err1, ErrReply1})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ Err2 = {invalid_command_request, CR},
+ ED2 = cre_ErrDesc(CR),
+ ErrReply2 = {discard_ack, ED2},
+ throw({error, Err2, ErrReply2})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ Err3 = {invalid_command, Cmd},
+ ED3 = cre_ErrDesc(Cmd),
+ ErrReply3 = {discard_ack, ED3},
+ throw({error, Err3, ErrReply3})
+ end,
+ {Tid, OED} =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermID],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ {TermID, ObsEvsDesc};
+ _ ->
+ Err4 = {invalid_NR, NR},
+ ED4 = cre_ErrDesc(NR),
+ ErrReply4 = {discard_ack, ED4},
+ throw({error, Err4, ErrReply4})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ Err5 = {invalid_OED, OED},
+ ED5 = cre_ErrDesc(NR),
+ ErrReply5 = {discard_ack, ED5},
+ throw({error, Err5, ErrReply5})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ Replies = [otp6865e2_mgc_notify_reply_ar(ContextID, Tid)],
+ Reply =
+ case RequireAck of
+ true ->
+ {{handle_ack, otp6865e2}, Replies};
+ false ->
+ {discard_ack, Replies}
+ end,
+ {ok, AR, Reply};
+ _ ->
+ Err6 = {invalid_OE, OE},
+ ED6 = cre_ErrDesc(OE),
+ ErrReply6 = {discard_ack, ED6},
+ {error, Err6, ErrReply6}
+ end.
+
+%% Ack verification
+-ifndef(megaco_hipe_special).
+otp6865e2_mgc_verify_reply_ack_fun(ExtraInfo) ->
+ fun(M) ->
+ otp6865e2_mgc_verify_reply_ack(M, ExtraInfo)
+ end.
+-endif.
+
+otp6865e2_mgc_verify_reply_ack(
+ {handle_trans_ack, _, ?VERSION, ok, otp6865e2, ExtraInfo}, ExtraInfo) ->
+ io:format("otp6865e2_mgc_verify_reply_ack -> ok~n", []),
+ {ok, ok, ok};
+otp6865e2_mgc_verify_reply_ack(
+ {handle_trans_ack, _, ?VERSION, AS, AD, ExtraInfo1} = Crap, ExtraInfo2) ->
+ io:format("otp6865e2_mgc_verify_reply_ack -> incorrect ack-status:"
+ "~n AS: ~p"
+ "~n AD: ~p"
+ "~n ExtraInfo1: ~p"
+ "~n ExtraInfo2: ~p"
+ "~n", [AS, AD, ExtraInfo1, ExtraInfo2]),
+ ED = cre_ErrDesc({invalid_ack_status,
+ {AS, AD, ExtraInfo1, ExtraInfo2}}),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply};
+otp6865e2_mgc_verify_reply_ack(Crap, ExtraInfo) ->
+ io:format("otp6865e2_mgc_verify_reply_ack -> invalid ack:"
+ "~n Crap: ~p"
+ "~n ExtraInfo: ~p"
+ "~n", [Crap, ExtraInfo]),
+ ED = cre_ErrDesc({Crap, ExtraInfo}),
+ ErrReply = {discard_ack, ED},
+ {error, Crap, ErrReply}.
+
+
+%% Notify reply verification
+-ifndef(megaco_hipe_special).
+otp6865e2_mgc_verify_notify_reply_fun(ExtraInfo) ->
+ fun(Rep) ->
+ otp6865e2_mgc_verify_notify_reply(Rep, ExtraInfo)
+ end.
+-endif.
+
+otp6865e2_mgc_verify_notify_reply(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _, ExtraInfo}, ExtraInfo) ->
+ io:format("otp6865e2_mgc_verify_notify_reply -> ok"
+ "~n AR: ~p"
+ "~n ExtraInfo: ~p"
+ "~n", [AR, ExtraInfo]),
+ {ok, AR, ok};
+otp6865e2_mgc_verify_notify_reply(Else, ExtraInfo) ->
+ io:format("otp6865e2_mgc_verify_notify_reply -> received unknown event"
+ "~n Else: ~p"
+ "~n ExtraInfo: ~p"
+ "~n", [Else, ExtraInfo]),
+ {error, {Else, ExtraInfo}, ok}.
+
+
+%% Disconnect verification
+otp6865e2_mgc_verify_handle_disconnect(
+ {handle_disconnect, CH, ?VERSION, R}) ->
+ io:format("otp6865e2_mgc_verify_handle_disconnect -> ok"
+ "~n CH: ~p"
+ "~n R: ~p"
+ "~n", [CH, R]),
+ {ok, CH, ok};
+otp6865e2_mgc_verify_handle_disconnect(Else) ->
+ io:format("otp6865e2_mgc_verify_handle_disconnect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+otp6865e2_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ cre_actionReply(Cid, [CR]).
+
+otp6865e2_mgc_notify_reply_ar(Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ cre_actionReply(Cid, [CR]).
+
+otp6865e2_mgc_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp6865e2_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(otp6865e2_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(otp6865e2_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, otp6865e2_mg_verify_service_change_rep_msg, []}).
+-define(otp6865e2_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId, AckRequired),
+ {?MODULE, otp6865e2_mg_verify_notify_rep_msg, [TermId, TransId, ReqId, CtxId, AckRequired]}).
+-define(otp6865e2_mg_verify_notify_req_msg_fun(),
+ {?MODULE, otp6865e2_mg_verify_notify_req_msg, []}).
+-else.
+-define(otp6865e2_mg_decode_msg_fun(Mod, Conf),
+ otp6865e2_mg_decode_msg_fun(Mod, Conf)).
+-define(otp6865e2_mg_encode_msg_fun(Mod, Conf),
+ otp6865e2_mg_encode_msg_fun(Mod, Conf)).
+-define(otp6865e2_mg_verify_service_change_rep_msg_fun(),
+ otp6865e2_mg_verify_service_change_rep_msg_fun()).
+-define(otp6865e2_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId, AckRequired),
+ otp6865e2_mg_verify_notify_rep_msg_fun(TermId, TransId, ReqId, CtxId, AckRequired)).
+-define(otp6865e2_mg_verify_notify_req_msg_fun(),
+ otp6865e2_mg_verify_notify_req_msg_fun()).
+-endif.
+
+otp6865e2_mg_event_sequence(text, tcp) ->
+ DecodeFun = ?otp6865e2_mg_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?otp6865e2_mg_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mg"},
+ ServiceChangeReq = otp6865e2_mg_service_change_request_msg(Mid, 1, 0),
+ ScrVerifyFun = ?otp6865e2_mg_verify_service_change_rep_msg_fun(),
+ TermId1 = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ TermId2 = #megaco_term_id{id = ["00000000","00000000","10010010"]},
+ NotifyReq1 =
+ otp6865e2_mg_notify_request_msg(Mid, TermId1, 2, 1, 1),
+ NrVerifyFun1 =
+ ?otp6865e2_mg_verify_notify_rep_msg_fun(TermId1, 2, 1, 1, false),
+ NotifyReq2 =
+ otp6865e2_mg_notify_request_msg(Mid, TermId2, 3, 2, 2),
+ NrVerifyFun2 =
+ ?otp6865e2_mg_verify_notify_rep_msg_fun(TermId2, 3, 2, 2, true),
+ TransAck = otp6865e2_mg_trans_ack_msg(Mid, 3),
+ NotifyReqVerifyFun = ?otp6865e2_mg_verify_notify_req_msg_fun(),
+ NotifyReply = otp6865e2_mg_notify_reply_msg(Mid, 1, 0, TermId1),
+ EvSeq = [{debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, 2944},
+
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ScrVerifyFun, 10000}},
+
+ %% the original setting for reply timer is 2000
+ {send, "notify request 1", NotifyReq1},
+ {expect_receive, "notify-reply 1", {NrVerifyFun1, 2500}},
+ {sleep, 1000},
+ {send, "notify request 2", NotifyReq2},
+ {expect_receive, "notify-reply 2", {NrVerifyFun2, 2500}},
+ {sleep, 100},
+ {send, "transacktion-ack", TransAck},
+ {expect_receive, "notify-request", {NotifyReqVerifyFun, 2500}},
+ {sleep, 100},
+ {send, "notify-reply", NotifyReply},
+
+ {expect_nothing, 5000},
+ disconnect
+ ],
+ EvSeq.
+
+-ifndef(megaco_hipe_special).
+otp6865e2_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+otp6865e2_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+-endif.
+
+-ifndef(megaco_hipe_special).
+otp6865e2_mg_verify_service_change_rep_msg_fun() ->
+ fun(Msg) ->
+ (catch otp6865e2_mg_verify_service_change_rep_msg(Msg))
+ end.
+-endif.
+
+otp6865e2_mg_verify_service_change_rep_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ Body =
+ case Mess of
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ CR =
+ case AR of
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ SCRes =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = _TermID,
+ serviceChangeResult = ServChRes} ->
+ ServChRes;
+ _ ->
+ throw({error, {invalid_serviceChangeReply, SCR}})
+ end,
+ SCRP =
+ case SCRes of
+ {serviceChangeResParms, Parms} ->
+ Parms;
+ _ ->
+ throw({error, {invalid_serviceChangeResult, SCRes}})
+ end,
+ case SCRP of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _MgcMid} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_serviceChangeResParms, SCRP}}
+ end;
+otp6865e2_mg_verify_service_change_rep_msg(Crap) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+otp6865e2_mg_verify_notify_rep_msg_fun(TermId, TransId, Rid, Cid,
+ AckRequired) ->
+ fun(Msg) ->
+ (catch otp6865e2_mg_verify_notify_rep_msg(Msg,
+ TermId, TransId,
+ Rid, Cid,
+ AckRequired))
+ end.
+-endif.
+
+otp6865e2_mg_verify_notify_rep_msg(#'MegacoMessage'{mess = Mess} = M,
+ TermId, TransId, Rid, Cid, AckRequired) ->
+ io:format("otp6865e2_mg_verify_notify_rep_msg -> entry with"
+ "~n M: ~p"
+ "~n TermId: ~p"
+ "~n TransId: ~p"
+ "~n Rid: ~p"
+ "~n Cid: ~p"
+ "~n", [M, TermId, TransId, Rid, Cid]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_rep_msg -> "
+ "~n Body: ~p"
+ "~n", [Body]),
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_rep_msg -> "
+ "~n Trans: ~p"
+ "~n", [Trans]),
+ TR =
+ case Trans of
+ {transactionReply, TransReply} ->
+ TransReply;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_rep_msg -> "
+ "~n TR: ~p"
+ "~n", [TR]),
+ TRes =
+ case TR of
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = TransRes} when (AckRequired == false) ->
+ TransRes;
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = 'NULL',
+ transactionResult = TransRes} when (AckRequired == true) ->
+ TransRes;
+ _ ->
+ throw({error, {invalid_transactionReply, TR}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_rep_msg -> "
+ "~n TRes: ~p"
+ "~n", [TRes]),
+ AR =
+ case TRes of
+ {actionReplies, [ActRes]} ->
+ ActRes;
+ _ ->
+ throw({error, {invalid_transactionResult, TRes}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_rep_msg -> "
+ "~n AR: ~p"
+ "~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{contextId = Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ throw({error, {invalid_actionReplies, AR}})
+ end,
+ NR =
+ case CR of
+ {notifyReply, NotifyReply} ->
+ NotifyReply;
+ _ ->
+ throw({error, {invalid_commandReply, CR}})
+ end,
+ case NR of
+ #'NotifyReply'{terminationID = [TermId],
+ errorDescriptor = asn1_NOVALUE} ->
+ {ok, M};
+ _ ->
+ {error, {invalid_notifyReply, NR}}
+ end;
+otp6865e2_mg_verify_notify_rep_msg(Crap, _TermId, _TransId, _Rid, _Cid, _AckRequired) ->
+ {error, {invalid_message, Crap}}.
+
+-ifndef(megaco_hipe_special).
+otp6865e2_mg_verify_notify_req_msg_fun() ->
+ fun(M) ->
+ otp6865e2_mg_verify_notify_req_msg(M)
+ end.
+-endif.
+
+otp6865e2_mg_verify_notify_req_msg(#'MegacoMessage'{mess = Mess} = M) ->
+ io:format("otp6865e2_mg_verify_notify_req_msg -> entry with"
+ "~n M: ~p"
+ "~n", [M]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_req_msg -> "
+ "~n Body: ~p"
+ "~n", [Body]),
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_req_msg -> "
+ "~n Trans: ~p"
+ "~n", [Trans]),
+ TR =
+ case Trans of
+ {transactionRequest, TransRequest} ->
+ TransRequest;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_req_msg -> "
+ "~n TR: ~p"
+ "~n", [TR]),
+ AR =
+ case TR of
+ #'TransactionRequest'{transactionId = _TransId,
+ actions = [ActReq]} ->
+ ActReq;
+ _ ->
+ throw({error, {invalid_transactionRequest, TR}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_req_msg -> "
+ "~n AR: ~p"
+ "~n", [AR]),
+ CR =
+ case AR of
+ #'ActionRequest'{contextId = _Cid,
+ commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ throw({error, {invalid_actions, AR}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_req_msg -> "
+ "~n CR: ~p"
+ "~n", [CR]),
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ throw({error, {invalid_commandRequests, CR}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_req_msg -> "
+ "~n Cmd: ~p"
+ "~n", [Cmd]),
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ throw({error, {invalid_command, Cmd}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_req_msg -> "
+ "~n NR: ~p"
+ "~n", [NR]),
+ OED =
+ case NR of
+ #'NotifyRequest'{terminationID = [_TermId],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ ObsEvsDesc;
+ _ ->
+ throw({error, {invalid_notifyReq, NR}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_req_msg -> "
+ "~n OED: ~p"
+ "~n", [OED]),
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ throw({error, {invalid_observedEventsDescriptor, OED}})
+ end,
+ io:format("otp6865e2_mg_verify_notify_req_msg -> "
+ "~n OE: ~p"
+ "~n", [OE]),
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ io:format("otp6865e2_mg_verify_notify_req_msg -> verifyed"
+ "~n", []),
+ {ok, M};
+ _ ->
+ throw({error, {invalid_observedEventLst, OE}})
+ end;
+otp6865e2_mg_verify_notify_req_msg(M) ->
+ {error, {invalid_message, M}}.
+
+otp6865e2_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp6865e2_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = otp6865e2_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+otp6865e2_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp6865e2_mg_notify_request_msg(Mid, TermId, TransId, Rid, Cid) ->
+ AR = otp6865e2_mg_notify_request_ar(Rid, TermId, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+otp6865e2_mg_notify_reply_msg(Mid, TransId, Cid, TermId) ->
+ NR = cre_notifyReply([TermId]),
+ CR = cre_cmdReply(NR),
+ AR = cre_actionReply(Cid, [CR]),
+ TRes = {actionReplies, [AR]},
+ TR = cre_transReply(TransId, TRes),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+otp6865e2_mg_trans_ack_msg(Mid, TransId) ->
+ TR = cre_transRespAck(cre_transAck(TransId)),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_7189(suite) ->
+ [];
+otp_7189(doc) ->
+ "...";
+otp_7189(Config) when is_list(Config) ->
+ put(verbosity, ?TEST_VERBOSITY),
+ put(sname, "TEST"),
+ put(tc, otp_7189),
+ i("starting"),
+
+ MgcNode = make_node_name(mgc),
+ MgNode = make_node_name(mg),
+ d("start nodes: "
+ "~n MgcNode: ~p"
+ "~n MgNode: ~p",
+ [MgcNode, MgNode]),
+ ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE),
+
+ d("[MGC] start the simulator "),
+ {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
+
+ d("[MGC] create the event sequence"),
+ MgcEvSeq = otp_7189_mgc_event_sequence(text, tcp),
+
+ i("wait some time before starting the MGC simulation"),
+ sleep(1000),
+
+ d("[MGC] start the simulation"),
+ {ok, MgcId} = megaco_test_megaco_generator:exec(Mgc, MgcEvSeq),
+
+ i("wait some time before starting the MG simulator"),
+ sleep(1000),
+
+ d("[MG] start the simulator (generator)"),
+ {ok, Mg} = megaco_test_tcp_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgEvSeq = otp_7189_mg_event_sequence(text, tcp),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_tcp_generator:exec(Mg, MgEvSeq),
+
+ d("await the generator reply(s)"),
+ await_completion([MgcId, MgId], 60000),
+
+ %% Tell Mgc to stop
+ i("[MGC] stop generator"),
+ megaco_test_megaco_generator:stop(Mgc),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_tcp_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+%%
+%% MGC generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_7189_mgc_verify_handle_connect_fun(),
+ {?MODULE, otp_7189_mgc_verify_handle_connect, []}).
+-define(otp_7189_mgc_verify_service_change_req_fun(Mid),
+ {?MODULE, otp_7189_mgc_verify_service_change_req, [Mid]}).
+-define(otp_7189_mgc_verify_handle_trans_rep_fun(),
+ {?MODULE, otp_7189_mgc_verify_handle_trans_rep, []}).
+-define(otp_7189_mgc_verify_handle_disconnect_fun(),
+ {?MODULE, otp_7189_mgc_verify_handle_disconnect, []}).
+-else.
+-define(otp_7189_mgc_verify_handle_connect_fun(),
+ otp_7189_mgc_verify_handle_connect_fun()).
+-define(otp_7189_mgc_verify_service_change_req_fun(Mid),
+ otp_7189_mgc_verify_service_change_req_fun(Mid)).
+-define(otp_7189_mgc_verify_handle_trans_rep_fun(),
+ otp_7189_mgc_verify_handle_trans_rep_fun()).
+-define(otp_7189_mgc_verify_handle_disconnect_fun(),
+ fun otp_7189_mgc_verify_handle_disconnect/1).
+-endif.
+
+otp_7189_mgc_event_sequence(text, tcp) ->
+ Mid = {deviceName,"ctrl"},
+ RI = [
+ {port, 2944},
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_tcp}
+ ],
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = [otp_7189_mgc_notify_req_ar(1, Tid, 1)],
+ ConnectVerify = ?otp_7189_mgc_verify_handle_connect_fun(),
+ ScrVerify = ?otp_7189_mgc_verify_service_change_req_fun(Mid),
+ TransReplyVerify = ?otp_7189_mgc_verify_handle_trans_rep_fun(),
+ PendingCountersVerify1 =
+ fun([{Counter, 1}]) ->
+ io:format("received expected recv pending counter:"
+ "~n Counter: ~p"
+ "~n", [Counter]),
+ ok;
+ (BadCounters) ->
+ io:format("ERROR: "
+ "received unexpected number of "
+ "recv pending counters "
+ "(expected one with counter value 1):"
+ "~n BadCounters: ~p"
+ "~n", [BadCounters]),
+ {error, {invalid_pending_counters, BadCounters}}
+ end,
+ PendingCountersVerify2 =
+ fun([]) ->
+ io:format("received expected number of recv pending counters (none)"
+ "~n", []),
+ ok;
+ (BadCounters) ->
+ io:format("ERROR: "
+ "received unexpected number of "
+ "recv pending counters "
+ "(expected none):"
+ "~n BadCounters: ~p"
+ "~n", [BadCounters]),
+ {error, {invalid_pending_counters, BadCounters}}
+ end,
+ EvSeq = [
+ {debug, true},
+ {megaco_trace, disable},
+ {megaco_trace, max},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, recv_pending_limit, 10},
+
+ {megaco_update_user_info, long_request_timer, timer:seconds(10)},
+ {megaco_user_info, all},
+ start_transport,
+ listen,
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_conn_info, all},
+ {megaco_callback, handle_trans_request, ScrVerify},
+ {sleep, 500},
+ {megaco_cast, NotifyReq, []},
+
+ %% Wait for 5 seconds to make sure we are on track
+ {megaco_callback, nocall, timer:seconds(5)},
+ {megaco_system_info, recv_pending_counters, PendingCountersVerify1},
+
+ %% Now wait for the timeout to hit
+ {megaco_callback, handle_trans_reply, TransReplyVerify},
+ {megaco_system_info, recv_pending_counters, PendingCountersVerify2},
+
+ megaco_stop_user,
+ megaco_stop
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+otp_7189_mgc_verify_handle_connect_fun() ->
+ fun(M) ->
+ otp_7189_mgc_verify_handle_connect(M)
+ end.
+-endif.
+
+otp_7189_mgc_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ {ok, CH, ok};
+otp_7189_mgc_verify_handle_connect(Else) ->
+ {error, Else, ok}.
+
+-ifndef(megaco_hipe_special).
+otp_7189_mgc_verify_service_change_req_fun(Mid) ->
+ fun(Req) ->
+ otp_7189_mgc_verify_service_change_req(Req, Mid)
+ end.
+-endif.
+
+otp_7189_mgc_verify_service_change_req(
+ {handle_trans_request, _, ?VERSION, [AR]}, Mid) ->
+ io:format("otp_7189_mgc_verify_service_change_req -> ok"
+ "~n AR: ~p~n", [AR]),
+ case AR of
+ #'ActionRequest'{commandRequests = [CR]} ->
+ case CR of
+ #'CommandRequest'{command = Cmd} ->
+ case Cmd of
+ {serviceChangeReq,
+ #'ServiceChangeRequest'{terminationID = [Tid],
+ serviceChangeParms = Parms}} ->
+ case Tid of
+ #megaco_term_id{contains_wildcards = false,
+ id = ["root"]} ->
+ case Parms of
+ #'ServiceChangeParm'{
+ serviceChangeMethod = restart,
+ serviceChangeReason = [[$9,$0,$1|_]]} ->
+ Reply =
+ {discard_ack,
+ [otp_7189_mgc_service_change_reply_ar(Mid, 1)]},
+ {ok, AR, Reply};
+ _ ->
+ Err = {invalid_SCP, Parms},
+ ED = otp_7189_err_desc(Parms),
+ ErrReply = {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+ _ ->
+ Err = {invalid_termination_id, Tid},
+ ED = otp_7189_err_desc(Tid),
+ ErrReply = {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+ _ ->
+ Err = {invalid_command, Cmd},
+ ED = otp_7189_err_desc(Cmd),
+ ErrReply = {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+ _ ->
+ Err = {invalid_command_request, CR},
+ ED = otp_7189_err_desc(CR),
+ ErrReply = {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+ _ ->
+ Err = {invalid_action_request, AR},
+ ED = otp_7189_err_desc(AR),
+ ErrReply = {discard_ack, ED},
+ {error, Err, ErrReply}
+ end;
+otp_7189_mgc_verify_service_change_req(Else, _Mid) ->
+ io:format("otp_7189_mgc_verify_service_change_req -> unknown"
+ "~n Else: ~p~n", [Else]),
+ ED = otp_7189_err_desc(Else),
+ ErrReply = {discard_ack, ED},
+ {error, Else, ErrReply}.
+
+otp_7189_mgc_notify_req_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_7189_mgc_service_change_reply_ar(Mid, Cid) ->
+ SCRP = cre_serviceChangeResParm(Mid),
+ SCRes = cre_serviceChangeResult(SCRP),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReply([Root], SCRes),
+ CR = cre_cmdReply(SCR),
+ AR = cre_actionReply(Cid, [CR]),
+ AR.
+
+-ifndef(megaco_hipe_special).
+otp_7189_mgc_verify_handle_trans_rep_fun() ->
+ fun(Event) ->
+ (catch otp_7189_mgc_verify_handle_trans_rep(Event))
+ end.
+-endif.
+
+otp_7189_mgc_verify_handle_trans_rep(
+ {handle_trans_reply, CH, ?VERSION, {error, timeout} = Error, _}) ->
+ io:format("otp_6275_mgc_verify_trans_rep -> expected error"
+ "~n CH: ~p"
+ "~n", [CH]),
+ {ok, Error, error};
+otp_7189_mgc_verify_handle_trans_rep(
+ {handle_trans_reply, _CH, ?VERSION, Error, _}) ->
+ io:format("otp_6275_mgc_verify_handle_trans_rep -> unexpected error"
+ "~n Error: ~p"
+ "~n", [Error]),
+ {error, Error, error};
+otp_7189_mgc_verify_handle_trans_rep(Else) ->
+ io:format("otp_6275_mg_verify_handle_trans_rep -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, error}.
+
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_7189_mg_decode_msg_fun(Mod, Conf),
+ {?MODULE, decode_msg, [Mod, Conf]}).
+-define(otp_7189_mg_encode_msg_fun(Mod, Conf),
+ {?MODULE, encode_msg, [Mod, Conf]}).
+-define(otp_7189_mg_verify_service_change_rep_msg_fun(),
+ {?MODULE, otp_7189_mg_verify_service_change_rep_msg, []}).
+-define(otp_7189_mg_verify_notify_req_msg_fun(TermId, TransId, ReqId, CtxId),
+ {?MODULE, otp_7189_mg_verify_notify_req_msg, [TermId, TransId, ReqId, CtxId]}).
+-else.
+-define(otp_7189_mg_decode_msg_fun(Mod, Conf),
+ otp_7189_mg_decode_msg_fun(Mod, Conf)).
+-define(otp_7189_mg_encode_msg_fun(Mod, Conf),
+ otp_7189_mg_encode_msg_fun(Mod, Conf)).
+-define(otp_7189_mg_verify_service_change_rep_msg_fun(),
+ otp_7189_mg_verify_service_change_rep_msg_fun()).
+-define(otp_7189_mg_verify_notify_req_msg_fun(TermId, TransId, ReqId, CtxId),
+ otp_7189_mg_verify_notify_req_msg_fun(TermId, TransId, ReqId, CtxId)).
+-endif.
+
+otp_7189_mg_event_sequence(text, tcp) ->
+ DecodeFun = ?otp_7189_mg_decode_msg_fun(megaco_pretty_text_encoder, []),
+ EncodeFun = ?otp_7189_mg_encode_msg_fun(megaco_pretty_text_encoder, []),
+ Mid = {deviceName,"mg"},
+ ServiceChangeReq = otp_7189_mg_service_change_request_msg(Mid, 1, 0),
+ TermId =
+ #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ TransId = 1,
+ ReqId = 1,
+ CtxId = 1,
+ Pending = otp_7189_mg_trans_pending_msg(Mid, TransId),
+ ServiceChangeReplyVerifyFun =
+ ?otp_7189_mg_verify_service_change_rep_msg_fun(),
+ NotifyReqVerify = ?otp_7189_mg_verify_notify_req_msg_fun(TermId, TransId, ReqId, CtxId),
+ EvSeq = [
+ {debug, true},
+ {decode, DecodeFun},
+ {encode, EncodeFun},
+ {connect, 2944},
+ {send, "service-change-request", ServiceChangeReq},
+ {expect_receive, "service-change-reply", {ServiceChangeReplyVerifyFun, 2000}},
+ {expect_receive, "notify request", {NotifyReqVerify, 2000}},
+ {sleep, 100},
+ {send, "pending", Pending},
+ {expect_closed, timer:seconds(120)},
+ disconnect
+ ],
+ EvSeq.
+
+otp_7189_mg_encode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ encode_msg(M, Mod, Conf)
+ end.
+
+otp_7189_mg_decode_msg_fun(Mod, Conf) ->
+ fun(M) ->
+ decode_msg(M, Mod, Conf)
+ end.
+
+otp_7189_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_7189_mg_service_change_request_msg(Mid, TransId, Cid) ->
+ AR = otp_7189_mg_service_change_request_ar(Mid, Cid),
+ TR = cre_transReq(TransId, [AR]),
+ Trans = cre_transaction(TR),
+ Mess = cre_message(?VERSION, Mid, cre_transactions([Trans])),
+ cre_megacoMessage(Mess).
+
+-ifndef(megaco_hipe_special).
+otp_7189_mg_verify_service_change_rep_msg_fun() ->
+ fun(M) ->
+ otp_7189_mg_verify_service_change_rep_msg(M)
+ end.
+-endif.
+
+otp_7189_mg_verify_service_change_rep_msg(
+ #'MegacoMessage'{mess = Mess} = M) ->
+ io:format("otp_7189_mg_verify_service_change_rep_msg -> "
+ "ok so far~n",[]),
+ #'Message'{version = _V,
+ mId = _MgMid,
+ messageBody = Body} = Mess,
+ {transactions, [Trans]} = Body,
+ {transactionReply, TR} = Trans,
+ #'TransactionReply'{transactionId = _Tid,
+ immAckRequired = asn1_NOVALUE,
+ transactionResult = Res} = TR,
+ {actionReplies, [AR]} = Res,
+ #'ActionReply'{contextId = _Cid,
+ errorDescriptor = asn1_NOVALUE,
+ contextReply = _CtxReq,
+ commandReply = [CR]} = AR,
+ {serviceChangeReply, SCR} = CR,
+ #'ServiceChangeReply'{terminationID = _TermID,
+ serviceChangeResult = SCRes} = SCR,
+ {serviceChangeResParms, SCRP} = SCRes,
+ #'ServiceChangeResParm'{serviceChangeMgcId = _MgcMid} = SCRP,
+ {ok, M};
+otp_7189_mg_verify_service_change_rep_msg(M) ->
+ {error, {invalid_message, M}}.
+
+-ifndef(megaco_hipe_special).
+otp_7189_mg_verify_notify_req_msg_fun(TermId, TransId, Rid, Cid) ->
+ fun(Msg) ->
+ (catch otp_7189_mg_verify_notify_req_msg(Msg,
+ TermId,
+ TransId, Rid, Cid))
+ end.
+-endif.
+
+otp_7189_mg_verify_notify_req_msg(#'MegacoMessage'{mess = Mess} = M,
+ TermId, TransId, Rid, Cid) ->
+ io:format("otp_7189_mgc_verify_notify_req_msg -> entry with"
+ "~n M: ~p"
+ "~n TermId: ~p"
+ "~n TransId: ~p"
+ "~n Rid: ~p"
+ "~n Cid: ~p"
+ "~n", [M, TermId, TransId, Rid, Cid]),
+ Body =
+ case Mess of
+ #'Message'{version = ?VERSION,
+ mId = _Mid,
+ messageBody = MsgBody} ->
+ MsgBody;
+ _ ->
+ throw({error, {invalid_Message, Mess}})
+ end,
+ Trans =
+ case Body of
+ {transactions, [Transactions]} ->
+ Transactions;
+ _ ->
+ throw({error, {invalid_messageBody, Body}})
+ end,
+ TR =
+ case Trans of
+ {transactionRequest, TransRequest} ->
+ TransRequest;
+ _ ->
+ throw({error, {invalid_transactions, Trans}})
+ end,
+ AR =
+ case TR of
+ #'TransactionRequest'{transactionId = TransId,
+ actions = [ActReq]} ->
+ ActReq;
+ _ ->
+ throw({error, {invalid_transactionRequest, TR, TransId}})
+ end,
+ CR =
+ case AR of
+ #'ActionRequest'{contextId = Cid,
+ commandRequests = [CmdReq]} ->
+ CmdReq;
+ _ ->
+ throw({error, {invalid_actions, AR}})
+ end,
+ Cmd =
+ case CR of
+ #'CommandRequest'{command = Command} ->
+ Command;
+ _ ->
+ throw({error, {invalid_commandRequests, CR}})
+ end,
+ NR =
+ case Cmd of
+ {notifyReq, NotifReq} ->
+ NotifReq;
+ _ ->
+ throw({error, {invalid_command, Cmd}})
+ end,
+ OED =
+ case NR of
+ #'NotifyRequest'{terminationID = [TermId],
+ observedEventsDescriptor = ObsEvsDesc,
+ errorDescriptor = asn1_NOVALUE} ->
+ ObsEvsDesc;
+ _ ->
+ throw({error, {invalid_notifyReq, NR}})
+ end,
+ OE =
+ case OED of
+ #'ObservedEventsDescriptor'{observedEventLst = [ObsEvLst]} ->
+ ObsEvLst;
+ _ ->
+ throw({error, {invalid_observedEventsDescriptor, OED}})
+ end,
+ case OE of
+ #'ObservedEvent'{eventName = "al/of"} ->
+ {ok, M};
+ _ ->
+ throw({error, {invalid_observedEventLst, OE}})
+ end;
+otp_7189_mg_verify_notify_req_msg(Crap, _TermId, _TransId, _Rid, _Cid) ->
+ {error, {invalid_MegacoMessage, Crap}}.
+
+
+otp_7189_mg_trans_pending_msg(Mid, TransId) ->
+ TP = #'TransactionPending'{transactionId = TransId},
+ Body = {transactions, [{transactionPending, TP}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+
+otp_7189_err_desc(T) ->
+ EC = ?megaco_internal_gateway_error,
+ ET = lists:flatten(io_lib:format("~w",[T])),
+ #'ErrorDescriptor'{errorCode = EC, errorText = ET}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+otp_7259(suite) ->
+ [];
+otp_7259(doc) ->
+ ["This is a variant of ticket OTP-6442"];
+otp_7259(Config) when is_list(Config) ->
+ put(verbosity, debug),
+ put(sname, "TEST"),
+ put(tc, otp7259rr),
+ i("starting"),
+
+ MgNode = make_node_name(mg),
+ d("start (MG) node: ~p", [MgNode]),
+ ok = megaco_test_lib:start_nodes([MgNode], ?FILE, ?LINE),
+
+ d("[MG] start the simulator "),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgMid = {deviceName,"mg"},
+ MgEvSeq = otp_7259_mg_event_sequence(MgMid),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ i("await the transport module service change send_message event"),
+ Pid = otp_7259_expect(fun otp_7259_verify_scr_msg/1, 5000),
+
+ i("wait some before issuing the service change reply"),
+ sleep(500),
+
+ i("send the service change reply"),
+ MgcMid = {deviceName,"mgc"},
+ ServiceChangeReply = otp_7259_mgc_service_change_reply_msg(MgcMid, 1, 1),
+ megaco_test_generic_transport:incomming_message(Pid, ServiceChangeReply),
+
+ i("await the transport module "
+ "notify-request send_message event from MG: "
+ "ignore"),
+ ok = otp_7259_expect(fun otp_7259_verify_first_nr_msg/1, 5000),
+
+ i("await the transport module "
+ "notify-request resend_message event from MG: "
+ "reply"),
+ {TransId2, Cid2, TermId2} =
+ otp_7259_expect(fun otp_7259_verify_second_nr_msg/1, 10000),
+
+ i("wait some before issuing the notify reply"),
+ sleep(500),
+
+ i("send the notify reply"),
+ NotifyReply =
+ otp_7259_mgc_notify_reply_msg(MgcMid, TransId2, Cid2, TermId2),
+ megaco_test_generic_transport:incomming_message(Pid, NotifyReply),
+
+ d("[MG] await the generator reply"),
+ await_completion([MgId], 5000),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+otp_7259_expect(Verify, Timeout) when (Timeout > 0) ->
+ T = mtime(),
+ receive
+ Msg ->
+ case (catch Verify(Msg)) of
+ {ok, Result} ->
+ d("verified after ~p msec", [mtime() - T]),
+ Result;
+ skip ->
+ otp_7259_expect(Verify, to(Timeout, T));
+ {error, Reason} ->
+ exit({verification_failed, Reason})
+ end
+ after Timeout ->
+ exit(timeout)
+ end;
+otp_7259_expect(_, _Timeout) ->
+ exit(timeout).
+
+otp_7259_verify_scr_msg(
+ {transport_event, {send_message, _SH, {message, Msg, Resend}}, Pid})
+ when is_record(Msg, 'MegacoMessage') andalso ((Resend =:= true) orelse (Resend =:= false)) ->
+ d("received expected service change request message: "
+ "~n Msg: ~p"
+ "~n Resend: ~p", [Msg, Resend]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, Pid};
+otp_7259_verify_scr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+otp_7259_verify_first_nr_msg(
+ {transport_event, {send_message, _SH, {message, Msg, Resend}}, Pid})
+ when is_record(Msg, 'MegacoMessage') andalso ((Resend =:= true) orelse (Resend =:= false)) ->
+ d("received expected first notify request send message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, ok};
+otp_7259_verify_first_nr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+otp_7259_verify_second_nr_msg(
+ {transport_event, {send_message, _SH, {message, Msg, Resend}}, Pid})
+ when is_record(Msg, 'MegacoMessage') andalso ((Resend =:= true) orelse (Resend =:= false)) ->
+ d("received expected second notify request send message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ #'MegacoMessage'{mess = Mess} = Msg,
+ #'Message'{mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, Transactions} = Body,
+ [Transaction] = Transactions,
+ {transactionRequest, TransReq} = Transaction,
+ #'TransactionRequest'{transactionId = TransId,
+ actions = Actions} = TransReq,
+ [Action] = Actions,
+ #'ActionRequest'{contextId = Cid,
+ commandRequests = CmdReqs} = Action,
+ [CmdReq] = CmdReqs,
+ #'CommandRequest'{command = Cmd} = CmdReq,
+ {notifyReq, NR} = Cmd,
+ #'NotifyRequest'{terminationID = [TermId]} = NR,
+ {ok, {TransId, Cid, TermId}};
+otp_7259_verify_second_nr_msg(Msg) ->
+ {error, {invalid_message, Msg}}.
+
+
+otp_7259_mgc_service_change_reply_msg(Mid, TransId, Cid) ->
+ SCRP = #'ServiceChangeResParm'{serviceChangeMgcId = Mid},
+ SCRPs = {serviceChangeResParms, SCRP},
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = #'ServiceChangeReply'{terminationID = [Root],
+ serviceChangeResult = SCRPs},
+ CR = {serviceChangeReply, SCR},
+ otp_7259_mgc_reply_msg(Mid, TransId, CR, Cid).
+
+otp_7259_mgc_notify_reply_msg(Mid, TransId, Cid, TermId) ->
+ NR = #'NotifyReply'{terminationID = [TermId]},
+ CR = {notifyReply, NR},
+ otp_7259_mgc_reply_msg(Mid, TransId, CR, Cid).
+
+otp_7259_mgc_reply_msg(Mid, TransId, CR, Cid) ->
+ AR = #'ActionReply'{contextId = Cid,
+ commandReply = [CR]},
+ ARs = {actionReplies, [AR]},
+ TR = #'TransactionReply'{transactionId = TransId,
+ transactionResult = ARs},
+ Body = {transactions, [{transactionReply, TR}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_7259_mg_verify_handle_connect_fun(),
+ {?MODULE, otp_7259_mg_verify_handle_connect, []}).
+-define(otp_7259_mg_verify_service_change_rep_fun(),
+ {?MODULE, otp_7259_mg_verify_service_change_rep, []}).
+-define(otp_7259_mg_verify_notify_rep_fun(),
+ {?MODULE, otp_7259_mg_verify_notify_rep, []}).
+-else.
+-define(otp_7259_mg_verify_handle_connect_fun(),
+ otp_7259_mg_verify_handle_connect_fun()).
+-define(otp_7259_mg_verify_service_change_rep_fun(),
+ otp_7259_mg_verify_service_change_rep_fun()).
+-define(otp_7259_mg_verify_notify_rep_fun(),
+ otp_7259_mg_verify_notify_rep_fun()).
+-endif.
+
+otp_7259_mg_event_sequence(Mid) ->
+ RI = [
+ {port, self()}, % This is just a trick to get my pid to the transport module
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_test_generic_transport}
+ ],
+ ServiceChangeReq =
+ otp_7259_mg_service_change_request_ar(Mid, 1),
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = otp_7259_mg_notify_request_ar(1, Tid, 1),
+ ConnectVerify =
+ ?otp_7259_mg_verify_handle_connect_fun(),
+ ServiceChangeReplyVerify =
+ ?otp_7259_mg_verify_service_change_rep_fun(),
+ NotifyReplyVerify =
+ ?otp_7259_mg_verify_notify_rep_fun(),
+ EvSeq = [
+ {debug, false},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ {megaco_update_user_info, resend_indication, flag},
+ start_transport,
+ {megaco_trace, disable},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, [ServiceChangeReq], []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+ {sleep, 1000},
+ {megaco_cast, [NotifyReq], []},
+ {megaco_callback, handle_trans_reply, NotifyReplyVerify},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+otp_7259_mg_verify_handle_connect_fun() ->
+ fun(Ev) ->
+ otp_7259_mg_verify_handle_connect(Ev)
+ end.
+-endif.
+
+otp_7259_mg_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("otp_7259_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+otp_7259_mg_verify_handle_connect(Else) ->
+ io:format("otp_7259_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+-ifndef(megaco_hipe_special).
+otp_7259_mg_verify_service_change_rep_fun() ->
+ fun(Rep) ->
+ otp_7259_mg_verify_service_change_rep(Rep)
+ end.
+-endif.
+
+otp_7259_mg_verify_service_change_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ (catch otp_7259_mg_do_verify_service_change_rep(AR));
+otp_7259_mg_verify_service_change_rep(Crap) ->
+ {error, Crap, ok}.
+
+otp_7259_mg_do_verify_service_change_rep(AR) ->
+ io:format("otp_7259_mg_verify_service_change_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ Reason1 = {invalid_action_reply, AR},
+ throw({error, Reason1, ok})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ Reason2 = {invalid_command_reply, CR},
+ throw({error, Reason2, ok})
+ end,
+ {Tid, SCRes} =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = [TermID],
+ serviceChangeResult = Res} ->
+ {TermID, Res};
+ _ ->
+ Reason3 = {invalid_service_change_reply, SCR},
+ throw({error, Reason3, ok})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Reason4 = {invalid_termination_id, Tid},
+ throw({error, Reason4, ok})
+ end,
+ SCRParm =
+ case SCRes of
+ {serviceChangeResParms, ServChResParms} ->
+ ServChResParms;
+ _ ->
+ Reason5 = {invalid_serviceChangeResult, SCRes},
+ throw({error, Reason5, ok})
+ end,
+ case SCRParm of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _RemoteMid} ->
+ {ok, AR, ok};
+ _ ->
+ Reason6 = {invalid_service_change_result, SCRParm},
+ {error, Reason6, ok}
+ end.
+
+-ifndef(megaco_hipe_special).
+otp_7259_mg_verify_notify_rep_fun() ->
+ fun(Rep) ->
+ otp_7259_mg_verify_notify_rep(Rep)
+ end.
+-endif.
+
+otp_7259_mg_verify_notify_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ io:format("otp_7259_mg_verify_notify_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ {ok, AR, ok};
+otp_7259_mg_verify_notify_rep(Else) ->
+ io:format("otp_7259_mg_verify_notify_rep -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+
+otp_7259_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_7259_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_7713(suite) ->
+ [];
+otp_7713(doc) ->
+ [];
+otp_7713(Config) when is_list(Config) ->
+ ?ACQUIRE_NODES(1, Config),
+
+ put(verbosity, debug),
+ put(sname, "TEST"),
+ put(tc, otp7713),
+ i("starting"),
+
+ d("start proxy",[]),
+ megaco_mess_user_test:start_proxy(),
+
+ Extra = otp7713_extra,
+ PrelMid = preliminary_mid,
+ MgMid = ipv4_mid(4711),
+ MgcMid = ipv4_mid(),
+ UserMod = megaco_mess_user_test,
+ d("start megaco app",[]),
+ ?VERIFY(ok, application:start(megaco)),
+ UserConfig = [{user_mod, UserMod}, {send_mod, UserMod},
+ {request_timer, infinity}, {reply_timer, infinity}],
+ d("start (MG) user ~p",[MgMid]),
+ ?VERIFY(ok, megaco:start_user(MgMid, UserConfig)),
+
+ d("start (MGC) user ~p",[MgcMid]),
+ ?VERIFY(ok, megaco:start_user(MgcMid, UserConfig)),
+
+ d("get receive info for ~p",[MgMid]),
+ MgRH = user_info(MgMid, receive_handle),
+ d("get receive info for ~p",[MgcMid]),
+ MgcRH = user_info(MgcMid, receive_handle),
+ d("start transport",[]),
+ {ok, MgPid, MgSH} =
+ ?VERIFY({ok, _, _}, UserMod:start_transport(MgRH, MgcRH)),
+ PrelMgCH = #megaco_conn_handle{local_mid = MgMid,
+ remote_mid = preliminary_mid},
+ MgCH = #megaco_conn_handle{local_mid = MgMid,
+ remote_mid = MgcMid},
+ MgcCH = #megaco_conn_handle{local_mid = MgcMid,
+ remote_mid = MgMid},
+ d("(MG) try connect to MGC",[]),
+ ?SEND(megaco:connect(MgRH, PrelMid, MgSH, MgPid, Extra)), % Mg prel
+ d("await connect from MG", []),
+ ?USER({connect, PrelMgCH, _V, [Extra]}, ok),
+ ?RECEIVE([{res, _, {ok, PrelMgCH}}]),
+
+ d("(MG) send service change request",[]),
+ Req = service_change_request(),
+ ?SEND(megaco:call(PrelMgCH, [Req], [])),
+
+ d("(MGC) send service change reply",[]),
+ ?USER({connect, MgcCH, _V, []}, ok), % Mgc auto
+ Rep = service_change_reply(MgcMid),
+ ?USER({request, MgcCH, _V, [[Req]]}, {discard_ack, [Rep]}),
+ ?USER({connect, MgCH, _V, []}, ok), % Mg confirm
+ ?RECEIVE([{res, _, {1, {ok, [Rep]}}}]),
+
+ d("get (system info) connections",[]),
+ connections([MgCH, MgcCH]),
+ d("get (~p) connections",[MgMid]),
+ ?VERIFY([MgCH], megaco:user_info(MgMid, connections)),
+ d("get (~p) connections",[MgcMid]),
+ ?VERIFY([MgcCH], megaco:user_info(MgcMid, connections)),
+
+ Reason = shutdown,
+ d("(MG) disconnect",[]),
+ ?SEND(megaco:disconnect(MgCH, Reason)),
+ ?USER({disconnect, MgCH, _V, [{user_disconnect, Reason}]}, ok),
+ ?RECEIVE([{res, _, ok}]),
+ ?VERIFY(ok, megaco:stop_user(MgMid)),
+
+ d("(MGC) disconnect",[]),
+ ?SEND(megaco:disconnect(MgcCH, Reason)),
+ ?USER({disconnect, MgcCH, _V, [{user_disconnect, Reason}]}, ok),
+ ?RECEIVE([{res, _, ok}]),
+ ?VERIFY(ok, megaco:stop_user(MgcMid)),
+
+ d("stop megaco app",[]),
+ ?VERIFY(ok, application:stop(megaco)),
+ ?RECEIVE([]),
+
+ d("done",[]),
+ ok.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp_8183_request1(suite) ->
+ [];
+otp_8183_request1(Config) when is_list(Config) ->
+ put(verbosity, debug),
+ put(sname, "TEST"),
+ put(tc, otp8183r1),
+ i("starting"),
+
+ MgNode = make_node_name(mg),
+ d("start (MG) node: ~p", [MgNode]),
+ ok = megaco_test_lib:start_nodes([MgNode], ?FILE, ?LINE),
+
+ d("[MG] start the simulator "),
+ {ok, Mg} = megaco_test_megaco_generator:start_link("MG", MgNode),
+
+ d("[MG] create the event sequence"),
+ MgMid = {deviceName,"mg"},
+ MgEvSeq = otp_8183_r1_mg_event_sequence(MgMid),
+
+ i("wait some time before starting the MG simulation"),
+ sleep(1000),
+
+ d("[MG] start the simulation"),
+ {ok, MgId} = megaco_test_megaco_generator:exec(Mg, MgEvSeq),
+
+ i("await the transport module service change send_message event"),
+ Pid = otp_8183_expect(fun(Ev) -> otp_8183_r1_verify_scr_msg(Ev) end, 5000),
+
+ i("wait some before issuing the service change reply"),
+ sleep(500),
+
+ i("send the service change reply"),
+ MgcMid = {deviceName,"mgc"},
+ ServiceChangeReply = otp_8183_r1_mgc_service_change_reply_msg(MgcMid, 1, 1),
+ megaco_test_generic_transport:incomming_message(Pid, ServiceChangeReply),
+
+ i("await the transport module "
+ "notify-request send_message event from MG: "
+ "ignore"),
+ {TransId2, Cid2, TermId2} =
+ otp_8183_expect(fun(Ev) -> otp_8183_r1_verify_nr_msg(Ev) end, 5000),
+
+ i("wait some before issuing the notify reply (twice)"),
+ sleep(500),
+
+ i("send the notify reply, twice times"),
+ NotifyReply =
+ otp_8183_r1_mgc_notify_reply_msg(MgcMid, TransId2, Cid2, TermId2),
+ megaco_test_generic_transport:incomming_message(Pid, NotifyReply),
+ megaco_test_generic_transport:incomming_message(Pid, NotifyReply),
+
+ d("await the generator reply"),
+ await_completion([MgId]),
+
+ %% Tell Mg to stop
+ i("[MG] stop generator"),
+ megaco_test_megaco_generator:stop(Mg),
+
+ i("done", []),
+ ok.
+
+
+otp_8183_expect(Verify, Timeout) when (Timeout > 0) ->
+ T = mtime(),
+ receive
+ Msg ->
+ case (catch Verify(Msg)) of
+ {ok, Result} ->
+ d("verified after ~p msec", [mtime() - T]),
+ Result;
+ skip ->
+ otp_8183_expect(Verify, to(Timeout, T));
+ {error, Reason} ->
+ exit({verification_failed, Reason})
+ end
+ after Timeout ->
+ exit(timeout)
+ end;
+otp_8183_expect(_, _Timeout) ->
+ exit(timeout).
+
+otp_8183_r1_verify_scr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ d("received expected service change request message: "
+ "~n Msg: ~p", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ {ok, Pid};
+otp_8183_r1_verify_scr_msg(
+ {transport_event, {send_message, _SH, BadMsg}, _Pid}) ->
+ io:format("otp_8183_r1_verify_scr_msg -> error: "
+ "~n BadMsg: ~p"
+ "~n", [BadMsg]),
+ {error, {invalid_message, BadMsg}};
+otp_8183_r1_verify_scr_msg({transport_event, BadEvent, _Pid}) ->
+ io:format("otp_8183_r1_verify_scr_msg -> error: "
+ "~n BadEvent: ~p"
+ "~n", [BadEvent]),
+ {error, {invalid_message, BadEvent}};
+otp_8183_r1_verify_scr_msg(Msg) ->
+ io:format("otp_8183_r1_verify_scr_msg -> error: "
+ "~n Msg: ~p"
+ "~n", [Msg]),
+ {error, {invalid_message, Msg}}.
+
+otp_8183_r1_verify_nr_msg(
+ {transport_event, {send_message, _SH, {message, Msg}}, Pid})
+ when is_record(Msg, 'MegacoMessage') ->
+ io:format("otp_8183_r1_verify_nr_msg -> "
+ "entry when received expected message with"
+ "~n Msg: ~p"
+ "~n", [Msg]),
+ Reply = ok,
+ Pid ! {transport_reply, Reply, self()},
+ #'MegacoMessage'{mess = Mess} = Msg,
+ #'Message'{mId = _Mid,
+ messageBody = Body} = Mess,
+ {transactions, Transactions} = Body,
+ [Transaction] = Transactions,
+ {transactionRequest, TransReq} = Transaction,
+ #'TransactionRequest'{transactionId = TransId,
+ actions = Actions} = TransReq,
+ [Action] = Actions,
+ #'ActionRequest'{contextId = Cid,
+ commandRequests = CmdReqs} = Action,
+ [CmdReq] = CmdReqs,
+ #'CommandRequest'{command = Cmd} = CmdReq,
+ {notifyReq, NR} = Cmd,
+ #'NotifyRequest'{terminationID = [TermId]} = NR,
+ {ok, {TransId, Cid, TermId}};
+otp_8183_r1_verify_nr_msg(Msg) ->
+ io:format("otp_8183_r1_verify_nr_msg -> entry when error with"
+ "~n Msg: ~p"
+ "~n", [Msg]),
+ {error, {invalid_message, Msg}}.
+
+otp_8183_r1_mgc_service_change_reply_msg(Mid, TransId, Cid) ->
+ SCRP = #'ServiceChangeResParm'{serviceChangeMgcId = Mid},
+ SCRPs = {serviceChangeResParms, SCRP},
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = #'ServiceChangeReply'{terminationID = [Root],
+ serviceChangeResult = SCRPs},
+ CR = {serviceChangeReply, SCR},
+ otp_8183_r1_mgc_reply_msg(Mid, TransId, CR, Cid).
+
+otp_8183_r1_mgc_notify_reply_msg(Mid, TransId, Cid, TermId) ->
+ NR = #'NotifyReply'{terminationID = [TermId]},
+ CR = {notifyReply, NR},
+ otp_8183_r1_mgc_reply_msg(Mid, TransId, CR, Cid).
+
+otp_8183_r1_mgc_reply_msg(Mid, TransId, CR, Cid) ->
+ AR = #'ActionReply'{contextId = Cid,
+ commandReply = [CR]},
+ ARs = {actionReplies, [AR]},
+ TR = #'TransactionReply'{transactionId = TransId,
+ transactionResult = ARs},
+ Body = {transactions, [{transactionReply, TR}]},
+ Mess = #'Message'{version = 1,
+ mId = Mid,
+ messageBody = Body},
+ #'MegacoMessage'{mess = Mess}.
+
+
+%%
+%% MG generator stuff
+%%
+-ifdef(megaco_hipe_special).
+-define(otp_8183_r1_mg_verify_handle_connect_fun(),
+ {?MODULE, otp_8183_r1_mg_verify_handle_connect, []}).
+-define(otp_8183_r1_mg_verify_service_change_rep_fun(),
+ {?MODULE, otp_8183_r1_mg_verify_service_change_rep, []}).
+-define(otp_8183_r1_mg_verify_notify_rep_fun(Nr
+ {?MODULE, otp_8183_r1_mg_verify_notify_rep, [Nr).
+-else.
+-define(otp_8183_r1_mg_verify_handle_connect_fun(),
+ otp_8183_r1_mg_verify_handle_connect_fun()).
+-define(otp_8183_r1_mg_verify_service_change_rep_fun(),
+ otp_8183_r1_mg_verify_service_change_rep_fun()).
+-define(otp_8183_r1_mg_verify_notify_rep_fun(Nr),
+ otp_8183_r1_mg_verify_notify_rep_fun(Nr)).
+-endif.
+
+otp_8183_r1_mg_event_sequence(Mid) ->
+ RI = [
+ {port, self()}, % This is just a trick to get my pid to the transport module
+ {encoding_module, megaco_pretty_text_encoder},
+ {encoding_config, []},
+ {transport_module, megaco_test_generic_transport}
+ ],
+ ServiceChangeReq =
+ otp_8183_r1_mg_service_change_request_ar(Mid, 1),
+ Tid = #megaco_term_id{id = ["00000000","00000000","01101101"]},
+ NotifyReq = otp_8183_r1_mg_notify_request_ar(1, Tid, 1),
+ ConnectVerify =
+ ?otp_8183_r1_mg_verify_handle_connect_fun(),
+ ServiceChangeReplyVerify =
+ ?otp_8183_r1_mg_verify_service_change_rep_fun(),
+ NotifyReplyVerify =
+ fun(Nr) ->
+ ?otp_8183_r1_mg_verify_notify_rep_fun(Nr)
+ end,
+ EvSeq = [
+ {debug, true}, % false},
+ megaco_start,
+ {megaco_start_user, Mid, RI, []},
+ start_transport,
+ {megaco_trace, disable},
+ {megaco_system_info, users},
+ {megaco_system_info, connections},
+ connect,
+ {megaco_callback, handle_connect, ConnectVerify},
+ megaco_connect,
+ {megaco_cast, [ServiceChangeReq], []},
+ {megaco_callback, handle_connect, ConnectVerify},
+ {megaco_callback, handle_trans_reply, ServiceChangeReplyVerify},
+
+ {sleep, 1000},
+ {megaco_cast, [NotifyReq], [{request_keep_alive_timeout, 5000}]},
+ {megaco_callback, handle_trans_reply, NotifyReplyVerify(1)},
+ {megaco_callback, handle_trans_reply, NotifyReplyVerify(2)},
+ {sleep, 1000},
+ megaco_stop_user,
+ megaco_stop,
+ {sleep, 1000}
+ ],
+ EvSeq.
+
+
+-ifndef(megaco_hipe_special).
+otp_8183_r1_mg_verify_handle_connect_fun() ->
+ fun(Ev) ->
+ otp_8183_r1_mg_verify_handle_connect(Ev)
+ end.
+-endif.
+
+otp_8183_r1_mg_verify_handle_connect({handle_connect, CH, ?VERSION}) ->
+ io:format("otp_8183_r1_mg_verify_handle_connect -> ok"
+ "~n CH: ~p~n", [CH]),
+ {ok, CH, ok};
+otp_8183_r1_mg_verify_handle_connect(Else) ->
+ io:format("otp_8183_r1_mg_verify_handle_connect -> unknown"
+ "~n Else: ~p~n", [Else]),
+ {error, Else, ok}.
+
+-ifndef(megaco_hipe_special).
+otp_8183_r1_mg_verify_service_change_rep_fun() ->
+ fun(Rep) ->
+ otp_8183_r1_mg_verify_service_change_rep(Rep)
+ end.
+-endif.
+
+otp_8183_r1_mg_verify_service_change_rep(
+ {handle_trans_reply, _CH, ?VERSION, {ok, [AR]}, _}) ->
+ (catch otp_8183_r1_mg_do_verify_service_change_rep(AR));
+otp_8183_r1_mg_verify_service_change_rep(Crap) ->
+ io:format("otp_8183_r1_mg_verify_service_change_rep -> crap"
+ "~n Crap: ~p"
+ "~n", [Crap]),
+ {error, Crap, ok}.
+
+otp_8183_r1_mg_do_verify_service_change_rep(AR) ->
+ io:format("otp_8183_r1_mg_do_verify_service_change_rep -> ok"
+ "~n AR: ~p~n", [AR]),
+ CR =
+ case AR of
+ #'ActionReply'{commandReply = [CmdRep]} ->
+ CmdRep;
+ _ ->
+ Reason1 = {invalid_action_reply, AR},
+ throw({error, Reason1, ok})
+ end,
+ SCR =
+ case CR of
+ {serviceChangeReply, ServChRep} ->
+ ServChRep;
+ _ ->
+ Reason2 = {invalid_command_reply, CR},
+ throw({error, Reason2, ok})
+ end,
+ {Tid, SCRes} =
+ case SCR of
+ #'ServiceChangeReply'{terminationID = [TermID],
+ serviceChangeResult = Res} ->
+ {TermID, Res};
+ _ ->
+ Reason3 = {invalid_service_change_reply, SCR},
+ throw({error, Reason3, ok})
+ end,
+ case Tid of
+ #megaco_term_id{contains_wildcards = false, id = ["root"]} ->
+ ok;
+ _ ->
+ Reason4 = {invalid_termination_id, Tid},
+ throw({error, Reason4, ok})
+ end,
+ SCRParm =
+ case SCRes of
+ {serviceChangeResParms, ServChResParms} ->
+ ServChResParms;
+ _ ->
+ Reason5 = {invalid_serviceChangeResult, SCRes},
+ throw({error, Reason5, ok})
+ end,
+ case SCRParm of
+ #'ServiceChangeResParm'{serviceChangeMgcId = _RemoteMid} ->
+ {ok, AR, ok};
+ _ ->
+ Reason6 = {invalid_service_change_result, SCRParm},
+ {error, Reason6, ok}
+ end.
+
+-ifndef(megaco_hipe_special).
+otp_8183_r1_mg_verify_notify_rep_fun(Nr) ->
+ fun(Rep) ->
+ otp_8183_r1_mg_verify_notify_rep(Nr, Rep)
+ end.
+-endif.
+
+otp_8183_r1_mg_verify_notify_rep(Nr,
+ {handle_trans_reply, _CH, ?VERSION, {ok, Nr, [AR]}, _}) ->
+ io:format("otp_8183_r1_mg_verify_notify_rep -> ok"
+ "~n Nr: ~p"
+ "~n AR: ~p"
+ "~n", [Nr, AR]),
+ {ok, AR, ok};
+otp_8183_r1_mg_verify_notify_rep(Nr, Else) ->
+ io:format("otp_8183_r1_mg_verify_notify_rep -> unknown"
+ "~n Nr: ~p"
+ "~n Else: ~p"
+ "~n", [Nr, Else]),
+ {error, Else, ok}.
+
+
+otp_8183_r1_mg_service_change_request_ar(_Mid, Cid) ->
+ Prof = cre_serviceChangeProf("resgw", 1),
+ SCP = cre_serviceChangeParm(restart, ["901 mg col boot"], Prof),
+ Root = #megaco_term_id{id = ["root"]},
+ SCR = cre_serviceChangeReq([Root], SCP),
+ CMD = cre_command(SCR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+otp_8183_r1_mg_notify_request_ar(Rid, Tid, Cid) ->
+ TT = cre_timeNotation("19990729", "22000000"),
+ Ev = cre_obsEvent("al/of", TT),
+ EvsDesc = cre_obsEvsDesc(Rid, [Ev]),
+ NR = cre_notifyReq([Tid], EvsDesc),
+ CMD = cre_command(NR),
+ CR = cre_cmdReq(CMD),
+ cre_actionReq(Cid, [CR]).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+otp8212_scr(MidStr) ->
+ Msg = "!/1 " ++ MidStr ++ " T=19731{C=-{SC=ROOT{SV{MT=RS,RE=\"901\"}}}}",
+ list_to_binary(Msg).
+
+otp_8212(suite) ->
+ [];
+otp_8212(doc) ->
+ [];
+otp_8212(Config) when is_list(Config) ->
+ %% ?ACQUIRE_NODES(1, Config),
+
+ put(verbosity, debug),
+ put(sname, "TEST"),
+ put(tc, otp8212),
+ i("starting"),
+
+ Extra = otp8212_extra,
+ NoMid = preliminary_mid,
+ LocalMid = {deviceName, "MGC"},
+ RemoteMidStr1 = "bgf1",
+ RemoteMid1 = {deviceName, RemoteMidStr1},
+ RemoteMidStr2 = "bgf2",
+ RemoteMid2 = {deviceName, RemoteMidStr2},
+ UserMod = megaco_mess_otp8212_test,
+
+ d("set megaco trace level to max",[]),
+ megaco:enable_trace(max, io),
+
+ d("start megaco app",[]),
+ ?VERIFY(ok, application:start(megaco)),
+
+ d("start local user (MGC) ~p", [LocalMid]),
+ UserConfig = [{user_mod, UserMod}, {send_mod, UserMod}],
+ ?VERIFY(ok, megaco:start_user(LocalMid, UserConfig)),
+
+ d("get (MGC) receive info for ~p", [LocalMid]),
+ RH0 = user_info(LocalMid, receive_handle),
+ RH = RH0#megaco_receive_handle{encoding_mod = megaco_mess_otp8212_test,
+ encoding_config = []},
+
+ d("do a pre-connect for ~p", [LocalMid]),
+ ControlPid = self(),
+ SendHandle = {RH, ControlPid, RemoteMidStr1, RemoteMidStr2},
+ ?VERIFY({ok, _}, megaco:connect(RH, NoMid, SendHandle, ControlPid)),
+
+ d("simulate incomming service change message from ~p",
+ [RemoteMidStr1]),
+ ?VERIFY(ok,
+ megaco:process_received_message(RH, ControlPid,
+ otp8212_scr,
+ otp8212_scr(RemoteMidStr1))),
+
+ d("get the updated connection handle", []),
+ [CH] = megaco:user_info(LocalMid, connections),
+
+ d("verify connection with ~p", [RemoteMidStr1]),
+ ?VERIFY(RemoteMid1, megaco:conn_info(CH, remote_mid)),
+
+ d("send a request to ~p but receive no reply but an unexpected call",
+ [RemoteMidStr1]),
+ Res = megaco:call(CH, ["action request"], [{request_timer, 2000}]),
+ d("request result: ~p", [Res]),
+ ?VERIFY({1, [{error, {wrong_mid, RemoteMid2, RemoteMid1, _}, {Extra, _}}]}, Res),
+
+ Conns = disconnect_all(LocalMid),
+ await_disconnected(Conns),
+
+ d("stop megaco user ~p",[LocalMid]),
+ ok = await_stopped_user(LocalMid),
+
+ d("stop megaco app",[]),
+ ?VERIFY(ok, application:stop(megaco)),
+ ?RECEIVE([]),
+
+ d("done",[]),
+ ok.
+
+disconnect_all(LocalMid) ->
+ Conns = megaco:user_info(LocalMid, connections),
+ d("[~p] disconnect from all connections: ~n~p", [LocalMid, Conns]),
+ lists:foreach(
+ fun(Conn) ->
+ d("[~p] disconnect from connection ~p", [LocalMid, Conn]),
+ DiscoRes = megaco:disconnect(Conn, {otp8212_done, self()}),
+ d("[~p] disconnect result: ~p", [LocalMid, DiscoRes])
+ end,
+ Conns),
+ Conns.
+
+await_disconnected([]) ->
+ ok;
+await_disconnected(Conns) ->
+ receive
+ {disconnected, Conn} ->
+ d("disconnected: ~p", [Conn]),
+ Conns2 = lists:delete(Conn, Conns),
+ await_disconnected(Conns2)
+ end.
+
+
+await_stopped_user(LocalMid) ->
+ await_stopped_user(LocalMid, 10).
+
+await_stopped_user(LocalMid, N) when N =< 0 ->
+ ?ERROR({failed_stopping_user, LocalMid});
+await_stopped_user(LocalMid, N) ->
+ case megaco:stop_user(LocalMid) of
+ ok ->
+ d("user stopped(~w)", [N]),
+ ok;
+ {error, {active_connections, _}} ->
+ d("still active connections when N = ~w", [N]),
+ Conns = disconnect_all(LocalMid),
+ await_disconnected(Conns),
+ ?SLEEP(500),
+ await_stopped_user(LocalMid, N-1)
+ end.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+cre_ErrDesc(T) ->
+ EC = ?megaco_internal_gateway_error,
+ ET = lists:flatten(io_lib:format("~w",[T])),
+ #'ErrorDescriptor'{errorCode = EC, errorText = ET}.
+
+
+cre_serviceChangeParm(M,R,P) ->
+ #'ServiceChangeParm'{serviceChangeMethod = M,
+ serviceChangeReason = R,
+ serviceChangeProfile = P}.
+
+cre_serviceChangeParm(M, V, R, P) ->
+ #'ServiceChangeParm'{serviceChangeMethod = M,
+ serviceChangeVersion = V,
+ serviceChangeReason = R,
+ serviceChangeProfile = P}.
+
+cre_serviceChangeReq(Tid, Parms) ->
+ #'ServiceChangeRequest'{terminationID = Tid,
+ serviceChangeParms = Parms}.
+
+cre_timeNotation(D,T) ->
+ #'TimeNotation'{date = D, time = T}.
+
+cre_obsEvent(Name, Not) ->
+ #'ObservedEvent'{eventName = Name,
+ timeNotation = Not}.
+
+cre_obsEvsDesc(Id, EvList) ->
+ #'ObservedEventsDescriptor'{requestId = Id,
+ observedEventLst = EvList}.
+
+cre_notifyReq(Tid, EvsDesc) ->
+ #'NotifyRequest'{terminationID = Tid,
+ observedEventsDescriptor = EvsDesc}.
+
+cre_command(R) when is_record(R, 'NotifyRequest') ->
+ {notifyReq, R};
+cre_command(R) when is_record(R, 'ServiceChangeRequest') ->
+ {serviceChangeReq, R}.
+
+cre_cmdReq(Cmd) ->
+ #'CommandRequest'{command = Cmd}.
+
+cre_actionReq(CtxId, CmdReqs) when is_list(CmdReqs) ->
+ #'ActionRequest'{contextId = CtxId,
+ commandRequests = CmdReqs}.
+
+cre_transReq(TransId, ARs) when is_list(ARs) ->
+ #'TransactionRequest'{transactionId = TransId,
+ actions = ARs}.
+
+cre_transResult(ED) when is_record(ED, 'ErrorDescriptor') ->
+ {transactionError, ED};
+cre_transResult([AR|_] = ARs) when is_record(AR, 'ActionReply') ->
+ {actionReplies, ARs}.
+
+cre_transReply(TransId, Res) ->
+ #'TransactionReply'{transactionId = TransId,
+ transactionResult = Res}.
+
+cre_transReply(TransId, IAR, Res) ->
+ #'TransactionReply'{transactionId = TransId,
+ immAckRequired = IAR,
+ transactionResult = Res}.
+
+
+%% --
+
+cre_serviceChangeResParm(Mid) ->
+ cre_serviceChangeResParm(Mid, ?VERSION).
+
+cre_serviceChangeResParm(Mid, V) ->
+ #'ServiceChangeResParm'{serviceChangeMgcId = Mid,
+ serviceChangeVersion = V}.
+
+cre_serviceChangeResult(SCRP) when is_record(SCRP, 'ServiceChangeResParm') ->
+ {serviceChangeResParms, SCRP};
+cre_serviceChangeResult(ED) when is_record(ED, 'ErrorDescriptor') ->
+ {errorDescriptor, ED}.
+
+cre_serviceChangeReply(Tid, Res) ->
+ #'ServiceChangeReply'{terminationID = Tid,
+ serviceChangeResult = Res}.
+
+cre_cmdReply(R) when is_record(R, 'NotifyReply') ->
+ {notifyReply, R};
+cre_cmdReply(R) when is_record(R, 'ServiceChangeReply') ->
+ {serviceChangeReply, R}.
+
+cre_transRespAck(TransAck) when is_record(TransAck, 'TransactionAck') ->
+ [TransAck];
+cre_transRespAck(TRA) when is_list(TRA) ->
+ TRA.
+
+cre_transAck(TransId) ->
+ #'TransactionAck'{firstAck = TransId}.
+
+cre_notifyReply(Tid) ->
+ #'NotifyReply'{terminationID = Tid}.
+
+cre_actionReply(CtxId, CmdRep) ->
+ #'ActionReply'{contextId = CtxId,
+ commandReply = CmdRep}.
+
+cre_serviceChangeProf(Name, Ver) when is_list(Name) andalso is_integer(Ver) ->
+ #'ServiceChangeProfile'{profileName = Name,
+ version = Ver}.
+
+cre_transaction(Trans) when is_record(Trans, 'TransactionRequest') ->
+ {transactionRequest, Trans};
+cre_transaction(Trans) when is_record(Trans, 'TransactionPending') ->
+ {transactionPending, Trans};
+cre_transaction(Trans) when is_record(Trans, 'TransactionReply') ->
+ {transactionReply, Trans};
+cre_transaction(Trans) when is_list(Trans) ->
+ {transactionResponseAck, Trans}.
+
+cre_transactions(Trans) when is_list(Trans) ->
+ {transactions, Trans}.
+
+cre_message(Version, Mid, Body) ->
+ #'Message'{version = Version,
+ mId = Mid,
+ messageBody = Body}.
+
+cre_megacoMessage(Mess) ->
+ #'MegacoMessage'{mess = Mess}.
+
+service_change_request() ->
+ Parm = #'ServiceChangeParm'{serviceChangeMethod = restart,
+ serviceChangeReason = [?megaco_cold_boot]},
+ SCR = #'ServiceChangeRequest'{terminationID = [?megaco_root_termination_id],
+ serviceChangeParms = Parm},
+ CR = #'CommandRequest'{command = {serviceChangeReq, SCR}},
+ #'ActionRequest'{contextId = ?megaco_null_context_id,
+ commandRequests = [CR]}.
+
+service_change_reply(MgcMid) ->
+ Res = {serviceChangeResParms, #'ServiceChangeResParm'{serviceChangeMgcId = MgcMid}},
+ SCR = #'ServiceChangeReply'{terminationID = [?megaco_root_termination_id],
+ serviceChangeResult = Res},
+ #'ActionReply'{contextId = ?megaco_null_context_id,
+ commandReply = [{serviceChangeReply, SCR}]}.
+
+local_ip_address() ->
+ {ok, Hostname} = inet:gethostname(),
+ {ok, {A1, A2, A3, A4}} = inet:getaddr(Hostname, inet),
+ {A1, A2, A3, A4}.
+
+ipv4_mid() ->
+ ipv4_mid(asn1_NOVALUE).
+
+ipv4_mid(Port) ->
+ IpAddr = local_ip_address(),
+ Ip = tuple_to_list(IpAddr),
+ {ip4Address, #'IP4Address'{address = Ip, portNumber = Port}}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%% -------------------------------------------------------------------------------
+%%% Megaco user callback interface
+%%% -------------------------------------------------------------------------------
+
+handle_connect(ConnHandle, ProtocolVersion, Pid) ->
+ Pid ! {handle_connect, {ConnHandle, ProtocolVersion}},
+ ok.
+
+handle_disconnect(_, _, {user_disconnect, test_complete}, _) ->
+ ok;
+handle_disconnect(ConnHandle, ProtocolVersion, Reason, Pid) ->
+ Pid ! {handle_disconnect, {ConnHandle, ProtocolVersion, Reason}},
+ ok.
+
+handle_syntax_error(ConnHandle, ProtocolVersion, ErrorDescriptor, Pid) ->
+ Pid ! {handle_syntax_error,{ConnHandle, ProtocolVersion, ErrorDescriptor}},
+ reply.
+
+handle_message_error(ConnHandle, ProtocolVersion, ErrorDescriptor, Pid) ->
+ Pid ! {handle_message_error,{ConnHandle, ProtocolVersion, ErrorDescriptor}},
+ reply.
+
+handle_trans_request(ConnHandle, ProtocolVersion, ActionRequests, Pid) ->
+ Pid ! {handle_trans_request,{ConnHandle, ProtocolVersion, ActionRequests}},
+ ED = #'ErrorDescriptor'{errorCode = ?megaco_not_implemented,
+ errorText = "not implemented yet"},
+ {discard_ack, ED}.
+
+handle_trans_long_request(ConnHandle, ProtocolVersion, Data, Pid) ->
+ Pid ! {handle_trans_long_request,{ConnHandle, ProtocolVersion, Data}},
+ ED = #'ErrorDescriptor'{errorCode = ?megaco_not_implemented,
+ errorText = "not implemented yet"},
+ {discard_ack, ED}.
+
+handle_trans_reply(ConnHandle, ProtocolVersion, ActualReply, Data, Pid) ->
+ Pid ! {handle_trans_reply,{ConnHandle, ProtocolVersion, ActualReply, Data}},
+ ok.
+
+handle_trans_ack(ConnHandle, ProtocolVersion, Status, Data, Pid) ->
+ Pid ! {handle_trans_ack,{ConnHandle, ProtocolVersion, Status, Data}},
+ ok.
+
+handle_unexpected_trans(ReceiveHandle, ProtocolVersion, Trans, Pid) ->
+ Pid ! {handle_unexpected_trans,
+ {ReceiveHandle, ProtocolVersion, Trans, Pid}},
+ ok.
+
+handle_trans_request_abort(ReceiveHandle, ProtocolVersion, TransNo, HandlerPid, Pid) ->
+ Pid ! {handle_trans_request_abort,
+ {ReceiveHandle, ProtocolVersion, TransNo, HandlerPid}},
+ ok.
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+encode_msg(M, Mod, Conf) ->
+ Mod:encode_message(Conf, M).
+
+%% encode_msg(M, Mod, Conf, Ver) ->
+%% Mod:encode_message(Conf, Ver, M).
+
+decode_msg(M, Mod, Conf) ->
+ Mod:decode_message(Conf, M).
+
+%% decode_msg(M, Mod, Conf, Ver) ->
+%% Mod:decode_message(Conf, Ver, M).
+
+
+
+%%% -------------------------------------------------------------------------------
+%%% Megaco transport module interface
+%%% -------------------------------------------------------------------------------
+
+send_message(Pid, Data) ->
+ Pid ! {send_message, Data},
+ ok.
+
+% block(Pid) ->
+% Pid ! {block, dummy},
+% ok.
+
+unblock(Pid) ->
+ Pid ! {unblock, dummy},
+ ok.
+
+% close(Pid) ->
+% Pid ! {close, dummy},
+% ok.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+make_node_name(Name) ->
+ case string:tokens(atom_to_list(node()), [$@]) of
+ [_,Host] ->
+ list_to_atom(lists:concat([atom_to_list(Name) ++ "@" ++ Host]));
+ _ ->
+ exit("Test node must be started with '-sname'")
+ end.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+user_info(Mid, Key) ->
+ case (catch megaco:user_info(Mid, Key)) of
+ {'EXIT', _} = Error ->
+ ?ERROR(Error);
+ Val ->
+ ?LOG("user_info -> ok: "
+ "~n ~p"
+ "~n", [Val]),
+ Val
+ end.
+
+
+stop_user(Mid) ->
+ case (catch megaco:stop_user(Mid)) of
+ {'EXIT', _} = Error ->
+ ?ERROR(Error);
+ Val ->
+ ?LOG("stop_user -> ok:"
+ "~n ~p"
+ "~n", [Val]),
+ Val
+ end.
+
+connections() ->
+ system_info(connections).
+
+connections(Conns0) ->
+ Conns1 = lists:sort(Conns0),
+ case lists:sort(connections()) of
+ Conns1 ->
+ ?LOG("connections -> ok:"
+ "~n ~p"
+ "~n", [Conns1]),
+ Conns1;
+ Conns2 ->
+ ?ERROR({Conns1, Conns2}),
+ Conns2
+ end.
+
+system_info(Key) ->
+ megaco:system_info(Key).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+await_completion(Ids) ->
+ case megaco_test_generator_lib:await_completion(Ids) of
+ {ok, Reply} ->
+ d("OK => Reply: ~n~p", [Reply]),
+ ok;
+ {error, Reply} ->
+ d("ERROR => Reply: ~n~p", [Reply]),
+ ?ERROR({failed, Reply})
+ end.
+
+await_completion(Ids, Timeout) ->
+ case megaco_test_generator_lib:await_completion(Ids, Timeout) of
+ {ok, Reply} ->
+ d("OK => Reply: ~n~p", [Reply]),
+ ok;
+ {error, Reply} ->
+ d("ERROR => Reply: ~n~p", [Reply]),
+ ?ERROR({failed, Reply})
+ end.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+sleep(X) -> receive after X -> ok end.
+
+% error_msg(F,A) -> error_logger:error_msg(F ++ "~n",A).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+i(F) ->
+ i(F, []).
+
+i(F, A) ->
+ print(info, get(verbosity), now(), get(tc), "INF", F, A).
+
+
+d(F) ->
+ d(F, []).
+
+d(F, A) ->
+ print(debug, get(verbosity), now(), get(tc), "DBG", F, A).
+
+
+printable(_, debug) -> true;
+printable(info, info) -> true;
+printable(_,_) -> false.
+
+print(Severity, Verbosity, Ts, Tc, P, F, A) ->
+ print(printable(Severity,Verbosity), Ts, Tc, P, F, A).
+
+print(true, Ts, Tc, P, F, A) ->
+ io:format("*** [~s] ~s ~p ~s:~w ***"
+ "~n " ++ F ++ "~n",
+ [format_timestamp(Ts), P, self(), get(sname), Tc | A]);
+print(_, _, _, _, _, _) ->
+ ok.
+
+format_timestamp({_N1, _N2, N3} = Now) ->
+ {Date, Time} = calendar:now_to_datetime(Now),
+ {YYYY,MM,DD} = Date,
+ {Hour,Min,Sec} = Time,
+ FormatDate =
+ io_lib:format("~.4w:~.2.0w:~.2.0w ~.2.0w:~.2.0w:~.2.0w 4~w",
+ [YYYY,MM,DD,Hour,Min,Sec,round(N3/1000)]),
+ lists:flatten(FormatDate).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+to(To, Start) ->
+ To - (mtime() - Start).
+
+%% Time in milli seconds
+mtime() ->
+ {A,B,C} = erlang:now(),
+ A*1000000000+B*1000+(C div 1000).
+
+%% random_init() ->
+%% {A,B,C} = now(),
+%% random:seed(A,B,C).
+
+%% random() ->
+%% 10 * random:uniform(50).
+