| 1 | /*
|
|---|
| 2 | * @author STF 370
|
|---|
| 3 | * @version $Id $
|
|---|
| 4 | * @desc This module contains functions which implement the
|
|---|
| 5 | * configuration of the SUT adapter and mapping of test
|
|---|
| 6 | * components for establishing and tearing down different
|
|---|
| 7 | * test configurations.
|
|---|
| 8 | */
|
|---|
| 9 |
|
|---|
| 10 | module AtsImsIot_TestConfiguration {
|
|---|
| 11 |
|
|---|
| 12 | import from LibIms_UpperTester language "TTCN-3:2008 Amendment 1" {
|
|---|
| 13 | modulepar PX_IMS_USER_DATA;
|
|---|
| 14 | }
|
|---|
| 15 |
|
|---|
| 16 | import from LibIot_TypesAndValues {
|
|---|
| 17 | type StartTrafficCaptureRsp, StopTrafficCaptureRsp;
|
|---|
| 18 | }
|
|---|
| 19 |
|
|---|
| 20 | import from AtsImsIot_TestSystem {type CF_INT_CALL, CF_INT_AS, CF_ROAM_AS;}
|
|---|
| 21 |
|
|---|
| 22 | import from LibIot_PIXITS {
|
|---|
| 23 | modulepar PX_EUT_A, PX_EUT_B, PX_PRODUCTS, PX_MAX_MSG_WAIT;
|
|---|
| 24 | }
|
|---|
| 25 |
|
|---|
| 26 | import from LibIot_Functions language "TTCN-3:2008 Amendment 1" {
|
|---|
| 27 | altstep a_receiveIOTVerdict;
|
|---|
| 28 | function f_setConformanceVerdict, f_setE2EVerdict;
|
|---|
| 29 | }
|
|---|
| 30 |
|
|---|
| 31 | import from AtsImsIot_Templates {
|
|---|
| 32 | template
|
|---|
| 33 | m_generalConfigurationReq_offline,
|
|---|
| 34 | m_generalConfigurationReq_online,
|
|---|
| 35 | m_generalConfigurationReq_merge,
|
|---|
| 36 | m_generalConfigurationRsp_success,
|
|---|
| 37 | m_generalConfigurationRsp_error,
|
|---|
| 38 | m_generalConfigurationRsp_timeout,
|
|---|
| 39 | m_SetFilterReq,
|
|---|
| 40 | mw_SetFilterRsp,
|
|---|
| 41 | m_startTrafficCaptureReq,
|
|---|
| 42 | m_stopTrafficCaptureReq,
|
|---|
| 43 | m_startTrafficCaptureRsp_any,
|
|---|
| 44 | m_stopTrafficCaptureRsp_any;
|
|---|
| 45 | }
|
|---|
| 46 |
|
|---|
| 47 | import from LibCommon_VerdictControl {type FncRetCode;}
|
|---|
| 48 |
|
|---|
| 49 | import from LibIot_TypesAndValues {
|
|---|
| 50 | type
|
|---|
| 51 | InterfaceInfo,
|
|---|
| 52 | InterfaceInfoList,
|
|---|
| 53 | Product,
|
|---|
| 54 | ProtocolFilter,
|
|---|
| 55 | StartTrafficCaptureRsp,
|
|---|
| 56 | StopTrafficCaptureRsp,
|
|---|
| 57 | SetFilterReq,
|
|---|
| 58 | SetFilterRsp,
|
|---|
| 59 | Status;
|
|---|
| 60 | }
|
|---|
| 61 |
|
|---|
| 62 | import from LibIot_TestConfiguration {
|
|---|
| 63 | function f_cf_oracle_up, f_cf_oracle_down;
|
|---|
| 64 | }
|
|---|
| 65 |
|
|---|
| 66 | import from AtsImsIot_TestSystem {
|
|---|
| 67 | type ImsInterfaceMonitor, ImsTestCoordinator;
|
|---|
| 68 | }
|
|---|
| 69 |
|
|---|
| 70 | import from LibIot_TestInterface {type IotEquipmentUser;}
|
|---|
| 71 |
|
|---|
| 72 | import from AtsImsIot_Functions {function f_setInterfaceNameOnComponent;}
|
|---|
| 73 |
|
|---|
| 74 |
|
|---|
| 75 | group constantDefinitions {
|
|---|
| 76 | //* interface monitor name Gm A
|
|---|
| 77 | const charstring c_gm_A := "Gm A";
|
|---|
| 78 | //* interface monitor name Gm B
|
|---|
| 79 | const charstring c_gm_B := "Gm B";
|
|---|
| 80 | //* interface monitor name Mx A
|
|---|
| 81 | const charstring c_mx_A := "Mx A";
|
|---|
| 82 | //* interface monitor name Mx B
|
|---|
| 83 | const charstring c_mx_B := "Mx B";
|
|---|
| 84 | //* interface monitor name Ic
|
|---|
| 85 | const charstring c_ic := "Ic";
|
|---|
| 86 | //* interface monitor name Isc A
|
|---|
| 87 | const charstring c_isc_A := "Isc A";
|
|---|
| 88 | //* interface monitor name Isc B
|
|---|
| 89 | const charstring c_isc_B := "Isc B";
|
|---|
| 90 | //* eut trigger name User A
|
|---|
| 91 | const charstring c_trigger_A := "User A";
|
|---|
| 92 | //* eut trigger name User B
|
|---|
| 93 | const charstring c_trigger_B := "User B";
|
|---|
| 94 | //* eut trigger name User A
|
|---|
| 95 | const charstring c_userUE_A := "User A";
|
|---|
| 96 | const charstring c_userUE_A2 := "User A2";
|
|---|
| 97 | //* eut trigger name User B
|
|---|
| 98 | const charstring c_userUE_B := "User B";
|
|---|
| 99 | const charstring c_userUE_B2 := "User B2";
|
|---|
| 100 | }
|
|---|
| 101 |
|
|---|
| 102 | group mappingFunctions {
|
|---|
| 103 |
|
|---|
| 104 | /**
|
|---|
| 105 | *
|
|---|
| 106 | * @desc initialize the adapter port of MTC
|
|---|
| 107 | */
|
|---|
| 108 | function f_cf_adapter_up() runs on ImsTestCoordinator {
|
|---|
| 109 | map(self:acPort, system:acPort);
|
|---|
| 110 | }
|
|---|
| 111 |
|
|---|
| 112 | /**
|
|---|
| 113 | *
|
|---|
| 114 | * @desc uninitialize the adapter port of MTC
|
|---|
| 115 | */
|
|---|
| 116 | function f_cf_adapter_down() runs on ImsTestCoordinator {
|
|---|
| 117 | unmap(self:acPort, system:acPort);
|
|---|
| 118 | }
|
|---|
| 119 |
|
|---|
| 120 | /**
|
|---|
| 121 | *
|
|---|
| 122 | * @desc initialize trigger component ports
|
|---|
| 123 | * @param p_driver trigger component
|
|---|
| 124 | */
|
|---|
| 125 | function f_cf_user_up(in IotEquipmentUser p_driver) runs on ImsTestCoordinator {
|
|---|
| 126 | // connect sync ports
|
|---|
| 127 | connect(p_driver:syncPort, self:syncPort);
|
|---|
| 128 | // connect TSI ports
|
|---|
| 129 | map(p_driver:eaPort, system:eaPort);
|
|---|
| 130 | // configure oracle
|
|---|
| 131 | f_cf_oracle_up(p_driver);
|
|---|
| 132 | }
|
|---|
| 133 |
|
|---|
| 134 | /**
|
|---|
| 135 | *
|
|---|
| 136 | * @desc uninitialize trigger component ports
|
|---|
| 137 | * @param p_driver trigger component
|
|---|
| 138 | */
|
|---|
| 139 | function f_cf_user_down(in IotEquipmentUser p_driver) runs on ImsTestCoordinator {
|
|---|
| 140 | // disconnect sync ports
|
|---|
| 141 | disconnect(p_driver:syncPort, self:syncPort);
|
|---|
| 142 | // disconnect TSI ports
|
|---|
| 143 | unmap(p_driver:eaPort, system:eaPort);
|
|---|
| 144 | // release oracle ports
|
|---|
| 145 | f_cf_oracle_down(p_driver);
|
|---|
| 146 | }
|
|---|
| 147 |
|
|---|
| 148 | /**
|
|---|
| 149 | * @desc configures monitor component: connects to the synchronnization
|
|---|
| 150 | * port, maps to the TSI port and connects to the oracle
|
|---|
| 151 | * @param p_monitor monitor component
|
|---|
| 152 | */
|
|---|
| 153 | function f_cf_monitor_up(in ImsInterfaceMonitor p_monitor) runs on ImsTestCoordinator {
|
|---|
| 154 | // connect sync ports
|
|---|
| 155 | connect(p_monitor:syncPort, self:syncPort);
|
|---|
| 156 | connect(p_monitor:icpPort, self:icpPort);
|
|---|
| 157 | // mapp TSI port
|
|---|
| 158 | map(p_monitor:dPort, system:dPort);
|
|---|
| 159 | map(p_monitor:acPort, system:acPort);
|
|---|
| 160 | // configure oracle
|
|---|
| 161 | f_cf_oracle_up(p_monitor);
|
|---|
| 162 | }
|
|---|
| 163 |
|
|---|
| 164 | /**
|
|---|
| 165 | * @desc frees monitor component: disconnects the synchronnization
|
|---|
| 166 | * port, unmaps from the TSI port and disconnects from the oracle
|
|---|
| 167 | * @param p_monitor monitor component
|
|---|
| 168 | */
|
|---|
| 169 | function f_cf_monitor_down(in ImsInterfaceMonitor p_monitor) runs on ImsTestCoordinator {
|
|---|
| 170 | // connect sync ports
|
|---|
| 171 | disconnect(p_monitor:syncPort, self:syncPort);
|
|---|
| 172 | disconnect(p_monitor:icpPort, self:icpPort);
|
|---|
| 173 | // mapp TSI port
|
|---|
| 174 | unmap(p_monitor:dPort, system:dPort);
|
|---|
| 175 | unmap(p_monitor:acPort, system:acPort);
|
|---|
| 176 | // configure oracle
|
|---|
| 177 | f_cf_oracle_down(p_monitor);
|
|---|
| 178 | }
|
|---|
| 179 |
|
|---|
| 180 | }
|
|---|
| 181 |
|
|---|
| 182 | group adapterConfiguration {
|
|---|
| 183 |
|
|---|
| 184 | function f_cf_setFilter(in SetFilterReq p_req) runs on ImsInterfaceMonitor {
|
|---|
| 185 | var SetFilterRsp v_rsp;
|
|---|
| 186 | var template Status v_status := {
|
|---|
| 187 | code := e_success,
|
|---|
| 188 | reason := *
|
|---|
| 189 | }
|
|---|
| 190 |
|
|---|
| 191 | tc_wait.start;
|
|---|
| 192 | acPort.send(p_req);
|
|---|
| 193 | alt {
|
|---|
| 194 | [] acPort.receive (mw_SetFilterRsp(v_status)) -> value v_rsp {
|
|---|
| 195 | tc_wait.stop;
|
|---|
| 196 | f_setE2EVerdict(pass, "Adapter Configuration: setting monitor filter successful");
|
|---|
| 197 | f_setConformanceVerdict(pass, "Adapter Configuration: setting monitor filter successful");
|
|---|
| 198 | }
|
|---|
| 199 | [] acPort.receive (mw_SetFilterRsp(?)) -> value v_rsp {
|
|---|
| 200 | tc_wait.stop;
|
|---|
| 201 | f_setE2EVerdict(inconc, "Adapter Configuration: error while setting monitor filter");
|
|---|
| 202 | f_setConformanceVerdict(inconc, "Adapter Configuration: error while setting monitor filter");
|
|---|
| 203 | }
|
|---|
| 204 | [] tc_wait.timeout {
|
|---|
| 205 | f_setE2EVerdict(inconc, "Adapter Configuration: timer expires while waiting for response");
|
|---|
| 206 | f_setConformanceVerdict(inconc, "Adapter Configuration: timer expires while waiting for response");
|
|---|
| 207 | }
|
|---|
| 208 | }
|
|---|
| 209 | }
|
|---|
| 210 |
|
|---|
| 211 |
|
|---|
| 212 | }
|
|---|
| 213 |
|
|---|
| 214 | group componentCreation {
|
|---|
| 215 |
|
|---|
| 216 | /**
|
|---|
| 217 | * @desc creates a monitor component
|
|---|
| 218 | * @param p_name name of the monitor component
|
|---|
| 219 | * @return the created monitor component
|
|---|
| 220 | */
|
|---|
| 221 | function f_cf_create_monitor(in charstring p_name) runs on ImsTestCoordinator return ImsInterfaceMonitor {
|
|---|
| 222 | var ImsInterfaceMonitor v_monitor := ImsInterfaceMonitor.create(p_name) alive;
|
|---|
| 223 | v_monitor.start(f_setInterfaceNameOnComponent(p_name));
|
|---|
| 224 | v_monitor.done;
|
|---|
| 225 | return v_monitor;
|
|---|
| 226 | }
|
|---|
| 227 | }
|
|---|
| 228 |
|
|---|
| 229 |
|
|---|
| 230 | group testConfiguration {
|
|---|
| 231 |
|
|---|
| 232 | /**
|
|---|
| 233 | * @desc
|
|---|
| 234 | * Test configuration function for roaming registration szenario.
|
|---|
| 235 | * More information can be found in ETSI TS 186 011-2 V2.3.1 Cause
|
|---|
| 236 | * 4.3.4.
|
|---|
| 237 | * @param p_Gm Gm interface monitor component
|
|---|
| 238 | * @param p_ic Mw interface monitor component
|
|---|
| 239 | */
|
|---|
| 240 | function f_cf_roam_reg_up(
|
|---|
| 241 | inout ImsInterfaceMonitor p_Gm,
|
|---|
| 242 | inout ImsInterfaceMonitor p_ic
|
|---|
| 243 | ) runs on ImsTestCoordinator {
|
|---|
| 244 | // Initialize the Adapter (including the TrafficCapture process).
|
|---|
| 245 | timer tc_configureGuard;
|
|---|
| 246 | var StartTrafficCaptureRsp startResult;
|
|---|
| 247 | activate(a_receiveIOTVerdict());
|
|---|
| 248 |
|
|---|
| 249 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 250 | acPort.send(m_generalConfigurationReq_offline);
|
|---|
| 251 | alt {
|
|---|
| 252 | [] acPort.receive (m_generalConfigurationRsp_success) {
|
|---|
| 253 | log("General configuration succeed.");
|
|---|
| 254 | tc_configureGuard.stop;
|
|---|
| 255 | }
|
|---|
| 256 | [] acPort.receive (m_generalConfigurationRsp_timeout) {
|
|---|
| 257 | setverdict(fail);
|
|---|
| 258 | tc_configureGuard.stop;
|
|---|
| 259 | stop;
|
|---|
| 260 | }
|
|---|
| 261 | [] acPort.receive (m_generalConfigurationRsp_error) {
|
|---|
| 262 | setverdict(fail);
|
|---|
| 263 | tc_configureGuard.stop;
|
|---|
| 264 | stop;
|
|---|
| 265 | }
|
|---|
| 266 | [] acPort.receive {
|
|---|
| 267 | log("Unknown response.");
|
|---|
| 268 | tc_configureGuard.stop;
|
|---|
| 269 | setverdict (inconc);
|
|---|
| 270 | stop;
|
|---|
| 271 | }
|
|---|
| 272 | [] tc_configureGuard.timeout {
|
|---|
| 273 | log("Timeout.");
|
|---|
| 274 | setverdict (inconc);
|
|---|
| 275 | stop;
|
|---|
| 276 | }
|
|---|
| 277 | }
|
|---|
| 278 |
|
|---|
| 279 | f_cf_monitor_up(p_Gm);
|
|---|
| 280 | f_cf_monitor_up(p_ic);
|
|---|
| 281 |
|
|---|
| 282 | // TODO UE IP address and port is missing
|
|---|
| 283 | p_Gm.start(f_cf_setFilter(
|
|---|
| 284 | valueof (m_SetFilterReq(
|
|---|
| 285 | e_sip,
|
|---|
| 286 | f_getInterfaceInfoList("Gm", PX_EUT_A, PX_EUT_B)
|
|---|
| 287 | )
|
|---|
| 288 | )));
|
|---|
| 289 | p_Gm.done;
|
|---|
| 290 |
|
|---|
| 291 | p_ic.start(f_cf_setFilter(
|
|---|
| 292 | valueof(m_SetFilterReq(
|
|---|
| 293 | e_sip,
|
|---|
| 294 | f_getInterfaceInfoList("Ic", PX_EUT_A, PX_EUT_B)
|
|---|
| 295 | )
|
|---|
| 296 | )));
|
|---|
| 297 | p_ic.done;
|
|---|
| 298 |
|
|---|
| 299 | // Start traffic capture processing.
|
|---|
| 300 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 301 | acPort.send(m_startTrafficCaptureReq);
|
|---|
| 302 | alt {
|
|---|
| 303 | [] acPort.receive (m_startTrafficCaptureRsp_any) -> value startResult {
|
|---|
| 304 | tc_configureGuard.stop;
|
|---|
| 305 | if (startResult.status.code != e_success)
|
|---|
| 306 | {
|
|---|
| 307 | log("**** StartTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 308 | setverdict(fail);
|
|---|
| 309 | stop;
|
|---|
| 310 | }
|
|---|
| 311 | }
|
|---|
| 312 | [] tc_configureGuard.timeout {
|
|---|
| 313 | log("**** StartTrafficCaptureReq not answered. ****");
|
|---|
| 314 | setverdict (inconc);
|
|---|
| 315 | stop;
|
|---|
| 316 | }
|
|---|
| 317 | }
|
|---|
| 318 | }
|
|---|
| 319 |
|
|---|
| 320 | /**
|
|---|
| 321 | * @desc
|
|---|
| 322 | * Test configuration function for roaming registration szenario.
|
|---|
| 323 | * More information can be found in ETSI TS 186 011-2 V2.3.1 Cause
|
|---|
| 324 | * 4.3.4.
|
|---|
| 325 | * @param p_Gm Gm interface monitor component
|
|---|
| 326 | * @param p_ic Mw interface monitor component
|
|---|
| 327 | */
|
|---|
| 328 | function f_cf_roam_reg_down(
|
|---|
| 329 | inout ImsInterfaceMonitor p_Gm,
|
|---|
| 330 | inout ImsInterfaceMonitor p_ic
|
|---|
| 331 | ) runs on ImsTestCoordinator {
|
|---|
| 332 | // Stop traffic capture processing.
|
|---|
| 333 | timer tc_configureGuard;
|
|---|
| 334 | var StopTrafficCaptureRsp stopResult;
|
|---|
| 335 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 336 | acPort.send(m_stopTrafficCaptureReq);
|
|---|
| 337 | alt {
|
|---|
| 338 | [] acPort.receive (m_stopTrafficCaptureRsp_any) -> value stopResult {
|
|---|
| 339 | tc_configureGuard.stop;
|
|---|
| 340 | if (stopResult.status.code != e_success)
|
|---|
| 341 | {
|
|---|
| 342 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 343 | setverdict(fail);
|
|---|
| 344 | }
|
|---|
| 345 | }
|
|---|
| 346 | [] tc_configureGuard.timeout {
|
|---|
| 347 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq not answered. ****");
|
|---|
| 348 | setverdict (inconc);
|
|---|
| 349 | }
|
|---|
| 350 | }
|
|---|
| 351 | f_cf_monitor_down(p_Gm);
|
|---|
| 352 | f_cf_monitor_down(p_ic);
|
|---|
| 353 | }
|
|---|
| 354 |
|
|---|
| 355 | /**
|
|---|
| 356 | * @desc
|
|---|
| 357 | * Interworking Call test configuration. Mapps/connects all related
|
|---|
| 358 | * ports and initialize the test adapter.
|
|---|
| 359 | * More information can be found in ETSI TS 186 011-2 V2.3.1 Cause
|
|---|
| 360 | * 4.3.4.
|
|---|
| 361 | * @param p_GmA Gm A Interface Monitor component
|
|---|
| 362 | * @param p_ic Mw Interface Monitor component
|
|---|
| 363 | * @param p_GmB
|
|---|
| 364 | * Gm B Interface Monitor component (optional, can be omitted)
|
|---|
| 365 | */
|
|---|
| 366 | function f_cf_int_call_up(
|
|---|
| 367 | inout CF_INT_CALL p_config
|
|---|
| 368 | ) runs on ImsTestCoordinator {
|
|---|
| 369 | // Initialize the Adapter (including the TrafficCapture process).
|
|---|
| 370 | timer tc_configureGuard;
|
|---|
| 371 | var StartTrafficCaptureRsp startResult;
|
|---|
| 372 |
|
|---|
| 373 | activate(a_receiveIOTVerdict());
|
|---|
| 374 |
|
|---|
| 375 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 376 | acPort.send(m_generalConfigurationReq_offline);
|
|---|
| 377 | alt {
|
|---|
| 378 | [] acPort.receive (m_generalConfigurationRsp_success) {
|
|---|
| 379 | log("General configuration succeed.");
|
|---|
| 380 | tc_configureGuard.stop;
|
|---|
| 381 | }
|
|---|
| 382 | [] acPort.receive (m_generalConfigurationRsp_timeout) {
|
|---|
| 383 | setverdict(fail);
|
|---|
| 384 | tc_configureGuard.stop;
|
|---|
| 385 | stop;
|
|---|
| 386 | }
|
|---|
| 387 | [] acPort.receive (m_generalConfigurationRsp_error) {
|
|---|
| 388 | setverdict(fail);
|
|---|
| 389 | tc_configureGuard.stop;
|
|---|
| 390 | stop;
|
|---|
| 391 | }
|
|---|
| 392 | [] acPort.receive {
|
|---|
| 393 | log("Unknown response.");
|
|---|
| 394 | tc_configureGuard.stop;
|
|---|
| 395 | setverdict (inconc);
|
|---|
| 396 | stop;
|
|---|
| 397 | }
|
|---|
| 398 | [] tc_configureGuard.timeout {
|
|---|
| 399 | log("Timeout.");
|
|---|
| 400 | setverdict (inconc);
|
|---|
| 401 | stop;
|
|---|
| 402 | }
|
|---|
| 403 | }
|
|---|
| 404 |
|
|---|
| 405 | f_cf_monitor_up(p_config.gmA);
|
|---|
| 406 | f_cf_monitor_up(p_config.mw);
|
|---|
| 407 | if(isvalue(p_config.gmB)) {
|
|---|
| 408 | f_cf_monitor_up(p_config.gmB);
|
|---|
| 409 | }
|
|---|
| 410 |
|
|---|
| 411 | // TODO UE IP address and port is missing
|
|---|
| 412 | p_config.gmA.start(f_cf_setFilter(
|
|---|
| 413 | valueof (m_SetFilterReq(
|
|---|
| 414 | e_sip,
|
|---|
| 415 | {f_getInterfaceInfo("Gm", PX_PRODUCTS[PX_EUT_A])}
|
|---|
| 416 | )
|
|---|
| 417 | )));
|
|---|
| 418 | p_config.gmA.done;
|
|---|
| 419 |
|
|---|
| 420 | p_config.mw.start(f_cf_setFilter(
|
|---|
| 421 | valueof(m_SetFilterReq(
|
|---|
| 422 | e_sip,
|
|---|
| 423 | f_getInterfaceInfoList("Ic", PX_EUT_A, PX_EUT_B)
|
|---|
| 424 | )
|
|---|
| 425 | )));
|
|---|
| 426 | p_config.mw.done;
|
|---|
| 427 |
|
|---|
| 428 | if(isvalue(p_config.gmB)) {
|
|---|
| 429 | p_config.gmB.start(f_cf_setFilter(
|
|---|
| 430 | valueof (m_SetFilterReq(
|
|---|
| 431 | e_sip,
|
|---|
| 432 | {f_getInterfaceInfo("Gm", PX_PRODUCTS[PX_EUT_B])}
|
|---|
| 433 | )
|
|---|
| 434 | )));
|
|---|
| 435 | p_config.gmB.done;
|
|---|
| 436 | }
|
|---|
| 437 | // Start traffic capture processing.
|
|---|
| 438 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 439 | acPort.send(m_startTrafficCaptureReq);
|
|---|
| 440 | alt {
|
|---|
| 441 | [] acPort.receive (m_startTrafficCaptureRsp_any) -> value startResult {
|
|---|
| 442 | tc_configureGuard.stop;
|
|---|
| 443 | if (startResult.status.code != e_success)
|
|---|
| 444 | {
|
|---|
| 445 | log("**** StartTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 446 | setverdict(fail);
|
|---|
| 447 | stop;
|
|---|
| 448 | }
|
|---|
| 449 | }
|
|---|
| 450 | [] tc_configureGuard.timeout {
|
|---|
| 451 | log("**** StartTrafficCaptureReq not answered. ****");
|
|---|
| 452 | setverdict (inconc);
|
|---|
| 453 | stop;
|
|---|
| 454 | }
|
|---|
| 455 | }
|
|---|
| 456 | }
|
|---|
| 457 |
|
|---|
| 458 | /**
|
|---|
| 459 | * @desc
|
|---|
| 460 | * Interworking Call test configuration. Ummaps/disconnect the
|
|---|
| 461 | * related component ports. More information can be found in ETSI TS
|
|---|
| 462 | * 186 011-2 V2.3.1 Cause 4.3.4.
|
|---|
| 463 | * @param p_GmA Gm A Interface Monitor component
|
|---|
| 464 | * @param p_ic Mw Interface Monitor component
|
|---|
| 465 | * @param p_GmB
|
|---|
| 466 | * Gm B Interface Monitor component (optional, can be omitted)
|
|---|
| 467 | */
|
|---|
| 468 | function f_cf_int_call_down(
|
|---|
| 469 | inout CF_INT_CALL p_config
|
|---|
| 470 | ) runs on ImsTestCoordinator {
|
|---|
| 471 | // Stop traffic capture processing.
|
|---|
| 472 | timer tc_configureGuard;
|
|---|
| 473 | var StopTrafficCaptureRsp stopResult;
|
|---|
| 474 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 475 | acPort.send(m_stopTrafficCaptureReq);
|
|---|
| 476 | alt {
|
|---|
| 477 | [] acPort.receive (m_stopTrafficCaptureRsp_any) -> value stopResult {
|
|---|
| 478 | tc_configureGuard.stop;
|
|---|
| 479 | if (stopResult.status.code != e_success)
|
|---|
| 480 | {
|
|---|
| 481 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 482 | setverdict(fail);
|
|---|
| 483 | }
|
|---|
| 484 | }
|
|---|
| 485 | [] tc_configureGuard.timeout {
|
|---|
| 486 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq not answered. ****");
|
|---|
| 487 | //setverdict (inconc);
|
|---|
| 488 | }
|
|---|
| 489 | }
|
|---|
| 490 | f_cf_monitor_down(p_config.gmA);
|
|---|
| 491 | f_cf_monitor_down(p_config.mw);
|
|---|
| 492 | if(isvalue(p_config.gmB)) {
|
|---|
| 493 | f_cf_monitor_down(p_config.gmB);
|
|---|
| 494 | }
|
|---|
| 495 | }
|
|---|
| 496 |
|
|---|
| 497 | /**
|
|---|
| 498 | * @desc
|
|---|
| 499 | * Roaming Call test configuration. Mapps/connects all related
|
|---|
| 500 | * ports and initialize the test adapter.
|
|---|
| 501 | * More information can be found in ETSI TS 186 011-2 V2.3.1 Cause
|
|---|
| 502 | * 4.3.4.
|
|---|
| 503 | * @param p_Gm Gm A Interface Monitor component
|
|---|
| 504 | * @param p_ic Mw Interface Monitor component
|
|---|
| 505 | */
|
|---|
| 506 | function f_cf_roam_call_up(
|
|---|
| 507 | inout ImsInterfaceMonitor p_Gm,
|
|---|
| 508 | inout ImsInterfaceMonitor p_ic
|
|---|
| 509 | ) runs on ImsTestCoordinator {
|
|---|
| 510 | // Initialize the Adapter (including the TrafficCapture process).
|
|---|
| 511 | timer tc_configureGuard;
|
|---|
| 512 | var StartTrafficCaptureRsp startResult;
|
|---|
| 513 | activate(a_receiveIOTVerdict());
|
|---|
| 514 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 515 | acPort.send(m_generalConfigurationReq_offline);
|
|---|
| 516 | alt {
|
|---|
| 517 | [] acPort.receive (m_generalConfigurationRsp_success) {
|
|---|
| 518 | log("General configuration succeed.");
|
|---|
| 519 | tc_configureGuard.stop;
|
|---|
| 520 | }
|
|---|
| 521 | [] acPort.receive (m_generalConfigurationRsp_timeout) {
|
|---|
| 522 | setverdict(fail);
|
|---|
| 523 | tc_configureGuard.stop;
|
|---|
| 524 | stop;
|
|---|
| 525 | }
|
|---|
| 526 | [] acPort.receive (m_generalConfigurationRsp_error) {
|
|---|
| 527 | setverdict(fail);
|
|---|
| 528 | tc_configureGuard.stop;
|
|---|
| 529 | stop;
|
|---|
| 530 | }
|
|---|
| 531 | [] acPort.receive {
|
|---|
| 532 | log("Unknown response.");
|
|---|
| 533 | tc_configureGuard.stop;
|
|---|
| 534 | setverdict (inconc);
|
|---|
| 535 | stop;
|
|---|
| 536 | }
|
|---|
| 537 | [] tc_configureGuard.timeout {
|
|---|
| 538 | log("Timeout.");
|
|---|
| 539 | setverdict (inconc);
|
|---|
| 540 | stop;
|
|---|
| 541 | }
|
|---|
| 542 | }
|
|---|
| 543 |
|
|---|
| 544 | f_cf_monitor_up(p_Gm);
|
|---|
| 545 | f_cf_monitor_up(p_ic);
|
|---|
| 546 |
|
|---|
| 547 | // TODO UE IP address and port is missing
|
|---|
| 548 | // TODO UE IP address and port is missing
|
|---|
| 549 | p_Gm.start(f_cf_setFilter(
|
|---|
| 550 | valueof (m_SetFilterReq(
|
|---|
| 551 | e_sip,
|
|---|
| 552 | f_getInterfaceInfoList("Gm", PX_EUT_A, PX_EUT_B)
|
|---|
| 553 | )
|
|---|
| 554 | )));
|
|---|
| 555 | p_Gm.done;
|
|---|
| 556 |
|
|---|
| 557 | p_ic.start(f_cf_setFilter(
|
|---|
| 558 | valueof(m_SetFilterReq(
|
|---|
| 559 | e_sip,
|
|---|
| 560 | f_getInterfaceInfoList("Ic", PX_EUT_A, PX_EUT_B)
|
|---|
| 561 | )
|
|---|
| 562 | )));
|
|---|
| 563 | p_ic.done;
|
|---|
| 564 |
|
|---|
| 565 | // Start traffic capture processing.
|
|---|
| 566 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 567 | acPort.send(m_startTrafficCaptureReq);
|
|---|
| 568 | alt {
|
|---|
| 569 | [] acPort.receive (m_startTrafficCaptureRsp_any) -> value startResult {
|
|---|
| 570 | tc_configureGuard.stop;
|
|---|
| 571 | if (startResult.status.code != e_success)
|
|---|
| 572 | {
|
|---|
| 573 | log("**** StartTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 574 | setverdict(fail);
|
|---|
| 575 | stop;
|
|---|
| 576 | }
|
|---|
| 577 | }
|
|---|
| 578 | [] tc_configureGuard.timeout {
|
|---|
| 579 | log("**** StartTrafficCaptureReq not answered. ****");
|
|---|
| 580 | setverdict (inconc);
|
|---|
| 581 | stop;
|
|---|
| 582 | }
|
|---|
| 583 | }
|
|---|
| 584 | }
|
|---|
| 585 |
|
|---|
| 586 | /**
|
|---|
| 587 | * @desc
|
|---|
| 588 | * Roaming Call test configuration. Ummaps/disconnect the
|
|---|
| 589 | * related component ports. More information can be found in ETSI TS
|
|---|
| 590 | * 186 011-2 V2.3.1 Cause 4.3.4.
|
|---|
| 591 | * @param p_GmA Gm A Interface Monitor component
|
|---|
| 592 | * @param p_ic Mw Interface Monitor component
|
|---|
| 593 | */
|
|---|
| 594 | function f_cf_roam_call_down(
|
|---|
| 595 | inout ImsInterfaceMonitor p_GmA,
|
|---|
| 596 | inout ImsInterfaceMonitor p_ic
|
|---|
| 597 | ) runs on ImsTestCoordinator {
|
|---|
| 598 | // Stop traffic capture processing.
|
|---|
| 599 | timer tc_configureGuard;
|
|---|
| 600 | var StopTrafficCaptureRsp stopResult;
|
|---|
| 601 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 602 | acPort.send(m_stopTrafficCaptureReq);
|
|---|
| 603 | alt {
|
|---|
| 604 | [] acPort.receive (m_stopTrafficCaptureRsp_any) -> value stopResult {
|
|---|
| 605 | tc_configureGuard.stop;
|
|---|
| 606 | if (stopResult.status.code != e_success)
|
|---|
| 607 | {
|
|---|
| 608 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 609 | setverdict(fail);
|
|---|
| 610 | }
|
|---|
| 611 | }
|
|---|
| 612 | [] tc_configureGuard.timeout {
|
|---|
| 613 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq not answered. ****");
|
|---|
| 614 | setverdict (inconc);
|
|---|
| 615 | }
|
|---|
| 616 | }
|
|---|
| 617 | f_cf_monitor_down(p_GmA);
|
|---|
| 618 | f_cf_monitor_down(p_ic);
|
|---|
| 619 | }
|
|---|
| 620 |
|
|---|
| 621 |
|
|---|
| 622 | /**
|
|---|
| 623 | * @desc
|
|---|
| 624 | * Roaming Call test configuration. Mapps/connects all related
|
|---|
| 625 | * ports and initialize the test adapter.
|
|---|
| 626 | * More information can be found in ETSI TS 186 011-2 V2.3.1 Cause
|
|---|
| 627 | * 4.3.4.
|
|---|
| 628 | * @param p_config.gmA Gm A Interface Monitor component
|
|---|
| 629 | * @param p_config.mw Mw Interface Monitor component
|
|---|
| 630 | * @param p_config.gmB Gm B Interface Monitor component
|
|---|
| 631 | * @param p_config.iscA Isc A Interface Monitor component
|
|---|
| 632 | * @param p_config.iscB Isc B Interface Monitor component
|
|---|
| 633 | * IscA and IscB Interface Monitor component (optional, can be omitted)
|
|---|
| 634 | */
|
|---|
| 635 | function f_cf_int_as_up(
|
|---|
| 636 | inout CF_INT_AS p_config
|
|---|
| 637 | ) runs on ImsTestCoordinator {
|
|---|
| 638 | // Initialize the Adapter (including the TrafficCapture process).
|
|---|
| 639 | timer tc_configureGuard;
|
|---|
| 640 | var StartTrafficCaptureRsp startResult;
|
|---|
| 641 | activate(a_receiveIOTVerdict());
|
|---|
| 642 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 643 | acPort.send(m_generalConfigurationReq_offline);
|
|---|
| 644 | alt {
|
|---|
| 645 | [] acPort.receive (m_generalConfigurationRsp_success) {
|
|---|
| 646 | log("General configuration succeed.");
|
|---|
| 647 | tc_configureGuard.stop;
|
|---|
| 648 | }
|
|---|
| 649 | [] acPort.receive (m_generalConfigurationRsp_timeout) {
|
|---|
| 650 | setverdict(fail);
|
|---|
| 651 | tc_configureGuard.stop;
|
|---|
| 652 | stop;
|
|---|
| 653 | }
|
|---|
| 654 | [] acPort.receive (m_generalConfigurationRsp_error) {
|
|---|
| 655 | setverdict(fail);
|
|---|
| 656 | tc_configureGuard.stop;
|
|---|
| 657 | stop;
|
|---|
| 658 | }
|
|---|
| 659 | [] acPort.receive {
|
|---|
| 660 | log("Unknown response.");
|
|---|
| 661 | tc_configureGuard.stop;
|
|---|
| 662 | setverdict (inconc);
|
|---|
| 663 | stop;
|
|---|
| 664 | }
|
|---|
| 665 | [] tc_configureGuard.timeout {
|
|---|
| 666 | log("Timeout.");
|
|---|
| 667 | setverdict (inconc);
|
|---|
| 668 | stop;
|
|---|
| 669 | }
|
|---|
| 670 | }
|
|---|
| 671 |
|
|---|
| 672 | f_cf_monitor_up(p_config.gmA);
|
|---|
| 673 | f_cf_monitor_up(p_config.mw);
|
|---|
| 674 | f_cf_monitor_up(p_config.gmB);
|
|---|
| 675 | if(isvalue(p_config.iscA)) {
|
|---|
| 676 | f_cf_monitor_up(p_config.iscA);
|
|---|
| 677 | }
|
|---|
| 678 | if(isvalue(p_config.iscB)) {
|
|---|
| 679 | f_cf_monitor_up(p_config.iscB);
|
|---|
| 680 | }
|
|---|
| 681 |
|
|---|
| 682 | // TODO UE IP address and port is missing
|
|---|
| 683 | p_config.gmA.start(f_cf_setFilter(
|
|---|
| 684 | valueof (m_SetFilterReq(
|
|---|
| 685 | e_sip,
|
|---|
| 686 | {f_getInterfaceInfo("Gm", PX_PRODUCTS[PX_EUT_A])}
|
|---|
| 687 | )
|
|---|
| 688 | )));
|
|---|
| 689 | p_config.gmA.done;
|
|---|
| 690 |
|
|---|
| 691 | p_config.mw.start(f_cf_setFilter(
|
|---|
| 692 | valueof(m_SetFilterReq(
|
|---|
| 693 | e_sip,
|
|---|
| 694 | f_getInterfaceInfoList("Ic", PX_EUT_A, PX_EUT_B)
|
|---|
| 695 | )
|
|---|
| 696 | )));
|
|---|
| 697 | p_config.mw.done;
|
|---|
| 698 |
|
|---|
| 699 | p_config.gmB.start(f_cf_setFilter(
|
|---|
| 700 | valueof (m_SetFilterReq(
|
|---|
| 701 | e_sip,
|
|---|
| 702 | {f_getInterfaceInfo("Gm", PX_PRODUCTS[PX_EUT_B])}
|
|---|
| 703 | )
|
|---|
| 704 | )));
|
|---|
| 705 | p_config.gmB.done;
|
|---|
| 706 |
|
|---|
| 707 | if(isvalue(p_config.iscA)) {
|
|---|
| 708 | p_config.iscA.start(f_cf_setFilter(
|
|---|
| 709 | valueof (m_SetFilterReq(
|
|---|
| 710 | e_sip,
|
|---|
| 711 | {f_getInterfaceInfo("Isc", PX_PRODUCTS[PX_EUT_A])}
|
|---|
| 712 | )
|
|---|
| 713 | )));
|
|---|
| 714 | p_config.iscA.done;
|
|---|
| 715 | }
|
|---|
| 716 |
|
|---|
| 717 | if(isvalue(p_config.iscB)) {
|
|---|
| 718 | p_config.iscB.start(f_cf_setFilter(
|
|---|
| 719 | valueof (m_SetFilterReq(
|
|---|
| 720 | e_sip,
|
|---|
| 721 | {f_getInterfaceInfo("Isc", PX_PRODUCTS[PX_EUT_B])}
|
|---|
| 722 | )
|
|---|
| 723 | )));
|
|---|
| 724 | p_config.iscB.done;
|
|---|
| 725 | }
|
|---|
| 726 |
|
|---|
| 727 | // Start traffic capture processing.
|
|---|
| 728 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 729 | acPort.send(m_startTrafficCaptureReq);
|
|---|
| 730 | alt {
|
|---|
| 731 | [] acPort.receive (m_startTrafficCaptureRsp_any) -> value startResult {
|
|---|
| 732 | tc_configureGuard.stop;
|
|---|
| 733 | if (startResult.status.code != e_success)
|
|---|
| 734 | {
|
|---|
| 735 | log("**** StartTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 736 | setverdict(fail);
|
|---|
| 737 | stop;
|
|---|
| 738 | }
|
|---|
| 739 | }
|
|---|
| 740 | [] tc_configureGuard.timeout {
|
|---|
| 741 | log("**** StartTrafficCaptureReq not answered. ****");
|
|---|
| 742 | setverdict (inconc);
|
|---|
| 743 | stop;
|
|---|
| 744 | }
|
|---|
| 745 | }
|
|---|
| 746 | }
|
|---|
| 747 |
|
|---|
| 748 | /**
|
|---|
| 749 | * @desc
|
|---|
| 750 | * Interworking Application Server test configuration.
|
|---|
| 751 | * Ummaps/disconnect the related component ports. More information
|
|---|
| 752 | * can be found in ETSI TS 186 011-2 V2.3.1 Cause 4.3.4.
|
|---|
| 753 | * @param p_config.gmA Gm A Interface Monitor component
|
|---|
| 754 | * @param p_config.mw Mw Interface Monitor component
|
|---|
| 755 | * @param p_config.gmB Gm B Interface Monitor component
|
|---|
| 756 | * @param p_config.iscA Isc A Interface Monitor component
|
|---|
| 757 | * @param p_config.iscB Isc B Interface Monitor component
|
|---|
| 758 | * IscA and IscB Interface Monitor component (optional, can be omitted)
|
|---|
| 759 | */
|
|---|
| 760 | function f_cf_int_as_down(
|
|---|
| 761 | inout CF_INT_AS p_config
|
|---|
| 762 | ) runs on ImsTestCoordinator {
|
|---|
| 763 | // Stop traffic capture processing.
|
|---|
| 764 | timer tc_configureGuard;
|
|---|
| 765 | var StopTrafficCaptureRsp stopResult;
|
|---|
| 766 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 767 | acPort.send(m_stopTrafficCaptureReq);
|
|---|
| 768 | alt {
|
|---|
| 769 | [] acPort.receive (m_stopTrafficCaptureRsp_any) -> value stopResult {
|
|---|
| 770 | tc_configureGuard.stop;
|
|---|
| 771 | if (stopResult.status.code != e_success)
|
|---|
| 772 | {
|
|---|
| 773 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 774 | setverdict(fail);
|
|---|
| 775 | }
|
|---|
| 776 | }
|
|---|
| 777 | [] tc_configureGuard.timeout {
|
|---|
| 778 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq not answered. ****");
|
|---|
| 779 | //setverdict (inconc);
|
|---|
| 780 | }
|
|---|
| 781 | }
|
|---|
| 782 | f_cf_monitor_down(p_config.gmA);
|
|---|
| 783 | f_cf_monitor_down(p_config.mw);
|
|---|
| 784 | f_cf_monitor_down(p_config.gmB);
|
|---|
| 785 | if(isvalue(p_config.iscA)) {
|
|---|
| 786 | f_cf_monitor_down(p_config.iscA);
|
|---|
| 787 | }
|
|---|
| 788 | if(isvalue(p_config.iscB)) {
|
|---|
| 789 | f_cf_monitor_down(p_config.iscB);
|
|---|
| 790 | }
|
|---|
| 791 | }
|
|---|
| 792 |
|
|---|
| 793 |
|
|---|
| 794 | /**
|
|---|
| 795 | * @desc
|
|---|
| 796 | * Roaming Call test configuration. Mapps/connects all related
|
|---|
| 797 | * ports and initialize the test adapter.
|
|---|
| 798 | * More information can be found in ETSI TS 186 011-2 V2.3.1 Cause
|
|---|
| 799 | * 4.3.4.
|
|---|
| 800 | * @param p_config.gmA Gm A Interface Monitor component
|
|---|
| 801 | * @param p_config.mw Mw Interface Monitor component
|
|---|
| 802 | * @param p_config.gmB Gm B Interface Monitor component
|
|---|
| 803 | * @param p_config.iscA Isc A Interface Monitor component
|
|---|
| 804 | * @param p_config.iscB Isc B Interface Monitor component
|
|---|
| 805 | * IscA and IscB Interface Monitor component (optional, can be omitted)
|
|---|
| 806 | */
|
|---|
| 807 | function f_cf_roam_as_up(
|
|---|
| 808 | inout CF_ROAM_AS p_config
|
|---|
| 809 | ) runs on ImsTestCoordinator {
|
|---|
| 810 | // Initialize the Adapter (including the TrafficCapture process).
|
|---|
| 811 | timer tc_configureGuard;
|
|---|
| 812 | var StartTrafficCaptureRsp startResult;
|
|---|
| 813 | activate(a_receiveIOTVerdict());
|
|---|
| 814 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 815 | acPort.send(m_generalConfigurationReq_offline);
|
|---|
| 816 | alt {
|
|---|
| 817 | [] acPort.receive (m_generalConfigurationRsp_success) {
|
|---|
| 818 | log("General configuration succeed.");
|
|---|
| 819 | tc_configureGuard.stop;
|
|---|
| 820 | }
|
|---|
| 821 | [] acPort.receive (m_generalConfigurationRsp_timeout) {
|
|---|
| 822 | setverdict(fail);
|
|---|
| 823 | tc_configureGuard.stop;
|
|---|
| 824 | stop;
|
|---|
| 825 | }
|
|---|
| 826 | [] acPort.receive (m_generalConfigurationRsp_error) {
|
|---|
| 827 | setverdict(fail);
|
|---|
| 828 | tc_configureGuard.stop;
|
|---|
| 829 | stop;
|
|---|
| 830 | }
|
|---|
| 831 | [] acPort.receive {
|
|---|
| 832 | log("Unknown response.");
|
|---|
| 833 | tc_configureGuard.stop;
|
|---|
| 834 | setverdict (inconc);
|
|---|
| 835 | stop;
|
|---|
| 836 | }
|
|---|
| 837 | [] tc_configureGuard.timeout {
|
|---|
| 838 | log("Timeout.");
|
|---|
| 839 | setverdict (inconc);
|
|---|
| 840 | stop;
|
|---|
| 841 | }
|
|---|
| 842 | }
|
|---|
| 843 |
|
|---|
| 844 | f_cf_monitor_up(p_config.gmA);
|
|---|
| 845 | f_cf_monitor_up(p_config.mw);
|
|---|
| 846 | f_cf_monitor_up(p_config.gmB);
|
|---|
| 847 | if(isvalue(p_config.iscA)) {
|
|---|
| 848 | f_cf_monitor_up(p_config.iscA);
|
|---|
| 849 | }
|
|---|
| 850 | if(isvalue(p_config.iscB)) {
|
|---|
| 851 | f_cf_monitor_up(p_config.iscB);
|
|---|
| 852 | }
|
|---|
| 853 |
|
|---|
| 854 | // TODO UE IP address and port is missing
|
|---|
| 855 | p_config.gmA.start(f_cf_setFilter(
|
|---|
| 856 | valueof (m_SetFilterReq(
|
|---|
| 857 | e_sip,
|
|---|
| 858 | {f_getInterfaceInfo("Gm", PX_PRODUCTS[PX_EUT_A])}
|
|---|
| 859 | )
|
|---|
| 860 | )));
|
|---|
| 861 | p_config.gmA.done;
|
|---|
| 862 |
|
|---|
| 863 | p_config.mw.start(f_cf_setFilter(
|
|---|
| 864 | valueof(m_SetFilterReq(
|
|---|
| 865 | e_sip,
|
|---|
| 866 | f_getInterfaceInfoList("Ic", PX_EUT_A, PX_EUT_B)
|
|---|
| 867 | )
|
|---|
| 868 | )));
|
|---|
| 869 | p_config.mw.done;
|
|---|
| 870 |
|
|---|
| 871 | p_config.gmB.start(f_cf_setFilter(
|
|---|
| 872 | valueof (m_SetFilterReq(
|
|---|
| 873 | e_sip,
|
|---|
| 874 | {f_getInterfaceInfo("Gm", PX_PRODUCTS[PX_EUT_B])}
|
|---|
| 875 | )
|
|---|
| 876 | )));
|
|---|
| 877 | p_config.gmB.done;
|
|---|
| 878 |
|
|---|
| 879 | if(isvalue(p_config.iscA)) {
|
|---|
| 880 | p_config.iscA.start(f_cf_setFilter(
|
|---|
| 881 | valueof (m_SetFilterReq(
|
|---|
| 882 | e_sip,
|
|---|
| 883 | {f_getInterfaceInfo("Isc", PX_PRODUCTS[PX_EUT_A])}
|
|---|
| 884 | )
|
|---|
| 885 | )));
|
|---|
| 886 | p_config.iscA.done;
|
|---|
| 887 | }
|
|---|
| 888 |
|
|---|
| 889 | if(isvalue(p_config.iscB)) {
|
|---|
| 890 | p_config.iscB.start(f_cf_setFilter(
|
|---|
| 891 | valueof (m_SetFilterReq(
|
|---|
| 892 | e_sip,
|
|---|
| 893 | {f_getInterfaceInfo("Isc", PX_PRODUCTS[PX_EUT_B])}
|
|---|
| 894 | )
|
|---|
| 895 | )));
|
|---|
| 896 | p_config.iscB.done;
|
|---|
| 897 | }
|
|---|
| 898 |
|
|---|
| 899 | // Start traffic capture processing.
|
|---|
| 900 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 901 | acPort.send(m_startTrafficCaptureReq);
|
|---|
| 902 | alt {
|
|---|
| 903 | [] acPort.receive (m_startTrafficCaptureRsp_any) -> value startResult {
|
|---|
| 904 | tc_configureGuard.stop;
|
|---|
| 905 | if (startResult.status.code != e_success)
|
|---|
| 906 | {
|
|---|
| 907 | log("**** StartTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 908 | setverdict(fail);
|
|---|
| 909 | stop;
|
|---|
| 910 | }
|
|---|
| 911 | }
|
|---|
| 912 | [] tc_configureGuard.timeout {
|
|---|
| 913 | log("**** StartTrafficCaptureReq not answered. ****");
|
|---|
| 914 | setverdict (inconc);
|
|---|
| 915 | stop;
|
|---|
| 916 | }
|
|---|
| 917 | }
|
|---|
| 918 | }
|
|---|
| 919 |
|
|---|
| 920 | /**
|
|---|
| 921 | * @desc
|
|---|
| 922 | * Interworking Application Server test configuration.
|
|---|
| 923 | * Ummaps/disconnect the related component ports. More information
|
|---|
| 924 | * can be found in ETSI TS 186 011-2 V2.3.1 Cause 4.3.4.
|
|---|
| 925 | * @param p_config.gmA Gm A Interface Monitor component
|
|---|
| 926 | * @param p_config.mw Mw Interface Monitor component
|
|---|
| 927 | * @param p_config.gmB Gm B Interface Monitor component
|
|---|
| 928 | * @param p_config.iscA Isc A Interface Monitor component
|
|---|
| 929 | * @param p_config.iscB Isc B Interface Monitor component
|
|---|
| 930 | * IscA and IscB Interface Monitor component (optional, can be omitted)
|
|---|
| 931 | */
|
|---|
| 932 | function f_cf_roam_as_down(
|
|---|
| 933 | inout CF_ROAM_AS p_config
|
|---|
| 934 | ) runs on ImsTestCoordinator {
|
|---|
| 935 | // Stop traffic capture processing.
|
|---|
| 936 | timer tc_configureGuard;
|
|---|
| 937 | var StopTrafficCaptureRsp stopResult;
|
|---|
| 938 | tc_configureGuard.start(PX_MAX_MSG_WAIT);
|
|---|
| 939 | acPort.send(m_stopTrafficCaptureReq);
|
|---|
| 940 | alt {
|
|---|
| 941 | [] acPort.receive (m_stopTrafficCaptureRsp_any) -> value stopResult {
|
|---|
| 942 | tc_configureGuard.stop;
|
|---|
| 943 | if (stopResult.status.code != e_success)
|
|---|
| 944 | {
|
|---|
| 945 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq unsuccessfull! ****");
|
|---|
| 946 | setverdict(fail);
|
|---|
| 947 | }
|
|---|
| 948 | }
|
|---|
| 949 | [] tc_configureGuard.timeout {
|
|---|
| 950 | log("**** TC_IMS_MESS_0001: StopTrafficCaptureReq not answered. ****");
|
|---|
| 951 | setverdict (inconc);
|
|---|
| 952 | }
|
|---|
| 953 | }
|
|---|
| 954 | f_cf_monitor_down(p_config.gmA);
|
|---|
| 955 | f_cf_monitor_down(p_config.mw);
|
|---|
| 956 | f_cf_monitor_down(p_config.gmB);
|
|---|
| 957 | if(isvalue(p_config.iscA)) {
|
|---|
| 958 | f_cf_monitor_down(p_config.iscA);
|
|---|
| 959 | }
|
|---|
| 960 | if(isvalue(p_config.iscB)) {
|
|---|
| 961 | f_cf_monitor_down(p_config.iscB);
|
|---|
| 962 | }
|
|---|
| 963 | }
|
|---|
| 964 | }
|
|---|
| 965 |
|
|---|
| 966 | function f_getInterfaceInfoList(
|
|---|
| 967 | in charstring p_interfaceName,
|
|---|
| 968 | in integer p_product1,
|
|---|
| 969 | in integer p_product2
|
|---|
| 970 | ) return InterfaceInfoList {
|
|---|
| 971 | var InterfaceInfoList v_list := {
|
|---|
| 972 | f_getInterfaceInfo(p_interfaceName, PX_PRODUCTS[p_product1]),
|
|---|
| 973 | f_getInterfaceInfo(p_interfaceName, PX_PRODUCTS[p_product2])
|
|---|
| 974 | };
|
|---|
| 975 |
|
|---|
| 976 | return v_list;
|
|---|
| 977 | }
|
|---|
| 978 |
|
|---|
| 979 | function f_getInterfaceInfo(in charstring p_interfaceName, Product p_product) return InterfaceInfo {
|
|---|
| 980 | var InterfaceInfo v_info := {
|
|---|
| 981 | IpInterfaceInfo := {
|
|---|
| 982 | {
|
|---|
| 983 | domainName := "invalid",
|
|---|
| 984 | IpAddress := "0.0.0.0",
|
|---|
| 985 | portNumbers := {0}
|
|---|
| 986 | }
|
|---|
| 987 | }
|
|---|
| 988 | };
|
|---|
| 989 |
|
|---|
| 990 | for(var integer i := 0; i < lengthof(p_product.monitorInterfaces); i := i + 1) { // YANN: <= instead of <
|
|---|
| 991 | if(p_product.monitorInterfaces[i].interfaceName == p_interfaceName) {
|
|---|
| 992 | return p_product.monitorInterfaces[i].interfaceInfo;
|
|---|
| 993 | }
|
|---|
| 994 | }
|
|---|
| 995 |
|
|---|
| 996 | return v_info;
|
|---|
| 997 | }
|
|---|
| 998 |
|
|---|
| 999 |
|
|---|
| 1000 |
|
|---|
| 1001 |
|
|---|
| 1002 | } |
|---|
