Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 1 | module STP_Tests_M3UA { |
| 2 | |
| 3 | /* Osmocom STP test suite in in TTCN-3 |
| 4 | * (C) 2019 Harald Welte <laforge@gnumonks.org> |
| 5 | * All rights reserved. |
| 6 | * |
| 7 | * Released under the terms of GNU General Public License, Version 2 or |
| 8 | * (at your option) any later version. |
| 9 | * |
| 10 | * SPDX-License-Identifier: GPL-2.0-or-later |
| 11 | */ |
| 12 | |
| 13 | friend module STP_Tests; |
| 14 | |
| 15 | import from General_Types all; |
| 16 | import from Osmocom_Types all; |
| 17 | import from IPL4asp_Types all; |
| 18 | |
| 19 | import from Osmocom_VTY_Functions all; |
| 20 | |
| 21 | import from M3UA_Types all; |
| 22 | import from M3UA_Templates all; |
| 23 | import from M3UA_CodecPort all; |
| 24 | import from M3UA_CodecPort_CtrlFunct all; |
| 25 | |
| 26 | import from M3UA_Emulation all; |
| 27 | import from MTP3asp_Types all; |
| 28 | import from MTP3asp_PortType all; |
| 29 | |
| 30 | import from SCCP_Types all; |
| 31 | import from SCCP_Templates all; |
| 32 | import from SCCPasp_Types all; |
| 33 | import from SCCP_Emulation all; |
| 34 | |
| 35 | import from STP_Tests_Common all; |
| 36 | |
| 37 | modulepar { |
| 38 | integer mp_stp_m3ua_port := 2905; |
Harald Welte | 829dac4 | 2019-11-05 16:55:30 +0100 | [diff] [blame^] | 39 | integer mp_stp_m3ua_clnt_port := 2906; |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 40 | integer mp_local_m3ua_port := 9999; |
| 41 | } |
| 42 | |
Harald Welte | 829dac4 | 2019-11-05 16:55:30 +0100 | [diff] [blame^] | 43 | private const integer NR_M3UA := 3; /* number of M3UA clients in ATS */ |
| 44 | private const integer NR_M3UA_SRV := 1; /* number of M3UA servres in ATS */ |
| 45 | |
| 46 | private function M3UA_SRV(integer idx) return integer { |
| 47 | return NR_M3UA+idx; |
| 48 | } |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 49 | |
| 50 | type component RAW_M3UA_CT extends Test_CT { |
Harald Welte | 829dac4 | 2019-11-05 16:55:30 +0100 | [diff] [blame^] | 51 | port M3UA_CODEC_PT M3UA[NR_M3UA+NR_M3UA_SRV]; |
| 52 | var integer g_m3ua_conn_id[NR_M3UA+NR_M3UA_SRV]; |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 53 | } |
| 54 | |
| 55 | private template PortEvent tr_SctpAssocChange := { |
| 56 | sctpEvent := { |
| 57 | sctpAssocChange := ? |
| 58 | } |
| 59 | } |
| 60 | private template PortEvent tr_SctpPeerAddrChange := { |
| 61 | sctpEvent := { |
| 62 | sctpPeerAddrChange := ? |
| 63 | } |
| 64 | } |
Harald Welte | 829dac4 | 2019-11-05 16:55:30 +0100 | [diff] [blame^] | 65 | private template PortEvent tr_SctpConnOpened := { |
| 66 | connOpened := ? |
| 67 | } |
| 68 | |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 69 | |
| 70 | private altstep as_m3ua_sctp() runs on RAW_M3UA_CT { |
| 71 | [] any from M3UA.receive(tr_SctpAssocChange) { repeat; } |
| 72 | [] any from M3UA.receive(tr_SctpPeerAddrChange) { repeat; } |
| 73 | } |
| 74 | |
| 75 | friend function f_M3UA_send(integer idx, template (present) PDU_M3UA msg, template integer stream := 0) |
| 76 | runs on RAW_M3UA_CT { |
| 77 | M3UA[idx].send(t_M3UA_Send(g_m3ua_conn_id[idx], msg, stream)); |
| 78 | } |
| 79 | |
| 80 | friend function f_M3UA_exp(integer idx, template (present) PDU_M3UA msg) runs on RAW_M3UA_CT { |
| 81 | var M3UA_RecvFrom rx; |
| 82 | alt { |
| 83 | [] M3UA[idx].receive(t_M3UA_RecvFrom(msg)) { |
| 84 | setverdict(pass); |
| 85 | } |
| 86 | [] M3UA[idx].receive(t_M3UA_RecvFrom(?)) -> value rx { |
| 87 | setverdict(fail, "Received unexpected M3UA[", idx, "] ", rx, |
| 88 | "while waiting for ", msg); |
| 89 | mtc.stop; |
| 90 | } |
| 91 | } |
| 92 | } |
| 93 | |
| 94 | friend function f_M3UA_connect(integer i) runs on RAW_M3UA_CT { |
| 95 | var Result res; |
| 96 | res := M3UA_CodecPort_CtrlFunct.f_IPL4_connect(M3UA[i], mp_stp_ip, mp_stp_m3ua_port, |
| 97 | mp_local_ip, mp_local_m3ua_port+i, -1, |
| 98 | {sctp:=valueof(ts_SCTP)}); |
| 99 | if (not ispresent(res.connId)) { |
| 100 | setverdict(fail, "Could not connect M3UA socket, check your configuration"); |
| 101 | mtc.stop; |
| 102 | } |
| 103 | g_m3ua_conn_id[i] := res.connId; |
| 104 | } |
| 105 | |
Harald Welte | 829dac4 | 2019-11-05 16:55:30 +0100 | [diff] [blame^] | 106 | friend function f_M3UA_listen(integer i) runs on RAW_M3UA_CT { |
| 107 | var Result res; |
| 108 | res := M3UA_CodecPort_CtrlFunct.f_IPL4_listen(M3UA[i], mp_local_ip, mp_local_m3ua_port+i, |
| 109 | {sctp:=valueof(ts_SCTP)}); |
| 110 | if (not ispresent(res.connId)) { |
| 111 | setverdict(fail, "Could not bind M3UA socket, check your configuration"); |
| 112 | mtc.stop; |
| 113 | } |
| 114 | } |
| 115 | |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 116 | friend function f_init_m3ua() runs on RAW_M3UA_CT { |
| 117 | var integer i; |
| 118 | |
| 119 | f_init_common(); |
| 120 | |
| 121 | activate(as_m3ua_sctp()); |
| 122 | |
| 123 | for (i := 0; i < NR_M3UA; i:=i+1) { |
| 124 | map(self:M3UA[i], system:M3UA_CODEC_PT); |
| 125 | f_M3UA_connect(i); |
| 126 | } |
| 127 | } |
| 128 | |
Harald Welte | 829dac4 | 2019-11-05 16:55:30 +0100 | [diff] [blame^] | 129 | friend function f_init_m3ua_srv() runs on RAW_M3UA_CT { |
| 130 | var integer i; |
| 131 | var PortEvent sctp_evt; |
| 132 | |
| 133 | for (i := NR_M3UA; i < NR_M3UA+NR_M3UA_SRV; i:=i+1) { |
| 134 | map(self:M3UA[i], system:M3UA_CODEC_PT); |
| 135 | /* bind+ listen */ |
| 136 | f_M3UA_listen(i); |
| 137 | /* wait for accept() */ |
| 138 | M3UA[i].receive(tr_SctpConnOpened) -> value sctp_evt { |
| 139 | g_m3ua_conn_id[i] := sctp_evt.connOpened.connId; |
| 140 | } |
| 141 | } |
| 142 | } |
| 143 | |
| 144 | |
| 145 | /*********************************************************************** |
| 146 | * Test the STP in M3UA SG role (we are ASP) |
| 147 | ***********************************************************************/ |
| 148 | |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 149 | /* perform an outbound ASP-UP procedure */ |
| 150 | friend function f_M3UA_asp_up(integer idx, template (omit) OCT4 aspid := omit) runs on RAW_M3UA_CT { |
| 151 | f_M3UA_send(idx, ts_M3UA_ASPUP(aspid)); |
| 152 | f_M3UA_exp(idx, tr_M3UA_ASPUP_ACK); |
| 153 | } |
| 154 | |
| 155 | /* perform an outbound BEAT procedure */ |
| 156 | friend function f_M3UA_beat(integer idx, template (omit) octetstring hbd) runs on RAW_M3UA_CT { |
| 157 | if (istemplatekind(hbd, "omit")) { |
| 158 | f_M3UA_send(idx, ts_M3UA_BEAT(omit)); |
| 159 | f_M3UA_exp(idx, tr_M3UA_BEAT_ACK(omit)); |
| 160 | } else { |
| 161 | f_M3UA_send(idx, ts_M3UA_BEAT(ts_M3UA_hb_data(hbd))); |
| 162 | f_M3UA_exp(idx, tr_M3UA_BEAT_ACK(tr_M3UA_hb_data(hbd))); |
| 163 | } |
| 164 | } |
| 165 | |
| 166 | /* perform an outbound ASP-ACTIVATE procedure */ |
| 167 | friend function f_M3UA_asp_act(integer idx, template (omit) M3UA_Traffic_Mode_Type tmt := omit, |
| 168 | template (omit) OCT4 rctx := omit) runs on RAW_M3UA_CT { |
| 169 | f_M3UA_send(idx, ts_M3UA_ASPAC(tmt, rctx)); |
| 170 | f_M3UA_exp(idx, tr_M3UA_ASPAC_ACK(tmt, rctx)); |
| 171 | } |
| 172 | |
| 173 | /* perform outbound ASP-UP and ASP-ACT, optionally expect interemittent NOTIFY */ |
| 174 | friend function f_M3UA_asp_up_act(integer idx, template (omit) M3UA_Traffic_Mode_Type tmt := omit, |
| 175 | template (omit) OCT4 rctx := omit, |
| 176 | template (omit) OCT2 ntfy_after_up := c_M3UA_ST_I_AS_INACTIVE, |
| 177 | template (omit) OCT2 ntfy_after_act := c_M3UA_ST_I_AS_ACTIVE) |
| 178 | runs on RAW_M3UA_CT { |
| 179 | f_M3UA_asp_up(idx, omit); |
| 180 | if (not istemplatekind(ntfy_after_up, "omit")) { |
| 181 | f_M3UA_exp(idx, tr_M3UA_NOTIFY(c_M3UA_ST_T_STATE_CHG, ntfy_after_up, *)); |
| 182 | } |
| 183 | f_M3UA_asp_act(idx, tmt, rctx); |
| 184 | if (not istemplatekind(ntfy_after_act, "omit")) { |
| 185 | f_M3UA_exp(idx, tr_M3UA_NOTIFY(c_M3UA_ST_T_STATE_CHG, ntfy_after_act, *)); |
| 186 | } |
| 187 | } |
| 188 | |
| 189 | |
| 190 | /* Test the ASP-UP procedure */ |
| 191 | testcase TC_connect_asp_up() runs on RAW_M3UA_CT { |
| 192 | f_init_m3ua(); |
| 193 | f_M3UA_asp_up(0); |
| 194 | f_M3UA_exp(0, tr_M3UA_NOTIFY(c_M3UA_ST_T_STATE_CHG, c_M3UA_ST_I_AS_INACTIVE, *)); |
| 195 | } |
| 196 | |
| 197 | /* Test the heartbeat procedure without optional heartbeat data payload */ |
| 198 | testcase TC_beat() runs on RAW_M3UA_CT { |
| 199 | f_init_m3ua(); |
| 200 | f_M3UA_asp_up(0); |
| 201 | f_M3UA_exp(0, tr_M3UA_NOTIFY(c_M3UA_ST_T_STATE_CHG, c_M3UA_ST_I_AS_INACTIVE, *)); |
| 202 | f_M3UA_beat(0, omit); |
| 203 | } |
| 204 | |
| 205 | /* Test the heartbeat procedure with optional heartbeat data payload */ |
| 206 | testcase TC_beat_payload() runs on RAW_M3UA_CT { |
| 207 | f_init_m3ua(); |
| 208 | f_M3UA_asp_up(0); |
| 209 | f_M3UA_exp(0, tr_M3UA_NOTIFY(c_M3UA_ST_T_STATE_CHG, c_M3UA_ST_I_AS_INACTIVE, *)); |
| 210 | f_M3UA_beat(0, 'a1a2a3a4a5'O); |
| 211 | } |
| 212 | |
| 213 | /* Test the ASP-ACTIVATE procedure (without traffic-mode or routing ctx) */ |
| 214 | testcase TC_asp_act() runs on RAW_M3UA_CT { |
| 215 | f_init_m3ua(); |
| 216 | f_M3UA_asp_up_act(0); |
| 217 | } |
| 218 | |
| 219 | /* Test the ASP-ACTIVATE procedure with traffic-mode override */ |
| 220 | testcase TC_asp_act_override() runs on RAW_M3UA_CT { |
| 221 | f_init_m3ua(); |
| 222 | f_M3UA_asp_up_act(0, c_M3UA_TMT_override, omit); |
| 223 | } |
| 224 | |
| 225 | /* Test the ASP-ACTIVATE procedure with traffic-mode override */ |
| 226 | testcase TC_asp_act_loadshare() runs on RAW_M3UA_CT { |
| 227 | f_init_m3ua(); |
| 228 | f_M3UA_asp_up_act(0, c_M3UA_TMT_loadshare, omit); |
| 229 | } |
| 230 | |
| 231 | /* Test the ASP-ACTIVATE procedure with traffic-mode broadcast */ |
| 232 | testcase TC_asp_act_broadcast() runs on RAW_M3UA_CT { |
| 233 | f_init_m3ua(); |
| 234 | f_M3UA_asp_up_act(0, c_M3UA_TMT_broadcast, omit); |
| 235 | } |
| 236 | |
| 237 | /* Test if traffic is routed from idx_tx/pc_tx to idx_rx/pc_rx */ |
| 238 | private function f_test_traffic(integer idx_tx, template (omit) OCT4 rctx_sender, OCT4 pc_tx, |
| 239 | integer idx_rx, template (omit) OCT4 rctx_receiver, OCT4 pc_rx, |
| 240 | OCT1 si := '23'O, OCT1 ni := '00'O, OCT1 mp := '00'O, OCT1 sls := '00'O) |
| 241 | runs on RAW_M3UA_CT { |
| 242 | var octetstring data := f_rnd_octstring(f_rnd_int(100)); |
| 243 | f_M3UA_send(idx_tx, ts_M3UA_DATA(rctx_sender, |
| 244 | ts_M3UA_protocol_data(pc_tx, pc_rx, si, ni, mp, sls, data)), 1); |
| 245 | f_M3UA_exp(idx_rx, tr_M3UA_DATA(rctx_receiver, |
| 246 | tr_M3UA_protocol_data(pc_tx, pc_rx, si, ni, mp, sls, data))); |
| 247 | } |
| 248 | |
| 249 | |
| 250 | /* test "traffic-mode override" behavior */ |
| 251 | testcase TC_tmt_override() runs on RAW_M3UA_CT { |
| 252 | var OCT4 rctx_sender := int2oct(1023, 4); |
| 253 | var OCT4 pc_sender := int2oct(23, 4); |
| 254 | var OCT4 rctx_receiver := int2oct(1042, 4); |
| 255 | var OCT4 pc_receiver := int2oct(42, 4); |
| 256 | |
| 257 | f_init_m3ua(); |
| 258 | |
| 259 | /* bring up the 'sender' side (single ASP in AS) */ |
| 260 | f_M3UA_asp_up_act(0, omit, omit); |
| 261 | |
| 262 | /* activate the first 'receiver' side ASP */ |
| 263 | f_M3UA_asp_up_act(1, c_M3UA_TMT_override, rctx_receiver); |
| 264 | |
| 265 | /* verify traffic is routed from sender to [sole] receiver */ |
| 266 | f_test_traffic(0, rctx_sender, pc_sender, 1, rctx_receiver, pc_receiver); |
| 267 | |
| 268 | /* activate the second 'receiver' side ASP (no NOTIFY as AS state doesn't change) */ |
| 269 | f_M3UA_asp_up_act(2, c_M3UA_TMT_override, rctx_receiver, omit, omit); |
| 270 | |
| 271 | /* we expect a NOTIFY to the *other* ASP Other/Alternat-ASP-Active */ |
| 272 | f_M3UA_exp(1, tr_M3UA_NOTIFY(c_M3UA_ST_T_OTHER, c_M3UA_ST_I_ALTERNATE_ASP, *)); |
| 273 | |
| 274 | /* verify traffic is routed from sender to new receiver */ |
| 275 | f_test_traffic(0, rctx_sender, pc_sender, 2, rctx_receiver, pc_receiver); |
| 276 | |
| 277 | } |
| 278 | |
| 279 | private altstep as_count_rx(integer idx, template (present) PDU_M3UA exp, inout integer counter) |
| 280 | runs on RAW_M3UA_CT { |
| 281 | [] M3UA[idx].receive(t_M3UA_RecvFrom(exp)) { |
| 282 | counter := counter + 1; |
| 283 | } |
| 284 | } |
| 285 | |
| 286 | /* test "traffic-mode load-share" behavior */ |
| 287 | testcase TC_tmt_loadshare() runs on RAW_M3UA_CT { |
| 288 | var OCT4 rctx_sender := int2oct(1023, 4); |
| 289 | var OCT4 pc_sender := int2oct(23, 4); |
| 290 | var OCT4 rctx_receiver := int2oct(1042, 4); |
| 291 | var OCT4 pc_receiver := int2oct(42, 4); |
| 292 | var integer i; |
| 293 | |
| 294 | f_init_m3ua(); |
| 295 | |
| 296 | /* FIXME: configure the STP via VTY to set traffic-mode */ |
| 297 | |
| 298 | /* bring up the 'sender' side (single ASP in AS) */ |
| 299 | f_M3UA_asp_up_act(0, omit, rctx_sender); |
| 300 | |
| 301 | /* activate the first 'receiver' side ASP */ |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 302 | f_M3UA_asp_up_act(1, c_M3UA_TMT_loadshare, omit); // TODO: rctx |
| 303 | |
| 304 | /* verify traffic is routed from sender to [sole] receiver */ |
| 305 | for (i := 0; i < 10; i := i+1) { |
| 306 | f_test_traffic(0, rctx_sender, pc_sender, 1, rctx_receiver, pc_receiver); |
| 307 | } |
| 308 | |
| 309 | /* activate the second 'receiver' side ASP (no NOTIFY) */ |
| 310 | f_M3UA_asp_up_act(2, c_M3UA_TMT_loadshare, omit, omit, omit); // TODO: rctx |
| 311 | |
| 312 | /* verify traffic is routed from sender to new receiver */ |
| 313 | const integer iter_per_asp := 5; |
| 314 | var integer num_rx[NR_M3UA] := { 0, 0, 0 }; |
| 315 | for (i := 0; i < 2*iter_per_asp; i := i+1) { |
| 316 | var octetstring data := f_rnd_octstring(f_rnd_int(100)); |
| 317 | var template (value) M3UA_Protocol_Data tx_pd; |
| 318 | var template (present) M3UA_Protocol_Data rx_pd; |
| 319 | tx_pd := ts_M3UA_protocol_data(pc_sender, pc_receiver, '23'O, '00'O, '00'O, '00'O, data); |
| 320 | rx_pd := tr_M3UA_protocol_data(pc_sender, pc_receiver, '23'O, '00'O, '00'O, '00'O, data); |
| 321 | f_M3UA_send(0, ts_M3UA_DATA(rctx_sender, tx_pd), 1); |
| 322 | alt { |
| 323 | [] as_count_rx(1, tr_M3UA_DATA(rctx_receiver, rx_pd), num_rx[1]) |
| 324 | [] as_count_rx(2, tr_M3UA_DATA(rctx_receiver, rx_pd), num_rx[2]) |
| 325 | } |
| 326 | } |
| 327 | /* FIXME: check for extraneous messages? */ |
| 328 | for (i := 1; i <= 2; i := i+1) { |
| 329 | if (num_rx[i] != iter_per_asp) { |
Harald Welte | b9f7bbb | 2019-10-29 09:07:11 +0100 | [diff] [blame] | 330 | setverdict(fail, "Received ", num_rx[i], " out of expected ", iter_per_asp, |
| 331 | "M3UA DATA messages at M3UA port ", i); |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 332 | } |
| 333 | } |
| 334 | setverdict(pass); |
| 335 | } |
| 336 | |
| 337 | /* test "traffic-mode broadcast" behavior */ |
| 338 | testcase TC_tmt_broadcast() runs on RAW_M3UA_CT { |
| 339 | var OCT4 rctx_sender := int2oct(1023, 4); |
| 340 | var OCT4 pc_sender := int2oct(23, 4); |
| 341 | var OCT4 rctx_receiver := int2oct(1042, 4); |
| 342 | var OCT4 pc_receiver := int2oct(42, 4); |
| 343 | var integer i; |
| 344 | |
| 345 | f_init_m3ua(); |
| 346 | |
| 347 | /* FIXME: configure the STP via VTY to set traffic-mode */ |
| 348 | |
| 349 | /* bring up the 'sender' side (single ASP in AS) */ |
| 350 | f_M3UA_asp_up_act(0, omit, omit); // TODO: rctx |
| 351 | |
| 352 | /* activate the first 'receiver' side ASP */ |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 353 | f_M3UA_asp_up_act(1, c_M3UA_TMT_broadcast, omit); // TODO: rctx |
| 354 | |
| 355 | /* verify traffic is routed from sender to [sole] receiver */ |
| 356 | for (i := 0; i < 10; i := i+1) { |
| 357 | f_test_traffic(0, rctx_sender, pc_sender, 1, rctx_receiver, pc_receiver); |
| 358 | } |
| 359 | |
| 360 | /* activate the second 'receiver' side ASP */ |
| 361 | f_M3UA_asp_up_act(2, c_M3UA_TMT_broadcast, omit, omit, omit); // TODO: rctx |
| 362 | |
| 363 | /* verify traffic is routed from sender to new receiver */ |
| 364 | for (i := 0; i < 10; i := i+1) { |
| 365 | var octetstring data := f_rnd_octstring(f_rnd_int(100)); |
| 366 | var template (value) M3UA_Protocol_Data tx_pd; |
| 367 | var template (present) M3UA_Protocol_Data rx_pd; |
| 368 | tx_pd := ts_M3UA_protocol_data(pc_sender, pc_receiver, '23'O, '00'O, '00'O, '00'O, data); |
| 369 | rx_pd := tr_M3UA_protocol_data(pc_sender, pc_receiver, '23'O, '00'O, '00'O, '00'O, data); |
| 370 | f_M3UA_send(0, ts_M3UA_DATA(rctx_sender, tx_pd), 1); |
| 371 | /* each message must be received both on 1 and 2 */ |
| 372 | f_M3UA_exp(1, tr_M3UA_DATA(rctx_receiver, rx_pd)); |
| 373 | f_M3UA_exp(2, tr_M3UA_DATA(rctx_receiver, rx_pd)); |
| 374 | } |
| 375 | setverdict(pass); |
| 376 | } |
| 377 | |
| 378 | private function f_M3UA_rkm_register(OCT4 id, OCT3 dpc, OCT4 rctx, |
| 379 | template (present) OCT4 exp_status := c_M3UA_REGSTS_SUCCESS) |
| 380 | runs on RAW_M3UA_CT |
| 381 | { |
| 382 | f_M3UA_send(0, ts_M3UA_REG_REQ({ts_M3UA_rkey(id:=id, dpc:=dpc, rctx:=rctx)})); |
| 383 | f_M3UA_exp(0, tr_M3UA_REG_RSP({tr_M3UA_reg_res(id:=id, status:=exp_status, rctx:=rctx)})); |
| 384 | } |
| 385 | |
| 386 | /* Send RKM registration; expect -EPERM as RCTX doesn't match config and dynamic not permitted */ |
| 387 | testcase TC_rkm_reg_static_notpermitted() runs on RAW_M3UA_CT { |
| 388 | f_init_m3ua(); |
| 389 | |
| 390 | f_M3UA_send(0, ts_M3UA_REG_REQ({ts_M3UA_rkey(id:='00000099'O, dpc:='aabbcc'O)})); |
| 391 | f_M3UA_exp(0, tr_M3UA_REG_RSP({tr_M3UA_reg_res(id:='00000099'O, status:=c_M3UA_REGSTS_ERR_EPERM, |
| 392 | rctx:=?)})); |
| 393 | } |
| 394 | |
| 395 | /* Send RKM registration; expect OK as RCTX does match config */ |
| 396 | testcase TC_rkm_reg_static_permitted() runs on RAW_M3UA_CT { |
| 397 | var OCT3 dpc := int2oct(23, 3); // must match config |
| 398 | var OCT4 rctx := int2oct(1023, 4); // must match config |
| 399 | |
| 400 | f_init_m3ua(); |
| 401 | |
| 402 | f_M3UA_send(0, ts_M3UA_REG_REQ({ts_M3UA_rkey(id:='10000099'O, dpc:=dpc, rctx:=rctx)})); |
| 403 | f_M3UA_exp(0, tr_M3UA_REG_RSP({tr_M3UA_reg_res(id:='10000099'O, status:=c_M3UA_REGSTS_SUCCESS, |
| 404 | rctx:=rctx)})); |
| 405 | } |
| 406 | |
| 407 | /* Send RKM registration; expect OK as dynamic not permitted */ |
| 408 | testcase TC_rkm_reg_dynamic_permitted() runs on RAW_M3UA_CT { |
| 409 | f_init_common(); |
| 410 | f_vty_config2(VTY, {"cs7 instance 0"}, "xua rkm routing-key-allocation dynamic-permitted"); |
| 411 | f_init_m3ua(); |
| 412 | |
| 413 | f_M3UA_send(0, ts_M3UA_REG_REQ({ts_M3UA_rkey(id:='20000099'O, dpc:='aabbcc'O)})); |
| 414 | f_M3UA_exp(0, tr_M3UA_REG_RSP({tr_M3UA_reg_res(id:='20000099'O, status:=c_M3UA_REGSTS_SUCCESS, |
| 415 | rctx:=?)})); |
| 416 | |
| 417 | f_vty_config2(VTY, {"cs7 instance 0"}, "xua rkm routing-key-allocation static-only"); |
| 418 | } |
| 419 | |
| 420 | /* try to de-register a routing key that was never registered -> error */ |
| 421 | testcase TC_rkm_unreg_never_registered() runs on RAW_M3UA_CT { |
| 422 | f_init_m3ua(); |
| 423 | f_M3UA_send(0, ts_M3UA_DEREG_REQ(ts_M3UA_routing_ctx(int2oct(1023,4)))); |
| 424 | f_M3UA_exp(0, tr_M3UA_DEREG_RSP({tr_M3UA_dereg_res(?,c_m3UA_DEREGSTS_ERR_NOT_REG)})); |
| 425 | } |
| 426 | |
| 427 | /* try to de-register a routing key that is invalid (non-existant) -> error */ |
| 428 | testcase TC_rkm_unreg_invalid() runs on RAW_M3UA_CT { |
| 429 | f_init_m3ua(); |
| 430 | f_M3UA_send(0, ts_M3UA_DEREG_REQ(ts_M3UA_routing_ctx(int2oct(1234,4)))); |
| 431 | f_M3UA_exp(0, tr_M3UA_DEREG_RSP({tr_M3UA_dereg_res(?,c_m3UA_DEREGSTS_ERR_INVAL_RCTX)})); |
| 432 | } |
| 433 | |
| 434 | /* try to de-register a routing key that was registered -> OK*/ |
| 435 | testcase TC_rkm_unreg_registered() runs on RAW_M3UA_CT { |
| 436 | f_init_m3ua(); |
| 437 | f_M3UA_send(0, ts_M3UA_DEREG_REQ(ts_M3UA_routing_ctx(int2oct(1023,4)))); |
| 438 | f_M3UA_exp(0, tr_M3UA_DEREG_RSP({tr_M3UA_dereg_res(?,c_m3UA_DEREGSTS_SUCCESS)})); |
| 439 | } |
| 440 | |
| 441 | /* try to de-register a routing key for an active ASP -> ERROR */ |
| 442 | testcase TC_rkm_unreg_active() runs on RAW_M3UA_CT { |
| 443 | var OCT3 dpc := int2oct(23, 3); // must match config |
| 444 | var OCT4 rctx := int2oct(1023, 4); // must match config |
| 445 | |
| 446 | f_init_m3ua(); |
| 447 | |
| 448 | /* first register the routing key */ |
| 449 | f_M3UA_rkm_register(id:='30000099'O, dpc:=dpc, rctx:=rctx); |
| 450 | |
| 451 | /* then activate the ASP */ |
| 452 | f_M3UA_asp_up_act(0); |
| 453 | |
| 454 | /* then try to de-regsiter */ |
| 455 | f_M3UA_send(0, ts_M3UA_DEREG_REQ(ts_M3UA_routing_ctx(rctx))); |
| 456 | f_M3UA_exp(0, tr_M3UA_DEREG_RSP({tr_M3UA_dereg_res(?,c_m3UA_DEREGSTS_ERR_ASP_ACTIVE)})); |
| 457 | /* FIXME: we now may have changed the state on the STP side! */ |
| 458 | } |
| 459 | |
Harald Welte | 829dac4 | 2019-11-05 16:55:30 +0100 | [diff] [blame^] | 460 | /*********************************************************************** |
| 461 | * Test the STP in M3UA ASP role (we are SG) |
| 462 | ***********************************************************************/ |
| 463 | |
| 464 | /* expect/perform an inbound ASP-UP procedure */ |
| 465 | friend function f_M3UA_CLNT_asp_up(integer idx, template OCT4 aspid := omit) runs on RAW_M3UA_CT { |
| 466 | f_M3UA_exp(idx, tr_M3UA_ASPUP(aspid)); |
| 467 | f_M3UA_send(idx, ts_M3UA_ASPUP_ACK); |
| 468 | } |
| 469 | |
| 470 | /* expect/perform an inbound ASP-ACTIVATE procedure */ |
| 471 | friend function f_M3UA_CLNT_asp_act(integer idx, template M3UA_Traffic_Mode_Type tmt := omit, |
| 472 | template (omit) OCT4 rctx := omit) runs on RAW_M3UA_CT { |
| 473 | f_M3UA_exp(idx, tr_M3UA_ASPAC(tmt, rctx)); |
| 474 | f_M3UA_send(idx, ts_M3UA_ASPAC_ACK(tmt, rctx)); |
| 475 | } |
| 476 | |
| 477 | /* expect/perform inbound ASP-UP and ASP-ACT, optionally send interemittent NOTIFY */ |
| 478 | friend function f_M3UA_CLNT_asp_up_act(integer idx, template M3UA_Traffic_Mode_Type tmt := omit, |
| 479 | template OCT4 rctx := omit, |
| 480 | template (omit) OCT2 ntfy_after_up := c_M3UA_ST_I_AS_INACTIVE, |
| 481 | template (omit) OCT2 ntfy_after_act := c_M3UA_ST_I_AS_ACTIVE) |
| 482 | runs on RAW_M3UA_CT { |
| 483 | f_M3UA_CLNT_asp_up(idx, omit); |
| 484 | if (not istemplatekind(ntfy_after_up, "omit")) { |
| 485 | f_M3UA_send(idx, ts_M3UA_NOTIFY(c_M3UA_ST_T_STATE_CHG, ntfy_after_up, rctx)); |
| 486 | } |
| 487 | f_M3UA_CLNT_asp_act(idx, tmt, rctx); |
| 488 | if (not istemplatekind(ntfy_after_act, "omit")) { |
| 489 | f_M3UA_send(idx, ts_M3UA_NOTIFY(c_M3UA_ST_T_STATE_CHG, ntfy_after_act, rctx)); |
| 490 | } |
| 491 | } |
| 492 | |
| 493 | |
| 494 | /* Expect inbound connection from ASP/SCTP-client, followed by ASP-UP */ |
| 495 | testcase TC_clnt_connect_asp_up() runs on RAW_M3UA_CT { |
| 496 | f_init_m3ua(); |
| 497 | f_init_m3ua_srv(); |
| 498 | |
| 499 | f_M3UA_CLNT_asp_up(M3UA_SRV(0)); |
| 500 | } |
| 501 | |
| 502 | /* Expect inbound connection from ASP/SCTP-client, followed by ASP-UP + ASP-ACT */ |
| 503 | testcase TC_clnt_asp_act() runs on RAW_M3UA_CT { |
| 504 | f_init_m3ua(); |
| 505 | f_init_m3ua_srv(); |
| 506 | |
| 507 | f_M3UA_CLNT_asp_up_act(M3UA_SRV(0)); |
| 508 | } |
| 509 | |
| 510 | /* Test traffic being routed through "server" side STP (M3UA SG), coming back in "client" |
| 511 | * side STP (M3UA ASP) */ |
| 512 | testcase TC_clnt_sg_to_asp() runs on RAW_M3UA_CT { |
| 513 | var OCT4 rctx_sender := int2oct(1023, 4); |
| 514 | var OCT4 pc_sender := int2oct(23, 4); |
| 515 | var OCT4 rctx_receiver := int2oct(1055, 4); |
| 516 | var OCT4 pc_receiver := int2oct(55, 4); |
| 517 | |
| 518 | f_init_m3ua(); |
| 519 | f_M3UA_asp_up_act(0); |
| 520 | |
| 521 | f_init_m3ua_srv(); |
| 522 | f_M3UA_CLNT_asp_up_act(M3UA_SRV(0)); |
| 523 | |
| 524 | f_sleep(1.0); |
| 525 | |
| 526 | /* verify traffic is routed from sender to [sole] receiver */ |
| 527 | f_test_traffic(0, rctx_sender, pc_sender, M3UA_SRV(0), rctx_receiver, pc_receiver); |
| 528 | } |
| 529 | |
| 530 | /* Test traffic being routed through "client" side STP (M3UA ASP), coming back in "server" |
| 531 | * side STP (M3UA SG) */ |
| 532 | testcase TC_clnt_asp_to_sg() runs on RAW_M3UA_CT { |
| 533 | var OCT4 rctx_sender := int2oct(1055, 4); |
| 534 | var OCT4 pc_sender := int2oct(55, 4); |
| 535 | var OCT4 rctx_receiver := int2oct(1023, 4); |
| 536 | var OCT4 pc_receiver := int2oct(23, 4); |
| 537 | |
| 538 | f_init_m3ua(); |
| 539 | f_M3UA_asp_up_act(0); |
| 540 | |
| 541 | f_init_m3ua_srv(); |
| 542 | f_M3UA_CLNT_asp_up_act(M3UA_SRV(0)); |
| 543 | |
| 544 | f_sleep(1.0); |
| 545 | |
| 546 | /* verify traffic is routed from sender to [sole] receiver */ |
| 547 | f_test_traffic(M3UA_SRV(0), rctx_sender, pc_sender, 0, rctx_receiver, pc_receiver); |
| 548 | } |
| 549 | |
| 550 | |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 551 | |
| 552 | control { |
| 553 | /* M3UA Tests */ |
| 554 | execute( TC_connect_asp_up() ); |
| 555 | execute( TC_beat() ); |
| 556 | execute( TC_beat_payload() ); |
| 557 | execute( TC_asp_act() ); |
| 558 | execute( TC_asp_act_override() ); |
| 559 | execute( TC_asp_act_loadshare() ); |
| 560 | execute( TC_asp_act_broadcast() ); |
| 561 | execute( TC_tmt_override() ); |
| 562 | execute( TC_tmt_loadshare() ); |
| 563 | execute( TC_tmt_broadcast() ); |
| 564 | |
| 565 | /* M3UA RKM tests */ |
| 566 | execute( TC_rkm_reg_static_notpermitted() ); |
| 567 | execute( TC_rkm_reg_static_permitted() ); |
| 568 | execute( TC_rkm_reg_dynamic_permitted() ); |
| 569 | execute( TC_rkm_unreg_never_registered() ); |
| 570 | execute( TC_rkm_unreg_invalid() ); |
| 571 | execute( TC_rkm_unreg_registered() ); |
| 572 | execute( TC_rkm_unreg_active() ); |
| 573 | /* TODO: test RKM with unsupported routing keys: NA, SI, OPC */ |
| 574 | /* TODO: register/unregister multiple routing contexts in one message; including mixed |
| 575 | success/failure situations */ |
Harald Welte | 829dac4 | 2019-11-05 16:55:30 +0100 | [diff] [blame^] | 576 | |
| 577 | /* Test STP as SCTP client + M3UA ASP role */ |
| 578 | execute( TC_clnt_connect_asp_up() ); |
| 579 | execute( TC_clnt_asp_act() ); |
| 580 | execute( TC_clnt_sg_to_asp() ); |
| 581 | execute( TC_clnt_asp_to_sg() ); |
Harald Welte | 0db4413 | 2019-10-17 11:09:05 +0200 | [diff] [blame] | 582 | } |
| 583 | |
| 584 | |
| 585 | |
| 586 | } |