pespin submitted this change.
stp: m3ua: Specify ASP names to use per test
Since we recently introduced an "asp_name" into each m3ua_config,
use that to construct a list of m3ua_configs to set up for each test.
This makes each test only set up the relevant ASPs for the test easily,
plus the big win of port offsets becoming test-specific.
That means changing the order or clients or servers in the testsuite
config, or adding new ones won't break existing tests.
Also add a new "is_server" field which allows specifying clients and
servers in whichever order we like.
Change-Id: I63ed043014ee8a9a593ed17797b621f39c746bcd
---
M stp/STP_Tests_IPA_M3UA.cfg
M stp/STP_Tests_IPA_M3UA.ttcn
M stp/STP_Tests_M3UA.cfg
M stp/STP_Tests_M3UA.ttcn
M stp/STP_Tests_M3UA_TCP.cfg
M stp/STP_Tests_M3UA_TCP.ttcn
6 files changed, 419 insertions(+), 313 deletions(-)
diff --git a/stp/STP_Tests_IPA_M3UA.cfg b/stp/STP_Tests_IPA_M3UA.cfg
index be16ccf..4ca349d 100644
--- a/stp/STP_Tests_IPA_M3UA.cfg
+++ b/stp/STP_Tests_IPA_M3UA.cfg
@@ -15,11 +15,10 @@
"ipa-as-dynamic-asp"
};
-/* Clients first, servers afterwards, match mp_m3ua_num_{clients,servers} */
STP_Tests_M3UA.mp_m3ua_configs := {
- /* as-sender: One ASP within AS */
{
asp_name := "asp-sender",
+ is_server := false,
use_tcp := false,
remote_port := 2905,
local_port := 9999,
@@ -27,10 +26,6 @@
routing_ctx := 1023
}
};
-/* number of M3UA clients in ATS */
-STP_Tests_M3UA.mp_m3ua_num_clients := 1;
-/* number of M3UA servers in ATS */
-STP_Tests_M3UA.mp_m3ua_num_servers := 0;
[MAIN_CONTROLLER]
diff --git a/stp/STP_Tests_IPA_M3UA.ttcn b/stp/STP_Tests_IPA_M3UA.ttcn
index 4fcd506..f62fc7c 100644
--- a/stp/STP_Tests_IPA_M3UA.ttcn
+++ b/stp/STP_Tests_IPA_M3UA.ttcn
@@ -13,6 +13,7 @@
import from General_Types all;
import from Osmocom_Types all;
import from IPL4asp_Types all;
+import from Misc_Helpers all;
import from Osmocom_VTY_Functions all;
@@ -62,18 +63,17 @@
/* Test routing of SCCP between an M3UA and an IPA ASP */
testcase TC_m3ua_to_ipa() runs on IPA_M3UA_CT {
- f_init_m3ua();
- f_init_ipa();
-
- const integer ipa_idx := 0;
- const integer m3ua_idx := 0;
-
- var OCT4 rctx_sender := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_cli_config(0).point_code, 4);
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx_sender := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[0].point_code, 4);
var OCT4 pc_receiver := int2oct(5, 4);
- f_connect_ipa(ipa_idx);
- f_M3UA_asp_up_act(m3ua_idx, omit, rctx_sender);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
+ f_init_ipa();
+
+ f_connect_ipa(0);
+ f_M3UA_asp_up_act(0, omit, rctx_sender);
/* send a well-formed, encoded SCCP message via M3UA */
var octetstring data := f_rnd_octstring_rnd_len(100);
@@ -83,32 +83,31 @@
var octetstring sccp_enc := enc_PDU_SCCP(sccp);
var template (value) M3UA_Protocol_Data tx_pd;
tx_pd := ts_M3UA_protocol_data(pc_sender, pc_receiver, c_M3UA_SI_SCCP, '00'O, '00'O, '00'O, sccp_enc);
- f_M3UA_send(m3ua_idx, ts_M3UA_DATA(rctx_sender, tx_pd), 1);
+ f_M3UA_send(0, ts_M3UA_DATA(rctx_sender, tx_pd), 1);
/* expect to receive it via IPA */
- f_IPA_exp(ipa_idx, sccp_enc);
+ f_IPA_exp(0, sccp_enc);
f_clear_m3ua();
}
/* test routing an SCCP message from IPA ASP to M3UA ASP */
testcase TC_ipa_to_m3ua() runs on IPA_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 pc_sender := int2oct(5, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[0].point_code, 4);
+
f_init_common();
f_vty_config2(VTY, {"cs7 instance 0", "as ipa-as-dynamic-asp ipa"},
"point-code override patch-sccp disabled");
- f_init_m3ua();
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_ipa();
- const integer ipa_idx := 0;
- const integer m3ua_idx := 0;
-
- var OCT4 pc_sender := int2oct(5, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(0).point_code, 4);
-
- f_connect_ipa(ipa_idx);
- f_M3UA_asp_up_act(m3ua_idx, omit, rctx_receiver);
+ f_connect_ipa(0);
+ f_M3UA_asp_up_act(0, omit, rctx_receiver);
/* send a well-formed, encoded SCCP message via IPA */
var octetstring data := f_rnd_octstring_rnd_len(100);
@@ -116,35 +115,33 @@
var SCCP_PAR_Address calling := valueof(ts_SccpAddr_GT('5678'H));
var PDU_SCCP sccp := valueof(ts_SCCP_UDT(called, calling, data));
var octetstring sccp_enc := enc_PDU_SCCP(sccp);
- f_IPA_send(ipa_idx, sccp_enc);
+ f_IPA_send(0, sccp_enc);
/* expect to receive it via M3UA */
var template (present) M3UA_Protocol_Data rx_pd;
rx_pd := tr_M3UA_protocol_data(pc_sender, pc_receiver, c_M3UA_SI_SCCP, '00'O, '00'O, ?, sccp_enc);
- f_M3UA_exp(m3ua_idx, tr_M3UA_DATA(rctx_receiver, rx_pd));
+ f_M3UA_exp(0, tr_M3UA_DATA(rctx_receiver, rx_pd));
f_clear_m3ua();
}
/* test routing an SCCP message from IPA ASP to M3UA ASP using national network indicator */
testcase TC_ipa_to_m3ua_ni() runs on IPA_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 pc_sender := int2oct(5, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[0].point_code, 4);
f_init_common();
f_vty_config2(VTY, {"cs7 instance 0", "as ipa-as-dynamic-asp ipa"},
"point-code override patch-sccp disabled");
- f_init_m3ua();
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_ipa();
- const integer ipa_idx := 0;
- const integer m3ua_idx := 0;
-
- var OCT4 pc_sender := int2oct(5, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(0).point_code, 4);
-
- f_connect_ipa(ipa_idx);
- f_M3UA_asp_up_act(m3ua_idx, omit, rctx_receiver);
+ f_connect_ipa(0);
+ f_M3UA_asp_up_act(0, omit, rctx_receiver);
/* send a well-formed, encoded SCCP message via IPA */
var octetstring data := f_rnd_octstring_rnd_len(100);
@@ -153,13 +150,13 @@
var PDU_SCCP sccp := valueof(ts_SCCP_UDT(called, calling, data));
var octetstring sccp_enc := enc_PDU_SCCP(sccp);
f_vty_config2(VTY, {"cs7 instance 0"}, "network-indicator national");
- f_IPA_send(ipa_idx, sccp_enc);
+ f_IPA_send(0, sccp_enc);
/* expect to receive it via M3UA */
var template (present) M3UA_Protocol_Data rx_pd;
rx_pd := tr_M3UA_protocol_data(pc_sender, pc_receiver, c_M3UA_SI_SCCP, c_M3UA_NI_NATIONAL,
'00'O, ?, sccp_enc);
- f_M3UA_exp(m3ua_idx, tr_M3UA_DATA(rctx_receiver, rx_pd));
+ f_M3UA_exp(0, tr_M3UA_DATA(rctx_receiver, rx_pd));
f_vty_config2(VTY, {"cs7 instance 0"}, "network-indicator international");
f_clear_m3ua();
}
@@ -167,29 +164,28 @@
/* test routing an SCCP message from IPA ASP to M3UA ASP while patching PC into SCCP addresses */
testcase TC_ipa_to_m3ua_patch_sccp() runs on IPA_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 pc_sender := int2oct(5, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[0].point_code, 4);
+
f_init_common();
f_vty_config2(VTY, {"cs7 instance 0", "as ipa-as-dynamic-asp ipa"},
"point-code override patch-sccp both");
- f_init_m3ua();
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_ipa();
- const integer ipa_idx := 0;
- const integer m3ua_idx := 0;
-
- var OCT4 pc_sender := int2oct(5, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(0).point_code, 4);
-
- f_connect_ipa(ipa_idx);
- f_M3UA_asp_up_act(m3ua_idx, omit, rctx_receiver);
+ f_connect_ipa(0);
+ f_M3UA_asp_up_act(0, omit, rctx_receiver);
/* send a well-formed, encoded SCCP message via IPA */
var octetstring data := f_rnd_octstring_rnd_len(100);
var SCCP_PAR_Address called := valueof(ts_SccpAddr_GT('1234'H));
var SCCP_PAR_Address calling := valueof(ts_SccpAddr_GT('5678'H));
var PDU_SCCP sccp := valueof(ts_SCCP_UDT(called, calling, data));
- f_IPA_send(ipa_idx, enc_PDU_SCCP(sccp));
+ f_IPA_send(0, enc_PDU_SCCP(sccp));
/* patch point codes into addresses */
called := valueof(ts_SccpAddr_PC_GT(oct2int(pc_receiver), '83'O, "mtp3_itu", '1234'H));
@@ -200,7 +196,7 @@
var template (present) M3UA_Protocol_Data rx_pd;
rx_pd := tr_M3UA_protocol_data(pc_sender, pc_receiver, c_M3UA_SI_SCCP, '00'O, '00'O, ?,
enc_PDU_SCCP(sccp_exp));
- f_M3UA_exp(m3ua_idx, tr_M3UA_DATA(rctx_receiver, rx_pd));
+ f_M3UA_exp(0, tr_M3UA_DATA(rctx_receiver, rx_pd));
f_clear_m3ua();
}
diff --git a/stp/STP_Tests_M3UA.cfg b/stp/STP_Tests_M3UA.cfg
index 994314a..dd0c97b 100644
--- a/stp/STP_Tests_M3UA.cfg
+++ b/stp/STP_Tests_M3UA.cfg
@@ -11,65 +11,62 @@
[TESTPORT_PARAMETERS]
[MODULE_PARAMETERS]
-/* Clients first, servers afterwards, match mp_m3ua_num_{clients,servers} */
STP_Tests_M3UA.mp_m3ua_configs := {
- /* as-sender: One ASP within AS */
{
asp_name := "asp-sender",
+ is_server := false,
use_tcp := false,
remote_port := 2905,
local_port := 9999,
point_code := 23,
routing_ctx := 1023
},
- /* as-receiver: Two ASP within AS */
{
asp_name := "asp-receiver0",
+ is_server := false,
use_tcp := false,
remote_port := 2905,
local_port := 10000,
point_code := 42,
routing_ctx := 1042
- }, {
+ },
+ {
asp_name := "asp-receiver1",
+ is_server := false,
use_tcp := false,
remote_port := 2905,
local_port := 10001,
point_code := 42,
routing_ctx := 1042
},
- /* as-client: One ASP within AS */
{
asp_name := "asp-client0",
+ is_server := true,
use_tcp := false,
remote_port := 2906,
local_port := 10002,
point_code := 55,
routing_ctx := 1055
},
- /* as-client60-norctx */
{
asp_name := "asp-client60-norctx0",
+ is_server := true,
use_tcp := false,
remote_port := 2907,
local_port := 11060,
point_code := 60,
- routing_ctx := -
+ routing_ctx := omit
},
- /* as-client61-norctx */
{
asp_name := "asp-client61-norctx0",
+ is_server := true,
use_tcp := false,
remote_port := 2907,
local_port := 11061,
point_code := 61,
- routing_ctx := -
+ routing_ctx := omit
}
};
-/* number of M3UA clients in ATS */
-STP_Tests_M3UA.mp_m3ua_num_clients := 3;
-/* number of M3UA servers in ATS */
-STP_Tests_M3UA.mp_m3ua_num_servers := 3;
[MAIN_CONTROLLER]
diff --git a/stp/STP_Tests_M3UA.ttcn b/stp/STP_Tests_M3UA.ttcn
index 64153ab..2f452de 100644
--- a/stp/STP_Tests_M3UA.ttcn
+++ b/stp/STP_Tests_M3UA.ttcn
@@ -45,12 +45,8 @@
HostList mp_stp_m3ua_ip := { "127.0.0.1", "::1" };
/* local IP addresses */
HostList mp_local_m3ua_ip := { "127.0.0.1", "::1" };
- /* Clients first, servers afterwards, match mp_m3ua_num_{clients,servers} */
+ /* local ASPs. Set in .cfg file: */
M3uaConfigs mp_m3ua_configs := {};
- /* number of M3UA clients in ATS */
- integer mp_m3ua_num_clients := 0;
- /* number of M3UA servers in ATS */
- integer mp_m3ua_num_servers := 0;
integer mp_recovery_timeout_msec := 2000;
charstring mp_sccp_service_type := "mtp3_itu";
}
@@ -58,6 +54,8 @@
type record M3uaConfig {
/* Name of the ASP in the STP, (eg. to access it over VTY) */
charstring asp_name,
+ /* Whether local side is a TCP/SCTP server */
+ boolean is_server,
/* use TCP (true) or SCTP (false) */
boolean use_tcp,
/* STP-side SCTP (or TCP) port for M3UA */
@@ -67,36 +65,63 @@
/* point code routed via this M3U */
integer point_code,
/* associated routing context */
- integer routing_ctx
+ integer routing_ctx optional
};
type record of M3uaConfig M3uaConfigs;
-friend function M3UA_SRV(integer idx) runs on RAW_M3UA_CT return integer {
- return g_m3ua_num_clients + idx;
-}
-
-friend function f_m3ua_cli_config(integer idx) runs on RAW_M3UA_CT return M3uaConfig {
- if (idx < 0 or idx >= g_m3ua_num_clients) {
- Misc_Helpers.f_shutdown(__BFILE__, __LINE__, fail, "f_m3ua_cli_config(): unexpected idx");
- }
- return g_m3ua_configs[idx];
-}
-
-friend function f_m3ua_srv_config(integer idx) runs on RAW_M3UA_CT return M3uaConfig {
- if (idx < 0 or idx >= g_m3ua_num_servers) {
- Misc_Helpers.f_shutdown(__BFILE__, __LINE__, fail, "f_m3ua_srv_config(): unexpected idx");
- }
- return g_m3ua_configs[M3UA_SRV(idx)];
-}
-
type component RAW_M3UA_CT extends Test_CT {
port M3UA_CODEC_PT M3UA[MAX_NR_M3UA];
var M3uaConfigs g_m3ua_configs;
- var integer g_m3ua_num_clients;
- var integer g_m3ua_num_servers;
var integer g_m3ua_conn_id[MAX_NR_M3UA];
}
+friend function f_m3ua_get_config_idx(charstring asp_name) runs on RAW_M3UA_CT return integer {
+ for (var integer i := 0; i < lengthof(g_m3ua_configs); i := i + 1) {
+ if (g_m3ua_configs[i].asp_name == asp_name) {
+ return i;
+ }
+ }
+ Misc_Helpers.f_shutdown(__BFILE__, __LINE__, fail,
+ log2str("f_m3ua_get_config_idx(): unexpected asp_name not found: ", asp_name));
+ return -1;
+}
+
+friend function f_m3ua_get_config_by_idx(integer idx) runs on RAW_M3UA_CT return M3uaConfig {
+ if (idx < 0 or idx >= lengthof(g_m3ua_configs)) {
+ Misc_Helpers.f_shutdown(__BFILE__, __LINE__, fail, "f_m3ua_get_config(): unexpected idx");
+ }
+ return g_m3ua_configs[idx];
+}
+
+friend function f_m3ua_get_config_by_name(charstring asp_name) runs on RAW_M3UA_CT return M3uaConfig {
+ return f_m3ua_get_config_by_idx(f_m3ua_get_config_idx(asp_name));
+}
+
+friend function m3ua_build_configs(template (omit) Misc_Helpers.ro_charstring asps := omit)
+runs on RAW_M3UA_CT return M3uaConfigs
+{
+ if (not isvalue(asps)) {
+ return mp_m3ua_configs;
+ }
+
+ var M3uaConfigs m3ua_configs := {};
+ for (var integer i := 0; i < lengthof(asps); i := i + 1) {
+ var boolean found := false;
+ for (var integer j := 0; j < lengthof(mp_m3ua_configs); j := j + 1) {
+ if (mp_m3ua_configs[j].asp_name == valueof(asps[i])) {
+ found := true;
+ m3ua_configs := m3ua_configs & {mp_m3ua_configs[j]};
+ break;
+ }
+ }
+ if (not found) {
+ Misc_Helpers.f_shutdown(__BFILE__, __LINE__, fail,
+ log2str("Could not find ASP ", asps[i], ", check your configuration"));
+ }
+ }
+ return m3ua_configs;
+}
+
private template PortEvent tr_ConnOpened := {
connOpened := ?
}
@@ -279,27 +304,34 @@
}
}
+private function m3ua_configs_mapped() runs on RAW_M3UA_CT return integer
+{
+ for (var integer i := 0; i < lengthof(g_m3ua_configs); i := i + 1) {
+ if (not M3UA[i].checkstate("Mapped")) {
+ return i;
+ }
+ }
+ return lengthof(g_m3ua_configs);
+}
+
friend function f_init_m3ua(boolean ignore_ssnm := true,
- template (omit) M3uaConfigs m3ua_configs := omit,
- integer m3ua_num_clients := 0,
- integer m3ua_num_servers := 0) runs on RAW_M3UA_CT {
+ template (omit) M3uaConfigs m3ua_configs := omit)
+
+runs on RAW_M3UA_CT {
var integer i;
f_init_common();
- if (isvalue(m3ua_configs)) {
+ if (not istemplatekind(m3ua_configs, "omit")) {
g_m3ua_configs := valueof(m3ua_configs);
- g_m3ua_num_clients := m3ua_num_clients;
- g_m3ua_num_servers := m3ua_num_servers
} else {
g_m3ua_configs := mp_m3ua_configs;
- g_m3ua_num_clients := mp_m3ua_num_clients;
- g_m3ua_num_servers := mp_m3ua_num_servers;
}
-
- for (i := 0; i < g_m3ua_num_clients; i:=i+1) {
- map(self:M3UA[i], system:M3UA_CODEC_PT);
+ for (i := 0; i < lengthof(g_m3ua_configs); i:= i + 1) {
+ if (not g_m3ua_configs[i].is_server) {
+ map(self:M3UA[i], system:M3UA_CODEC_PT);
+ }
}
activate(as_m3ua_sctp());
@@ -307,11 +339,13 @@
activate(as_m3ua_ssnm_ignore());
}
- for (i := 0; i < g_m3ua_num_clients; i:=i+1) {
- if (g_m3ua_configs[i].use_tcp) {
- f_M3UA_connect_tcp(i);
- } else {
- f_M3UA_connect_sctp(i);
+ for (i := 0; i < lengthof(g_m3ua_configs); i:=i+1) {
+ if (not g_m3ua_configs[i].is_server) {
+ if (g_m3ua_configs[i].use_tcp) {
+ f_M3UA_connect_tcp(i);
+ } else {
+ f_M3UA_connect_sctp(i);
+ }
}
}
}
@@ -321,8 +355,10 @@
log("Clearing M3UA...");
- for (i := 0; i < g_m3ua_num_clients; i:=i+1) {
- f_M3UA_close(i);
+ for (i := 0; i < lengthof(g_m3ua_configs); i:=i+1) {
+ if (not g_m3ua_configs[i].is_server) {
+ f_M3UA_close(i);
+ }
}
/* Wait for recovery timer to trigger and shutdown all AS: */
f_sleep(int2float(mp_recovery_timeout_msec)/1000.0 + 0.5);
@@ -333,17 +369,25 @@
var integer i;
var PortEvent port_evt;
- for (i := g_m3ua_num_clients; i < lengthof(g_m3ua_configs); i:=i+1) {
- map(self:M3UA[i], system:M3UA_CODEC_PT);
+ var integer start_idx := m3ua_configs_mapped();
+
+ for (i := start_idx; i < lengthof(g_m3ua_configs); i:=i+1) {
+ if (g_m3ua_configs[i].is_server) {
+ map(self:M3UA[i], system:M3UA_CODEC_PT);
+ }
}
- for (i := g_m3ua_num_clients; i < lengthof(g_m3ua_configs); i:=i+1) {
- /* bind + listen */
- f_M3UA_listen(i);
+ for (i := start_idx; i < lengthof(g_m3ua_configs); i:=i+1) {
+ if (g_m3ua_configs[i].is_server) {
+ /* bind + listen */
+ f_M3UA_listen(i);
+ }
}
- for (i := g_m3ua_num_clients; i < lengthof(g_m3ua_configs); i:=i+1) {
- /* wait for accept() */
- M3UA[i].receive(tr_ConnOpened) -> value port_evt {
- g_m3ua_conn_id[i] := port_evt.connOpened.connId;
+ for (i := start_idx; i < lengthof(g_m3ua_configs); i:=i+1) {
+ if (g_m3ua_configs[i].is_server) {
+ /* wait for accept() */
+ M3UA[i].receive(tr_ConnOpened) -> value port_evt {
+ g_m3ua_conn_id[i] := port_evt.connOpened.connId;
+ }
}
}
}
@@ -467,11 +511,15 @@
/* test whether the STP accepts M3UA DATA without Routing Context IE */
testcase TC_act_rctx_data_no_rctx() runs on RAW_M3UA_CT {
- f_init_m3ua();
- var OCT4 rctx_sender := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_cli_config(0).point_code, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(1).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(1).point_code, 4);
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-receiver0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx_sender := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[0].point_code, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[1].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[1].point_code, 4);
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
+
/* bring up the sender specifying a routing context */
f_M3UA_asp_up_act(0, rctx := rctx_sender);
@@ -485,11 +533,13 @@
/* Test administrative state, VTY "[no] shutdown" */
testcase TC_m3ua_sctp_srv_adm_shutdown() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_M3UA_asp_up_act(0, c_M3UA_TMT_override, omit);
f_sleep(1.0);
- f_vty_cs7_asp_cmd(f_m3ua_cli_config(0), "shutdown");
+ f_vty_cs7_asp_cmd(g_m3ua_configs[0], "shutdown");
log("ASP should now be DOWN")
as_M3UA_wait_sctp_conn_closed(0);
@@ -507,7 +557,7 @@
}
/* Now let the ASP be active again, it should reconnect to us: */
- f_vty_cs7_asp_cmd(f_m3ua_cli_config(0), "no shutdown");
+ f_vty_cs7_asp_cmd(g_m3ua_configs[0], "no shutdown");
log("Connecting to ASP (expect success):");
f_M3UA_connect_sctp(0);
f_M3UA_asp_up_act(0, c_M3UA_TMT_override, omit, ntfy_after_up := c_M3UA_ST_I_AS_PENDING);
@@ -530,13 +580,14 @@
/* test "traffic-mode override" behavior */
testcase TC_tmt_override() runs on RAW_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-receiver0", "asp-receiver1" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx_sender := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[0].point_code, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[1].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[1].point_code, 4);
- f_init_m3ua();
-
- var OCT4 rctx_sender := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_cli_config(0).point_code, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(1).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(1).point_code, 4);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
/* bring up the 'sender' side (single ASP in AS) */
f_M3UA_asp_up_act(0, omit, omit);
@@ -571,16 +622,17 @@
/* Test "traffic-mode roundrobin" behavior (distributing within ASPs of a given AS in roundrobin fashion). */
testcase TC_tmt_loadshare_roundrobin() runs on RAW_M3UA_CT {
var integer i;
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-receiver0", "asp-receiver1" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx_sender := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[0].point_code, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[1].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[1].point_code, 4);
- f_init_m3ua();
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_vty_config2(VTY, {"cs7 instance 0", "as as-receiver m3ua"}, "traffic-mode roundrobin");
- var OCT4 rctx_sender := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_cli_config(0).point_code, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(1).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(1).point_code, 4);
-
/* bring up the 'sender' side (single ASP in AS) */
f_M3UA_asp_up_act(0, omit, rctx_sender);
@@ -643,17 +695,18 @@
* within linksets/ASs of a combined linkset). */
testcase TC_tmt_loadshare_sls() runs on RAW_M3UA_CT {
var integer i;
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-receiver0", "asp-receiver1" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx_sender := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[0].point_code, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[1].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[1].point_code, 4);
- f_init_m3ua();
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_vty_config3(VTY, {"cs7 instance 0", "as as-receiver m3ua"},
{ "traffic-mode loadshare", "binding-table reset" });
- var OCT4 rctx_sender := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_cli_config(0).point_code, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(1).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(1).point_code, 4);
-
/* bring up the 'sender' side (single ASP in AS) */
f_M3UA_asp_up_act(0, omit, rctx_sender);
@@ -725,13 +778,14 @@
/* test "traffic-mode broadcast" behavior */
testcase TC_tmt_broadcast() runs on RAW_M3UA_CT {
var integer i;
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-receiver0", "asp-receiver1" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx_sender := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[0].point_code, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[1].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[1].point_code, 4);
- f_init_m3ua();
-
- var OCT4 rctx_sender := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_cli_config(0).point_code, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(1).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(1).point_code, 4);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
/* FIXME: configure the STP via VTY to set traffic-mode */
@@ -781,7 +835,9 @@
/* Send RKM registration; expect -EPERM as RCTX doesn't match config and dynamic not permitted */
testcase TC_rkm_reg_static_notpermitted() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_M3UA_send(0, ts_M3UA_REG_REQ({ts_M3UA_rkey(id:='00000099'O, dpc:='aabbcc'O)}));
f_M3UA_exp(0, tr_M3UA_REG_RSP({tr_M3UA_reg_res(id:='00000099'O, status:=c_M3UA_REGSTS_ERR_EPERM,
@@ -792,10 +848,12 @@
/* Send RKM registration; expect OK as RCTX does match config */
testcase TC_rkm_reg_static_permitted() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT3 dpc := int2oct(m3ua_configs[0].point_code, 3); // must match config
+ var OCT4 rctx := int2oct(m3ua_configs[0].routing_ctx, 4); // must match config
- var OCT3 dpc := int2oct(f_m3ua_cli_config(0).point_code, 3); // must match config
- var OCT4 rctx := int2oct(f_m3ua_cli_config(0).routing_ctx, 4); // must match config
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_M3UA_send(0, ts_M3UA_REG_REQ({ts_M3UA_rkey(id:='10000099'O, dpc:=dpc, rctx:=rctx)}));
f_M3UA_exp(0, tr_M3UA_REG_RSP({tr_M3UA_reg_res(id:='10000099'O, status:=c_M3UA_REGSTS_SUCCESS,
@@ -806,9 +864,11 @@
/* Send RKM registration; expect OK as dynamic not permitted */
testcase TC_rkm_reg_dynamic_permitted() runs on RAW_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
f_init_common();
f_vty_config2(VTY, {"cs7 instance 0"}, "xua rkm routing-key-allocation dynamic-permitted");
- f_init_m3ua();
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_M3UA_send(0, ts_M3UA_REG_REQ({ts_M3UA_rkey(id:='20000099'O, dpc:='aabbcc'O)}));
f_M3UA_exp(0, tr_M3UA_REG_RSP({tr_M3UA_reg_res(id:='20000099'O, status:=c_M3UA_REGSTS_SUCCESS,
@@ -821,8 +881,11 @@
/* try to de-register a routing key that was never registered -> error */
testcase TC_rkm_unreg_never_registered() runs on RAW_M3UA_CT {
- f_init_m3ua();
- var octetstring rctx := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var octetstring rctx := int2oct(m3ua_configs[0].routing_ctx, 4);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
+
f_M3UA_send(0, ts_M3UA_DEREG_REQ(ts_M3UA_routing_ctx(rctx)));
f_M3UA_exp(0, tr_M3UA_DEREG_RSP({tr_M3UA_dereg_res(?,c_m3UA_DEREGSTS_ERR_NOT_REG)}));
f_clear_m3ua();
@@ -830,7 +893,10 @@
/* try to de-register a routing key that is invalid (non-existant) -> error */
testcase TC_rkm_unreg_invalid() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
+
f_M3UA_send(0, ts_M3UA_DEREG_REQ(ts_M3UA_routing_ctx(int2oct(1234,4))));
f_M3UA_exp(0, tr_M3UA_DEREG_RSP({tr_M3UA_dereg_res(?,c_m3UA_DEREGSTS_ERR_INVAL_RCTX)}));
f_clear_m3ua();
@@ -838,12 +904,14 @@
/* try to de-register a routing key that was registered -> OK */
testcase TC_rkm_unreg_registered() runs on RAW_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
var OCT3 dpc := int2oct(123, 3);
var OCT4 rctx := int2oct(1234, 4);
f_init_common();
f_vty_config2(VTY, {"cs7 instance 0"}, "xua rkm routing-key-allocation dynamic-permitted");
- f_init_m3ua();
+ f_init_m3ua(m3ua_configs := m3ua_configs);
/* first register the routing key */
f_M3UA_rkm_register(0, local_id:='30000099'O, dpc:=dpc, rctx:=rctx, ntfy_after_reg := omit);
@@ -858,13 +926,15 @@
/* try to de-register a routing key for an active ASP -> ERROR */
testcase TC_rkm_unreg_active() runs on RAW_M3UA_CT {
- f_init_common();
- f_vty_config2(VTY, {"cs7 instance 0"}, "xua rkm routing-key-allocation dynamic-permitted");
- f_init_m3ua();
-
+ var Misc_Helpers.ro_charstring asps := { "asp-sender" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
var OCT3 dpc := int2oct(123, 3);
var OCT4 rctxA := int2oct(1234, 4);
- var OCT4 rctxB := int2oct(f_m3ua_cli_config(0).routing_ctx, 4); // must match config
+ var OCT4 rctxB := int2oct(m3ua_configs[0].routing_ctx, 4); // must match config
+
+ f_init_common();
+ f_vty_config2(VTY, {"cs7 instance 0"}, "xua rkm routing-key-allocation dynamic-permitted");
+ f_init_m3ua(m3ua_configs := m3ua_configs);
/* first register the routing key */
f_M3UA_rkm_register(0, local_id:='30000099'O, dpc:=dpc, rctx:=rctxA, ntfy_after_reg := omit);
@@ -901,6 +971,7 @@
var M3uaConfigs m3ua_configs := {
{
asp_name := "unknown",
+ is_server := false,
use_tcp := false,
remote_port := 2905,
local_port := 2222,
@@ -911,7 +982,7 @@
var OCT4 rctx0 := int2oct(m3ua_configs[0].routing_ctx, 4);
f_init_common();
f_vty_config2(VTY, {"cs7 instance 0"}, "xua rkm routing-key-allocation dynamic-permitted");
- f_init_m3ua(m3ua_configs := m3ua_configs, m3ua_num_clients := 1, m3ua_num_servers := 0);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
/* ASPUP + ACK */
f_M3UA_asp_up(0);
@@ -939,6 +1010,7 @@
var M3uaConfigs m3ua_configs := {
{
asp_name := "unknown0",
+ is_server := false,
use_tcp := false,
remote_port := 2905,
local_port := 2222,
@@ -946,6 +1018,7 @@
routing_ctx := 220
}, {
asp_name := "unknown1",
+ is_server := false,
use_tcp := false,
remote_port := 2905,
local_port := 2223,
@@ -957,7 +1030,7 @@
var OCT4 rctx1 := int2oct(m3ua_configs[0].routing_ctx, 4);
f_init_common();
f_vty_config2(VTY, {"cs7 instance 0"}, "xua rkm routing-key-allocation dynamic-permitted");
- f_init_m3ua(m3ua_configs := m3ua_configs, m3ua_num_clients := 2, m3ua_num_servers := 0);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
///////// ASP 0 /////////////
/* ASPUP + ACK */
@@ -1040,34 +1113,41 @@
/* Expect inbound connection from ASP/SCTP-client, followed by ASP-UP */
testcase TC_clnt_connect_asp_up() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up(M3UA_SRV(0));
+ f_M3UA_CLNT_asp_up(0);
f_clear_m3ua();
}
/* Expect inbound connection from ASP/SCTP-client, followed by ASP-UP + ASP-ACT */
testcase TC_clnt_asp_act() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx := int2oct(m3ua_configs[0].routing_ctx, 4);
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_m3ua_srv();
- var OCT4 rctx := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctx);
+ f_M3UA_CLNT_asp_up_act(0, rctx := rctx);
f_clear_m3ua();
}
/* Expect inbound connection from ASP/SCTP-client, followed by ASP-UP + ASP-ACT */
testcase TC_clnt_asp_act_tmt_loadshare() runs on RAW_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx := int2oct(m3ua_configs[0].routing_ctx, 4);
+
f_init_common();
f_vty_config2(VTY, {"cs7 instance 0", "as as-client m3ua"}, "traffic-mode loadshare");
- f_init_m3ua();
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_m3ua_srv();
- var OCT4 rctx := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), tmt := c_M3UA_TMT_loadshare, rctx := rctx);
+ f_M3UA_CLNT_asp_up_act(0, tmt := c_M3UA_TMT_loadshare, rctx := rctx);
f_clear_m3ua();
}
@@ -1075,21 +1155,23 @@
/* Test traffic being routed through "server" side STP (M3UA SG), coming back in "client"
* side STP (M3UA ASP) */
testcase TC_clnt_sg_to_asp() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx_sender := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[0].point_code, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[1].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[1].point_code, 4);
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_M3UA_asp_up_act(0);
- var OCT4 rctx_sender := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_cli_config(0).point_code, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_srv_config(0).point_code, 4);
-
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctx_receiver);
+ f_M3UA_CLNT_asp_up_act(1, rctx := rctx_receiver);
f_sleep(1.0);
/* verify traffic is routed from sender to [sole] receiver */
- f_test_traffic(0, rctx_sender, pc_sender, M3UA_SRV(0), rctx_receiver, pc_receiver);
+ f_test_traffic(0, rctx_sender, pc_sender, 1, rctx_receiver, pc_receiver);
f_clear_m3ua();
}
@@ -1097,47 +1179,51 @@
/* Test traffic being routed through "client" side STP (M3UA ASP), coming back in "server"
* side STP (M3UA SG) */
testcase TC_clnt_asp_to_sg() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx_sender := int2oct(m3ua_configs[1].routing_ctx, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[1].point_code, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[0].point_code, 4);
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_M3UA_asp_up_act(0);
- var OCT4 rctx_sender := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_srv_config(0).point_code, 4);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(0).point_code, 4);
-
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctx_sender);
+ f_M3UA_CLNT_asp_up_act(1, rctx := rctx_sender);
f_sleep(1.0);
/* verify traffic is routed from sender to [sole] receiver */
- f_test_traffic(M3UA_SRV(0), rctx_sender, pc_sender, 0, rctx_receiver, pc_receiver);
+ f_test_traffic(1, rctx_sender, pc_sender, 0, rctx_receiver, pc_receiver);
f_clear_m3ua();
}
/* Test traffic being routed through "server" side STP (M3UA SG), coming back in "client"
* side STP (M3UA ASP) which has no routing context set */
testcase TC_clnt_sg_to_asp_norctx() runs on RAW_M3UA_CT {
- /* activate the sender side (ATS is client to STP in SG role) */
- f_init_m3ua();
- f_M3UA_asp_up_act(0);
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-client60-norctx0", "asp-client61-norctx0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx_sender := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[0].point_code, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[1].point_code, 4);
+ var OCT4 pc_receiver2 := int2oct(m3ua_configs[2].point_code, 4);
- var OCT4 rctx_sender := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_cli_config(0).point_code, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_srv_config(1).point_code, 4);
- var OCT4 pc_receiver2 := int2oct(f_m3ua_srv_config(2).point_code, 4);
+ /* activate the sender side (ATS is client to STP in SG role) */
+ f_init_m3ua(m3ua_configs := m3ua_configs);
+ f_M3UA_asp_up_act(0);
/* activate the receiver side (ATS is server to STP in ASP role) */
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(1), rctx := omit);
+ f_M3UA_CLNT_asp_up_act(1, rctx := omit);
/* activate another instance of STP in ASP role with no routing context */
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(2), rctx := omit);
+ f_M3UA_CLNT_asp_up_act(2, rctx := omit);
f_sleep(1.0);
/* verify traffic is routed from sender to [sole] receiver for each PC */
- f_test_traffic(0, rctx_sender, pc_sender, M3UA_SRV(1), omit, pc_receiver);
- f_test_traffic(0, rctx_sender, pc_sender, M3UA_SRV(2), omit, pc_receiver2);
+ f_test_traffic(0, rctx_sender, pc_sender, 1, omit, pc_receiver);
+ f_test_traffic(0, rctx_sender, pc_sender, 2, omit, pc_receiver2);
f_clear_m3ua();
}
@@ -1145,39 +1231,44 @@
/* Test traffic being routed through "server" side STP (M3UA SG), coming back in "client"
* side STP (M3UA ASP) which has no routing context set */
testcase TC_clnt_asp_to_sg_norctx() runs on RAW_M3UA_CT {
- /* activate the sender side (ATS is client to STP in SG role) */
- f_init_m3ua();
- f_M3UA_asp_up_act(0);
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-client60-norctx0", "asp-client61-norctx0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
- var OCT4 rctx_receiver := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 pc_receiver := int2oct(f_m3ua_cli_config(0).point_code, 4);
- var OCT4 pc_sender := int2oct(f_m3ua_srv_config(1).point_code, 4);
- var OCT4 pc_sender2 := int2oct(f_m3ua_srv_config(2).point_code, 4);
+ var OCT4 rctx_receiver := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 pc_receiver := int2oct(m3ua_configs[0].point_code, 4);
+ var OCT4 pc_sender := int2oct(m3ua_configs[1].point_code, 4);
+ var OCT4 pc_sender2 := int2oct(m3ua_configs[2].point_code, 4);
+
+ /* activate the sender side (ATS is client to STP in SG role) */
+ f_init_m3ua(m3ua_configs := m3ua_configs);
+ f_M3UA_asp_up_act(0);
/* activate the receiver side (ATS is server to STP in ASP role) */
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(1), rctx := omit);
+ f_M3UA_CLNT_asp_up_act(1, rctx := omit);
/* activate another instance of STP in ASP role with no routing context */
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(2), rctx := omit);
+ f_M3UA_CLNT_asp_up_act(2, rctx := omit);
f_sleep(1.0);
/* verify traffic is routed from sender to [sole] receiver for each PC */
- f_test_traffic(M3UA_SRV(1), omit, pc_sender, 0, rctx_receiver, pc_receiver);
- f_test_traffic(M3UA_SRV(2), omit, pc_sender2, 0, rctx_receiver, pc_receiver);
+ f_test_traffic(1, omit, pc_sender, 0, rctx_receiver, pc_receiver);
+ f_test_traffic(2, omit, pc_sender2, 0, rctx_receiver, pc_receiver);
f_clear_m3ua();
}
/* Test if ASPAC / ASPIA of one ASP generates DAVA / DUNA on other ASP */
testcase TC_ssnm_aspac_dava_aspia_duna() runs on RAW_M3UA_CT {
- f_init_m3ua(ignore_ssnm := false);
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-receiver0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx0 := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var integer pc0 := m3ua_configs[1].point_code;
+
+ f_init_m3ua(ignore_ssnm := false, m3ua_configs := m3ua_configs);
/* activate the first ASP */
f_M3UA_asp_up_act(0);
- var OCT4 rctx0 := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var integer pc0 := f_m3ua_cli_config(1).point_code;
-
/* activate the second ASP */
f_M3UA_asp_up_act(1, c_M3UA_TMT_override, omit);
/* expect DAVA for PC of second ASP on first ASP */
@@ -1195,102 +1286,106 @@
/* Test if DAVA/DUNA sent from SG to ASP-role STP gets forwarded to other ASP */
testcase TC_ssnm_distribution_dava_duna() runs on RAW_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx0 := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 rctxS0 := int2oct(m3ua_configs[1].routing_ctx, 4);
/* some random point code whose availability we advertise */
var template (value) M3UA_Point_Code adv_pc := ts_M3UA_PC(1234, 0);
- f_init_m3ua(ignore_ssnm := false);
+ f_init_m3ua(ignore_ssnm := false, m3ua_configs := m3ua_configs);
/* activate the first ASP */
f_M3UA_asp_up_act(0);
- var OCT4 rctx0 := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 rctxS0 := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
-
/* activate SG-role ASP (ASP on STP) */
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctxS0);
+ f_M3UA_CLNT_asp_up_act(1, rctx := rctxS0);
/* transmit a DAVA to the remote ASP */
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_DAVA({adv_pc}, rctxS0));
+ f_M3UA_send(1, ts_M3UA_DAVA({adv_pc}, rctxS0));
/* expect that to show up on other ASP */
f_M3UA_exp(0, tr_M3UA_DAVA({adv_pc}, rctx0));
/* transmit a DUNA to the remote ASP */
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_DUNA({adv_pc}, rctxS0));
+ f_M3UA_send(1, ts_M3UA_DUNA({adv_pc}, rctxS0));
/* expect that to show up on other ASP */
f_M3UA_exp(0, tr_M3UA_DUNA({adv_pc}, rctx0));
}
/* Test if DAVA/DUNA sent from SG to ASP-role STP gets forwarded to other ASP */
testcase TC_ssnm_distribution_dava_duna_multipc() runs on RAW_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx0 := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 rctxS0 := int2oct(m3ua_configs[1].routing_ctx, 4);
/* some random point code whose availability we advertise */
var template (value) M3UA_Point_Codes adv_pcs := { ts_M3UA_PC(1234, 0), ts_M3UA_PC(5678, 0) };
- f_init_m3ua(ignore_ssnm := false);
+ f_init_m3ua(ignore_ssnm := false, m3ua_configs := m3ua_configs);
/* activate the first ASP */
f_M3UA_asp_up_act(0);
- var OCT4 rctx0 := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 rctxS0 := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
-
/* activate SG-role ASP (ASP on STP) */
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctxS0);
+ f_M3UA_CLNT_asp_up_act(1, rctx := rctxS0);
/* transmit a DAVA to the remote ASP */
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_DAVA(adv_pcs, rctxS0));
+ f_M3UA_send(1, ts_M3UA_DAVA(adv_pcs, rctxS0));
/* expect that to show up on other ASP */
f_M3UA_exp(0, tr_M3UA_DAVA(adv_pcs, rctx0));
/* transmit a DUNA to the remote ASP */
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_DUNA(adv_pcs, rctxS0));
+ f_M3UA_send(1, ts_M3UA_DUNA(adv_pcs, rctxS0));
/* expect that to show up on other ASP */
f_M3UA_exp(0, tr_M3UA_DUNA(adv_pcs, rctx0));
}
/* Test if DUPU sent from SG to ASP-role STP gets forwarded to other ASP */
testcase TC_ssnm_distribution_dupu() runs on RAW_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx0 := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 rctxS0 := int2oct(m3ua_configs[1].routing_ctx, 4);
/* some random point code whose availability we advertise */
var template (value) M3UA_Point_Code adv_pc := ts_M3UA_PC(1234, 0);
- f_init_m3ua(ignore_ssnm := false);
+ f_init_m3ua(ignore_ssnm := false, m3ua_configs := m3ua_configs);
/* activate the first ASP */
f_M3UA_asp_up_act(0);
- var OCT4 rctx0 := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 rctxS0 := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
-
/* activate SG-role ASP (ASP on STP) */
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctxS0);
+ f_M3UA_CLNT_asp_up_act(1, rctx := rctxS0);
/* transmit a DUPU to the remote ASP */
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_DUPU({adv_pc}, '0102'O, 'ABCD'O, rctxS0));
+ f_M3UA_send(1, ts_M3UA_DUPU({adv_pc}, '0102'O, 'ABCD'O, rctxS0));
/* expect that to show up on other ASP */
f_M3UA_exp(0, tr_M3UA_DUPU({adv_pc}, '0102'O, 'ABCD'O, rctx0));
}
/* Test if SCON sent from SG to ASP-role STP gets forwarded to other ASP */
testcase TC_ssnm_distribution_scon() runs on RAW_M3UA_CT {
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx0 := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var OCT4 rctxS0 := int2oct(m3ua_configs[1].routing_ctx, 4);
/* some random point code whose availability we advertise */
var template (value) M3UA_Point_Code adv_pc := ts_M3UA_PC(1234, 0);
- f_init_m3ua(ignore_ssnm := false);
+ f_init_m3ua(ignore_ssnm := false, m3ua_configs := m3ua_configs);
/* activate the first ASP */
f_M3UA_asp_up_act(0);
- var OCT4 rctx0 := int2oct(f_m3ua_cli_config(0).routing_ctx, 4);
- var OCT4 rctxS0 := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
-
/* activate SG-role ASP (ASP on STP) */
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctxS0);
+ f_M3UA_CLNT_asp_up_act(1, rctx := rctxS0);
/* transmit a SCON to the remote ASP */
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_SCON({adv_pc}, rctxS0));
+ f_M3UA_send(1, ts_M3UA_SCON({adv_pc}, rctxS0));
/* expect that to show up on other ASP */
f_M3UA_exp(0, tr_M3UA_SCON({adv_pc}, rctx0));
}
@@ -1317,21 +1412,24 @@
f_vty_config2(VTY, {"cs7 instance 0", asp_cfg_str}, cmd);
}
-private function f_quirk(charstring quirk) runs on RAW_M3UA_CT {
- f_vty_cs7_asp_cmd(f_m3ua_srv_config(0), "quirk " & quirk)
+private function f_quirk(charstring quirk, integer m3ua_idx := 0) runs on RAW_M3UA_CT {
+ f_vty_cs7_asp_cmd(g_m3ua_configs[m3ua_idx], "quirk " & quirk)
}
-private function f_no_quirk(charstring quirk) runs on RAW_M3UA_CT {
- f_vty_cs7_asp_cmd(f_m3ua_srv_config(0), "no quirk " & quirk)
+private function f_no_quirk(charstring quirk, integer m3ua_idx := 0) runs on RAW_M3UA_CT {
+ f_vty_cs7_asp_cmd(g_m3ua_configs[m3ua_idx], "no quirk " & quirk)
}
/* quirk 'no_notify': Expect inbound connection from ASP/SCTP-client, followed by ASP-UP + ASP-ACT */
testcase TC_clnt_quirk_no_notify_asp_act() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_quirk("no_notify");
f_init_m3ua_srv();
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := int2oct(f_m3ua_srv_config(0).routing_ctx, 4),
+ f_M3UA_CLNT_asp_up_act(0, rctx := int2oct(g_m3ua_configs[0].routing_ctx, 4),
ntfy_after_up := omit, ntfy_after_act := omit);
f_no_quirk("no_notify");
f_clear_m3ua();
@@ -1339,18 +1437,20 @@
/* ensure that DAUD is not supported in ASP role, as required by RFC */
testcase TC_clnt_no_daud_in_asp() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var integer pc := m3ua_configs[0].point_code;
+ var template (value) M3UA_Point_Codes aff_pcs := { ts_M3UA_PC(pc) };
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_no_quirk("daud_in_asp");
f_init_m3ua_srv();
- var OCT4 rctx := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
- var integer pc := f_m3ua_srv_config(0).point_code;
+ f_M3UA_CLNT_asp_up_act(0, rctx := rctx);
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctx);
-
- var template (value) M3UA_Point_Codes aff_pcs := { ts_M3UA_PC(pc) };
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_DAUD(aff_pcs));
- f_M3UA_exp(M3UA_SRV(0), tr_M3UA_ERR('00000004'O, omit));
+ f_M3UA_send(0, ts_M3UA_DAUD(aff_pcs));
+ f_M3UA_exp(0, tr_M3UA_ERR('00000004'O, omit));
setverdict(pass);
f_clear_m3ua();
@@ -1358,18 +1458,20 @@
/* quirk 'daud_in_asp': allowing inbound DAUD from SG in ASP role */
testcase TC_clnt_quirk_daud_in_asp() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var OCT4 rctx := int2oct(m3ua_configs[0].routing_ctx, 4);
+ var integer pc := m3ua_configs[0].point_code;
+ var template (value) M3UA_Point_Codes aff_pcs := { ts_M3UA_PC(pc) };
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_quirk("daud_in_asp");
f_init_m3ua_srv();
- var OCT4 rctx := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
- var integer pc := f_m3ua_srv_config(0).point_code;
+ f_M3UA_CLNT_asp_up_act(0, rctx := rctx);
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctx);
-
- var template (value) M3UA_Point_Codes aff_pcs := { ts_M3UA_PC(pc) };
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_DAUD(aff_pcs));
- f_M3UA_exp(M3UA_SRV(0), tr_M3UA_DAVA(aff_pcs));
+ f_M3UA_send(0, ts_M3UA_DAUD(aff_pcs));
+ f_M3UA_exp(0, tr_M3UA_DAVA(aff_pcs));
setverdict(pass);
f_no_quirk("daud_in_asp");
@@ -1378,19 +1480,22 @@
/* Expect a normal ASP to reject any [S]SNM messages in ASP-INACTIVE state */
testcase TC_clnt_no_snm_inactive() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var template (value) M3UA_Point_Codes aff_pcs := { ts_M3UA_PC(m3ua_configs[0].point_code) };
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_quirk("no_notify");
f_quirk("daud_in_asp");
f_no_quirk("snm_inactive");
f_init_m3ua_srv();
/* bring ASP only UP (into INACTIVE state), but not ACTIVE! */
- f_M3UA_CLNT_asp_up(M3UA_SRV(0));
- f_M3UA_exp(M3UA_SRV(0), tr_M3UA_ASPAC(*, *));
+ f_M3UA_CLNT_asp_up(0);
+ f_M3UA_exp(0, tr_M3UA_ASPAC(*, *));
- var template (value) M3UA_Point_Codes aff_pcs := { ts_M3UA_PC(f_m3ua_srv_config(0).point_code) };
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_DAUD(aff_pcs));
- f_M3UA_exp(M3UA_SRV(0), tr_M3UA_ERR('00000006'O, omit));
+ f_M3UA_send(0, ts_M3UA_DAUD(aff_pcs));
+ f_M3UA_exp(0, tr_M3UA_ERR('00000006'O, omit));
setverdict(pass);
f_no_quirk("no_notify");
@@ -1400,19 +1505,22 @@
/* quirk 'snm_inactive': Process [S]SNM in ASP-INACTIVE state */
testcase TC_clnt_quirk_snm_inactive() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+ var template (value) M3UA_Point_Codes aff_pcs := { ts_M3UA_PC(m3ua_configs[0].point_code) };
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_quirk("no_notify");
f_quirk("daud_in_asp");
f_quirk("snm_inactive");
f_init_m3ua_srv();
/* bring ASP only UP (into INACTIVE state), but not ACTIVE! */
- f_M3UA_CLNT_asp_up(M3UA_SRV(0));
- f_M3UA_exp(M3UA_SRV(0), tr_M3UA_ASPAC(*, *));
+ f_M3UA_CLNT_asp_up(0);
+ f_M3UA_exp(0, tr_M3UA_ASPAC(*, *));
- var template (value) M3UA_Point_Codes aff_pcs := { ts_M3UA_PC(f_m3ua_srv_config(0).point_code) };
- f_M3UA_send(M3UA_SRV(0), ts_M3UA_DAUD(aff_pcs));
- f_M3UA_exp(M3UA_SRV(0), tr_M3UA_DUNA(aff_pcs));
+ f_M3UA_send(0, ts_M3UA_DAUD(aff_pcs));
+ f_M3UA_exp(0, tr_M3UA_DUNA(aff_pcs));
setverdict(pass);
f_no_quirk("no_notify");
@@ -1424,22 +1532,24 @@
/* Test administrative state, VTY "[no] shutdown" */
testcase TC_clnt_sctp_adm_shutdown() runs on RAW_M3UA_CT {
var PortEvent pev;
+ var Misc_Helpers.ro_charstring asps := { "asp-client0" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
- f_init_m3ua();
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_m3ua_srv();
- var OCT4 rctx := int2oct(f_m3ua_srv_config(0).routing_ctx, 4);
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctx);
+ var OCT4 rctx := int2oct(m3ua_configs[0].routing_ctx, 4);
+ f_M3UA_CLNT_asp_up_act(0, rctx := rctx);
f_sleep(1.0);
- f_vty_cs7_asp_cmd(f_m3ua_srv_config(0), "shutdown");
+ f_vty_cs7_asp_cmd(m3ua_configs[0], "shutdown");
log("ASP should now be DOWN")
- as_M3UA_wait_sctp_conn_closed(M3UA_SRV(0));
+ as_M3UA_wait_sctp_conn_closed(0);
/* Wait for a while to make sure ASP doesn't reconnect to us: */
timer T := 10.0;
T.start;
alt {
- [] M3UA[M3UA_SRV(0)].receive(tr_ConnOpened) {
+ [] M3UA[0].receive(tr_ConnOpened) {
Misc_Helpers.f_shutdown(__BFILE__, __LINE__, fail,
"Unexpected reconnect from ASP client!");
}
@@ -1447,12 +1557,12 @@
}
/* Now let the ASP be active again, it should reconnect to us: */
- f_vty_cs7_asp_cmd(f_m3ua_srv_config(0), "no shutdown");
+ f_vty_cs7_asp_cmd(m3ua_configs[0], "no shutdown");
log("Waiting for client ASP to reconnect to us");
- M3UA[M3UA_SRV(0)].receive(tr_ConnOpened) -> value pev {
- g_m3ua_conn_id[M3UA_SRV(0)] := pev.connOpened.connId;
+ M3UA[0].receive(tr_ConnOpened) -> value pev {
+ g_m3ua_conn_id[0] := pev.connOpened.connId;
}
- f_M3UA_CLNT_asp_up_act(M3UA_SRV(0), rctx := rctx);
+ f_M3UA_CLNT_asp_up_act(0, rctx := rctx);
f_clear_m3ua();
}
diff --git a/stp/STP_Tests_M3UA_TCP.cfg b/stp/STP_Tests_M3UA_TCP.cfg
index 7113e97..704de7a 100644
--- a/stp/STP_Tests_M3UA_TCP.cfg
+++ b/stp/STP_Tests_M3UA_TCP.cfg
@@ -11,38 +11,37 @@
[TESTPORT_PARAMETERS]
[MODULE_PARAMETERS]
-/* Clients first, servers afterwards, match mp_m3ua_num_{clients,servers} */
STP_Tests_M3UA.mp_m3ua_configs := {
- /* as-sender: One ASP within AS */
{
asp_name := "asp-sender",
+ is_server := false,
use_tcp := false,
remote_port := 2905,
local_port := 9999,
point_code := 23,
routing_ctx := 1023
},
- /* as-sender-tcp: One ASP within AS */
{
asp_name := "asp-sender-tcp",
+ is_server := false,
use_tcp := true,
remote_port := 2905,
local_port := 9999,
point_code := 123,
routing_ctx := 1123
},
- /* as-client: One ASP within AS */
{
asp_name := "asp-client0",
+ is_server := true,
use_tcp := false,
remote_port := 2906,
local_port := 10002,
point_code := 55,
routing_ctx := 1055
},
- /* as-client-tcp: One ASP within AS */
{
asp_name := "asp-client0-tcp",
+ is_server := true,
use_tcp := true,
remote_port := 2906,
local_port := 10002,
@@ -50,10 +49,6 @@
routing_ctx := 1155
}
};
-/* number of M3UA clients in ATS */
-STP_Tests_M3UA.mp_m3ua_num_clients := 2;
-/* number of M3UA servers in ATS */
-STP_Tests_M3UA.mp_m3ua_num_servers := 2;
[MAIN_CONTROLLER]
diff --git a/stp/STP_Tests_M3UA_TCP.ttcn b/stp/STP_Tests_M3UA_TCP.ttcn
index 15361ef..a5e4c2a 100644
--- a/stp/STP_Tests_M3UA_TCP.ttcn
+++ b/stp/STP_Tests_M3UA_TCP.ttcn
@@ -14,6 +14,7 @@
import from General_Types all;
import from Osmocom_Types all;
import from IPL4asp_Types all;
+import from Misc_Helpers all;
import from Osmocom_VTY_Functions all;
@@ -43,22 +44,22 @@
var OCT4 pc_b := int2oct(cfg_b.point_code, 4);
/* establish connection with ASP 'A' */
- if (idx_a < g_m3ua_num_clients) {
- f_M3UA_asp_up_act(idx_a, rctx := rctx_a);
- } else {
+ if (g_m3ua_configs[idx_a].is_server) {
f_M3UA_CLNT_asp_up_act(idx_a, rctx := rctx_a);
+ } else {
+ f_M3UA_asp_up_act(idx_a, rctx := rctx_a);
}
/* establish connection with ASP 'B' */
- if (idx_b < g_m3ua_num_clients) {
- f_M3UA_asp_up_act(idx_b, rctx := rctx_b);
- } else {
+ if (g_m3ua_configs[idx_b].is_server) {
f_M3UA_CLNT_asp_up_act(idx_b, rctx := rctx_b);
+ } else {
+ f_M3UA_asp_up_act(idx_b, rctx := rctx_b);
}
/* In the case when ASP[idx_b] is configured as the client (i.e. osmo-stp connects to
- * the testsuite; idx_b >= g_m3ua_num_clients), in f_M3UA_CLNT_asp_up_act() we're expecting
- * to receive ASPACT and then sending ASPACT_ACK to it. Right after that, we're sending
+ * the testsuite), in f_M3UA_CLNT_asp_up_act() we're expecting to receive ASPACT and
+ * then sending ASPACT_ACK to it. Right after that, we're sending
* some random data via ASP[idx_a], which we then expect to receive via ASP[idx_b].
*
* There is a chance that the random data sent via ASP[idx_a] would reach osmo-stp
@@ -78,29 +79,41 @@
/* test routing between M3UA/SCTP (client) and M3UA/TCP (client) */
testcase TC_m3ua_tcp_cli() runs on RAW_M3UA_CT {
- f_init_m3ua();
- f_TC_m3ua_tcp(0, 1); /* 'asp-sender' <-> 'asp-sender-tcp' */
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-sender-tcp" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
+ f_TC_m3ua_tcp(0, 1);
}
/* test routing between M3UA/SCTP (client) and M3UA/TCP (server) */
testcase TC_m3ua_tcp_cli_srv() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-sender", "asp-client0-tcp" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_m3ua_srv();
- f_TC_m3ua_tcp(0, M3UA_SRV(1)); /* 'asp-sender' <-> 'asp-client-tcp' */
+ f_TC_m3ua_tcp(0, 1);
}
/* test routing between M3UA/SCTP (server) and M3UA/TCP (server) */
testcase TC_m3ua_tcp_srv() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-client0", "asp-client0-tcp" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_m3ua_srv();
- f_TC_m3ua_tcp(M3UA_SRV(0), M3UA_SRV(1)); /* 'asp-client' <-> 'asp-client-tcp' */
+ f_TC_m3ua_tcp(0, 1);
}
/* test routing between M3UA/SCTP (server) and M3UA/TCP (client) */
testcase TC_m3ua_tcp_srv_cli() runs on RAW_M3UA_CT {
- f_init_m3ua();
+ var Misc_Helpers.ro_charstring asps := { "asp-client0", "asp-sender-tcp" };
+ var M3uaConfigs m3ua_configs := m3ua_build_configs(asps);
+
+ f_init_m3ua(m3ua_configs := m3ua_configs);
f_init_m3ua_srv();
- f_TC_m3ua_tcp(M3UA_SRV(0), 1); /* 'asp-client' <-> 'asp-sender-tcp' */
+ f_TC_m3ua_tcp(0, 1);
}
control {
To view, visit change 40325. To unsubscribe, or for help writing mail filters, visit settings.