<p>Harald Welte <strong>merged</strong> this change.</p><p><a href="https://gerrit.osmocom.org/9646">View Change</a></p><div style="white-space:pre-wrap">Approvals:
Jenkins Builder: Verified
Harald Welte: Looks good to me, approved
</div><pre style="font-family: monospace,monospace; white-space: pre-wrap;">hlr: Port HLR tests to use GSUP_Emulation<br><br>Going via GSUP_Emulation (rather than using GSUP_CodecPort directly)<br>adds many benefits, such as:<br>* ability to have multiple transactions in parallel<br>* no silent discard/ignore of unexpected GSUP messages, like those<br> for IMSIs we don't expect.<br><br>Change-Id: Id2ddd6b81c374ad6350b62fcc5442436757d66cd<br>---<br>M hlr/HLR_Tests.ttcn<br>M hlr/gen_links.sh<br>2 files changed, 268 insertions(+), 130 deletions(-)<br><br></pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;"><span>diff --git a/hlr/HLR_Tests.ttcn b/hlr/HLR_Tests.ttcn</span><br><span>index b4cf195..51d45ba 100644</span><br><span>--- a/hlr/HLR_Tests.ttcn</span><br><span>+++ b/hlr/HLR_Tests.ttcn</span><br><span>@@ -1,6 +1,7 @@</span><br><span> module HLR_Tests {</span><br><span> </span><br><span> import from GSUP_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from GSUP_Emulation all;</span><br><span> import from IPA_Emulation all;</span><br><span> </span><br><span> import from General_Types all;</span><br><span>@@ -13,7 +14,12 @@</span><br><span> type component test_CT extends CTRL_Adapter_CT {</span><br><span> var IPA_Emulation_CT vc_IPA;</span><br><span> var IPA_CCM_Parameters ccm_pars;</span><br><span style="color: hsl(120, 100%, 40%);">+ /* legacy tests without ConnHdlr */</span><br><span> port IPA_GSUP_PT GSUP;</span><br><span style="color: hsl(120, 100%, 40%);">+ /* new tests using ConnHdlr + GSUP_Emulation */</span><br><span style="color: hsl(120, 100%, 40%);">+ var GSUP_Emulation_CT vc_GSUP;</span><br><span style="color: hsl(120, 100%, 40%);">+ /* only to get events from IPA underneath GSUP */</span><br><span style="color: hsl(120, 100%, 40%);">+ port IPA_CTRL_PT GSUP_IPA_EVENT;</span><br><span> </span><br><span> port TELNETasp_PT VTY;</span><br><span> </span><br><span>@@ -47,6 +53,135 @@</span><br><span> </span><br><span> type record of HlrSubscriber HlrSubscriberList;</span><br><span> </span><br><span style="color: hsl(120, 100%, 40%);">+type component HLR_ConnHdlr extends GSUP_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ timer g_Tguard := 10.0;</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlrPars g_pars;</span><br><span style="color: hsl(120, 100%, 40%);">+ port TELNETasp_PT VTY;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type record HLR_ConnHdlrPars {</span><br><span style="color: hsl(120, 100%, 40%);">+ HlrSubscriber sub</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) HLR_ConnHdlrPars t_Pars(hexstring imsi, hexstring msisdn := ''H) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ sub := {</span><br><span style="color: hsl(120, 100%, 40%);">+ imsi := imsi,</span><br><span style="color: hsl(120, 100%, 40%);">+ msisdn := msisdn,</span><br><span style="color: hsl(120, 100%, 40%);">+ aud2g := omit,</span><br><span style="color: hsl(120, 100%, 40%);">+ aud3g := omit</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) HLR_ConnHdlrPars t_Pars_sub(HlrSubscriber sub) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ sub := sub</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type function void_fn() runs on HLR_ConnHdlr;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/***********************************************************************</span><br><span style="color: hsl(120, 100%, 40%);">+ * Main Component</span><br><span style="color: hsl(120, 100%, 40%);">+ ***********************************************************************/</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+function f_init_vty() runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ map(self:VTY, system:VTY);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_set_prompts(VTY);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_transceive(VTY, "enable");</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private altstep as_Tguard() runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ [] g_Tguard.timeout {</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "g_Tguard timeout");</span><br><span style="color: hsl(120, 100%, 40%);">+ self.stop;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+function f_init_gsup(charstring id, boolean legacy) runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ id := id & "-GSUP";</span><br><span style="color: hsl(120, 100%, 40%);">+ var GsupOps ops := {</span><br><span style="color: hsl(120, 100%, 40%);">+ create_cb := refers(GSUP_Emulation.ExpectedCreateCallback)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ ccm_pars := c_IPA_default_ccm_pars;</span><br><span style="color: hsl(120, 100%, 40%);">+ ccm_pars.name := "Osmocom TTCN-3 GSUP Simulator";</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_IPA := IPA_Emulation_CT.create(id & "-IPA");</span><br><span style="color: hsl(120, 100%, 40%);">+ log("legacy= ", legacy);</span><br><span style="color: hsl(120, 100%, 40%);">+ if (not legacy) {</span><br><span style="color: hsl(120, 100%, 40%);">+ log("in not legacy case 1");</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_GSUP := GSUP_Emulation_CT.create(id);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ map(vc_IPA:IPA_PORT, system:IPA_CODEC_PT);</span><br><span style="color: hsl(120, 100%, 40%);">+ if (not legacy) {</span><br><span style="color: hsl(120, 100%, 40%);">+ log("in not legacy case 2");</span><br><span style="color: hsl(120, 100%, 40%);">+ connect(vc_GSUP:GSUP, vc_IPA:IPA_GSUP_PORT);</span><br><span style="color: hsl(120, 100%, 40%);">+ connect(vc_IPA:IPA_CTRL_PORT, self:GSUP_IPA_EVENT);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_GSUP.start(GSUP_Emulation.main(ops, id));</span><br><span style="color: hsl(120, 100%, 40%);">+ } else {</span><br><span style="color: hsl(120, 100%, 40%);">+ connect(vc_IPA:IPA_GSUP_PORT, self:GSUP);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_IPA.start(IPA_Emulation.main_client(mp_hlr_ip, mp_hlr_gsup_port, "", -1, ccm_pars));</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* wait for incoming connection to GSUP port before proceeding */</span><br><span style="color: hsl(120, 100%, 40%);">+ timer T := 10.0;</span><br><span style="color: hsl(120, 100%, 40%);">+ T.start;</span><br><span style="color: hsl(120, 100%, 40%);">+ alt {</span><br><span style="color: hsl(120, 100%, 40%);">+ [not legacy] GSUP_IPA_EVENT.receive(t_ASP_IPA_EVT_UD(ASP_IPA_EVENT_UP)) { }</span><br><span style="color: hsl(120, 100%, 40%);">+ [legacy] GSUP.receive(ASP_IPA_Event:{up_down := ASP_IPA_EVENT_UP}) { }</span><br><span style="color: hsl(120, 100%, 40%);">+ [] T.timeout {</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "No connection to GSUP Port");</span><br><span style="color: hsl(120, 100%, 40%);">+ self.stop;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+function f_init(boolean legacy := true) runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* activate default guard timer to ensure all tests eventually terminate */</span><br><span style="color: hsl(120, 100%, 40%);">+ g_Tguard.start;</span><br><span style="color: hsl(120, 100%, 40%);">+ activate(as_Tguard());</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init_gsup("HLR_Test", legacy);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init_vty();</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ f_ipa_ctrl_start(mp_hlr_ip, mp_hlr_ctrl_port);</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+function f_start_handler(void_fn fn, HLR_ConnHdlrPars pars) runs on test_CT return HLR_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlr vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+ var charstring id := testcasename();</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn := HLR_ConnHdlr.create(id);</span><br><span style="color: hsl(120, 100%, 40%);">+ connect(vc_conn:GSUP, vc_GSUP:GSUP_CLIENT);</span><br><span style="color: hsl(120, 100%, 40%);">+ connect(vc_conn:GSUP_PROC, vc_GSUP:GSUP_PROC);</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn.start(f_handler_init(fn, id, pars));</span><br><span style="color: hsl(120, 100%, 40%);">+ return vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_handler_init_vty() runs on HLR_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ map(self:VTY, system:VTY);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_set_prompts(VTY);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_transceive(VTY, "enable");</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* first function inside ConnHdlr component; sets g_pars + starts function */</span><br><span style="color: hsl(120, 100%, 40%);">+function f_handler_init(void_fn fn, charstring id, template (omit) HLR_ConnHdlrPars pars := omit)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on HLR_ConnHdlr</span><br><span style="color: hsl(120, 100%, 40%);">+{</span><br><span style="color: hsl(120, 100%, 40%);">+ if (isvalue(pars)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ g_pars := valueof(pars);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_create_gsup_expect(hex2str(g_pars.sub.imsi));</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ f_handler_init_vty();</span><br><span style="color: hsl(120, 100%, 40%);">+ fn.apply();</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/***********************************************************************</span><br><span style="color: hsl(120, 100%, 40%);">+ * Subscriber creation via VTY</span><br><span style="color: hsl(120, 100%, 40%);">+ ***********************************************************************/</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span> template (value) HlrSubscriber t_SubNoAuth(hexstring imsi, hexstring msisdn) := {</span><br><span> imsi := imsi,</span><br><span> msisdn := msisdn,</span><br><span>@@ -131,52 +266,19 @@</span><br><span> return sl;</span><br><span> }</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-function f_init_vty() runs on test_CT {</span><br><span style="color: hsl(0, 100%, 40%);">- map(self:VTY, system:VTY);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_set_prompts(VTY);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_transceive(VTY, "enable");</span><br><span style="color: hsl(0, 100%, 40%);">-}</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">-private altstep as_Tguard() runs on test_CT {</span><br><span style="color: hsl(0, 100%, 40%);">- [] g_Tguard.timeout {</span><br><span style="color: hsl(0, 100%, 40%);">- setverdict(fail, "g_Tguard timeout");</span><br><span style="color: hsl(120, 100%, 40%);">+function f_vty_transceive_match(TELNETasp_PT pt, charstring cmd, template charstring exp_ret) {</span><br><span style="color: hsl(120, 100%, 40%);">+ var charstring ret := f_vty_transceive_ret(pt, cmd);</span><br><span style="color: hsl(120, 100%, 40%);">+ if (not match(ret, exp_ret)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "Non-matching VTY response: ", ret);</span><br><span> self.stop;</span><br><span> }</span><br><span> }</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-function f_init() runs on test_CT {</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- /* activate default guard timer to ensure all tests eventually terminate */</span><br><span style="color: hsl(0, 100%, 40%);">- g_Tguard.start;</span><br><span style="color: hsl(0, 100%, 40%);">- activate(as_Tguard());</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- ccm_pars := c_IPA_default_ccm_pars;</span><br><span style="color: hsl(0, 100%, 40%);">- ccm_pars.name := "Osmocom TTCN-3 GSUP Simulator";</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- vc_IPA := IPA_Emulation_CT.create("IPA");</span><br><span style="color: hsl(0, 100%, 40%);">- map(vc_IPA:IPA_PORT, system:IPA_CODEC_PT);</span><br><span style="color: hsl(0, 100%, 40%);">- connect(vc_IPA:IPA_GSUP_PORT, self:GSUP);</span><br><span style="color: hsl(0, 100%, 40%);">- vc_IPA.start(IPA_Emulation.main_client(mp_hlr_ip, mp_hlr_gsup_port, "", -1, ccm_pars));</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- timer T:= 10.0;</span><br><span style="color: hsl(0, 100%, 40%);">- alt {</span><br><span style="color: hsl(0, 100%, 40%);">- [] GSUP.receive(ASP_IPA_Event:{up_down := ASP_IPA_EVENT_UP}) { }</span><br><span style="color: hsl(0, 100%, 40%);">- [] T.timeout {</span><br><span style="color: hsl(0, 100%, 40%);">- setverdict(fail, "Timeout waiting for GSUP IPA Link to come up");</span><br><span style="color: hsl(0, 100%, 40%);">- self.stop;</span><br><span style="color: hsl(0, 100%, 40%);">- }</span><br><span style="color: hsl(0, 100%, 40%);">- }</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- f_init_vty();</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- f_ipa_ctrl_start(mp_hlr_ip, mp_hlr_ctrl_port);</span><br><span style="color: hsl(0, 100%, 40%);">-}</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span> private template (value) charstring t_subscr_prefix(hexstring imsi) :=</span><br><span> "subscriber imsi " & hex2str(imsi) & " ";</span><br><span> </span><br><span> /* create a given subscriber using the VTY */</span><br><span style="color: hsl(0, 100%, 40%);">-function f_vty_subscr_create(HlrSubscriber sub) runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+function f_vty_subscr_create(TELNETasp_PT VTY, HlrSubscriber sub) {</span><br><span> var charstring prefix := valueof(t_subscr_prefix(sub.imsi));</span><br><span> f_vty_transceive_match(VTY, prefix & "create", pattern "% Created subscriber *");</span><br><span> f_vty_transceive_match(VTY, prefix & "update msisdn " & hex2str(sub.msisdn),</span><br><span>@@ -202,29 +304,33 @@</span><br><span> }</span><br><span> }</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-function f_vty_subscr_update_msisdn(HlrSubscriber sub, hexstring new_msisdn) runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+function f_vty_subscr_update_msisdn(TELNETasp_PT VTY, HlrSubscriber sub, hexstring new_msisdn) {</span><br><span> var charstring prefix := valueof(t_subscr_prefix(sub.imsi));</span><br><span> f_vty_transceive_match(VTY, prefix & "update msisdn " & hex2str(new_msisdn),</span><br><span> pattern "% Updated subscriber *");</span><br><span> }</span><br><span> </span><br><span> /* perform 'delete' on subscriber */</span><br><span style="color: hsl(0, 100%, 40%);">-function f_vty_subscr_delete(HlrSubscriber sub) runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+function f_vty_subscr_delete(TELNETasp_PT VTY, HlrSubscriber sub) {</span><br><span> var charstring prefix := valueof(t_subscr_prefix(sub.imsi));</span><br><span> f_vty_transceive_match(VTY, prefix & "delete",</span><br><span> pattern "% Deleted subscriber for IMSI *");</span><br><span> }</span><br><span> </span><br><span> /* perform 'show' on subscriber; match result with pattern 'exp' */</span><br><span style="color: hsl(0, 100%, 40%);">-function f_vty_subscr_show(HlrSubscriber sub, template charstring exp) runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+function f_vty_subscr_show(TELNETasp_PT VTY, HlrSubscriber sub, template charstring exp) {</span><br><span> var charstring prefix := valueof(t_subscr_prefix(sub.imsi));</span><br><span> f_vty_transceive_match(VTY, prefix & "show", exp);</span><br><span> }</span><br><span> </span><br><span> </span><br><span style="color: hsl(120, 100%, 40%);">+/***********************************************************************</span><br><span style="color: hsl(120, 100%, 40%);">+ * Helper functions for ConnHdlr</span><br><span style="color: hsl(120, 100%, 40%);">+ ***********************************************************************/</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span> /* perform SendAuthInfo for given imsi, return the GSUP response/error */</span><br><span> function f_perform_SAI(hexstring imsi, template (omit) integer exp_err_cause := omit)</span><br><span style="color: hsl(0, 100%, 40%);">-runs on test_CT return GSUP_PDU {</span><br><span style="color: hsl(120, 100%, 40%);">+runs on HLR_ConnHdlr return GSUP_PDU {</span><br><span> var GSUP_PDU ret;</span><br><span> timer T := 3.0;</span><br><span> var boolean exp_fail := false;</span><br><span>@@ -261,7 +367,7 @@</span><br><span> </span><br><span> function f_perform_UL(hexstring imsi, template hexstring msisdn,</span><br><span> template (omit) integer exp_err_cause := omit)</span><br><span style="color: hsl(0, 100%, 40%);">-runs on test_CT return GSUP_PDU {</span><br><span style="color: hsl(120, 100%, 40%);">+runs on HLR_ConnHdlr return GSUP_PDU {</span><br><span> var GSUP_PDU ret;</span><br><span> timer T := 3.0;</span><br><span> var boolean exp_fail := false;</span><br><span>@@ -308,7 +414,7 @@</span><br><span> /* perform PurgeMS for given imsi, return the GSUP response/error */</span><br><span> function f_perform_PURGE(hexstring imsi, GSUP_CnDomain cn_dom,</span><br><span> template (omit) integer exp_err_cause := omit)</span><br><span style="color: hsl(0, 100%, 40%);">-runs on test_CT return GSUP_PDU {</span><br><span style="color: hsl(120, 100%, 40%);">+runs on HLR_ConnHdlr return GSUP_PDU {</span><br><span> var GSUP_PDU ret;</span><br><span> timer T := 3.0;</span><br><span> var boolean exp_fail := false;</span><br><span>@@ -344,75 +450,101 @@</span><br><span> }</span><br><span> </span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-testcase TC_gsup_sai_err_invalid_imsi() runs on test_CT {</span><br><span style="color: hsl(0, 100%, 40%);">- /* 23.003 Section 2.2 clearly states that an IMSI with less</span><br><span style="color: hsl(0, 100%, 40%);">- * than 5 digits is impossible. Even 5 digits is still questionable */</span><br><span style="color: hsl(0, 100%, 40%);">- var hexstring imsi := '0123'H;</span><br><span style="color: hsl(120, 100%, 40%);">+/***********************************************************************</span><br><span style="color: hsl(120, 100%, 40%);">+ * Testcases</span><br><span style="color: hsl(120, 100%, 40%);">+ ***********************************************************************/</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* 23.003 Section 2.2 clearly states that an IMSI with less</span><br><span style="color: hsl(120, 100%, 40%);">+ * than 5 digits is impossible. Even 5 digits is still questionable */</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_TC_gsup_sai_err_invalid_imsi() runs on HLR_ConnHdlr {</span><br><span> var GSUP_PDU res;</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_SAI(g_pars.sub.imsi, 96); /* Invalid Mandatory information */</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(pass);</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+testcase TC_gsup_sai_err_invalid_imsi() runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlr vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlrPars pars := valueof(t_Pars('0123'H));</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init(false);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn := f_start_handler(refers(f_TC_gsup_sai_err_invalid_imsi), pars);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn.done;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">- f_init();</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_SAI(imsi, 96); /* Invalid Mandatory information */</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_TC_gsup_sai_err_unknown_imsi() runs on HLR_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ var GSUP_PDU res;</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_SAI(g_pars.sub.imsi, 2);</span><br><span> setverdict(pass);</span><br><span> }</span><br><span> </span><br><span> testcase TC_gsup_sai_err_unknown_imsi() runs on test_CT {</span><br><span style="color: hsl(0, 100%, 40%);">- var hexstring imsi := f_rnd_imsi('26242'H);</span><br><span style="color: hsl(0, 100%, 40%);">- var GSUP_PDU res;</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- f_init();</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_SAI(imsi, 2);</span><br><span style="color: hsl(0, 100%, 40%);">- setverdict(pass);</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlr vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlrPars pars := valueof(t_Pars(f_rnd_imsi('26242'H)));</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init(false);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn := f_start_handler(refers(f_TC_gsup_sai_err_unknown_imsi), pars);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn.done;</span><br><span> }</span><br><span> </span><br><span style="color: hsl(120, 100%, 40%);">+function f_start_handler_per_sub(void_fn fn, HlrSubscriberList sl) runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ for (var integer i := 0; i < sizeof(sl); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ var HlrSubscriber sub := sl[i];</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlrPars pars := valueof(t_Pars_sub(sub));</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlr vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_create(VTY, sub);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn := f_start_handler(fn, pars);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn.done;</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_delete(VTY, sub);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span> </span><br><span> /* test SAI for a number of different subscriber cases (algo, 2g/3g, ...) */</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_TC_gsup_sai() runs on HLR_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ var GSUP_PDU res;</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_SAI(g_pars.sub.imsi);</span><br><span style="color: hsl(120, 100%, 40%);">+ /* TODO: match if tuple[s] matches expectation */</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(pass);</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span> testcase TC_gsup_sai() runs on test_CT {</span><br><span> var HlrSubscriberList sl;</span><br><span> var GSUP_PDU res;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">- f_init();</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init(false);</span><br><span> </span><br><span> sl := f_gen_subs();</span><br><span style="color: hsl(0, 100%, 40%);">- for (var integer i := 0; i < sizeof(sl); i := i+1) {</span><br><span style="color: hsl(0, 100%, 40%);">- var HlrSubscriber sub := sl[i];</span><br><span style="color: hsl(0, 100%, 40%);">- log("Testing SAI for ", sub);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_create(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_SAI(sub.imsi);</span><br><span style="color: hsl(0, 100%, 40%);">- /* TODO: match if tuple[s] matches expectation */</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_delete(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- }</span><br><span style="color: hsl(120, 100%, 40%);">+ f_start_handler_per_sub(refers(f_TC_gsup_sai), sl);</span><br><span> </span><br><span> setverdict(pass);</span><br><span> }</span><br><span> </span><br><span> /* test UL for unknown IMSI */</span><br><span style="color: hsl(0, 100%, 40%);">-testcase TC_gsup_ul_unknown_imsi() runs on test_CT {</span><br><span style="color: hsl(0, 100%, 40%);">- var hexstring imsi := f_rnd_imsi('26242'H);</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_TC_ul_unknown_imsi() runs on HLR_ConnHdlr {</span><br><span> var GSUP_PDU res;</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- f_init();</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_UL(imsi, ?, 2);</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_UL(g_pars.sub.imsi, ?, 2);</span><br><span> setverdict(pass);</span><br><span> }</span><br><span style="color: hsl(120, 100%, 40%);">+testcase TC_gsup_ul_unknown_imsi() runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var hexstring imsi := f_rnd_imsi('26242'H);</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlrPars pars := valueof(t_Pars(imsi));</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlr vc_conn;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-/* test SAI for a number of different subscriber cases (algo, 2g/3g, ...) */</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init(false);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn := f_start_handler(refers(f_TC_ul_unknown_imsi), pars);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn.done;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* test UL for a number of different subscriber cases (algo, 2g/3g, ...) */</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_TC_gsup_ul() runs on HLR_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ var GSUP_PDU res;</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_UL(g_pars.sub.imsi, g_pars.sub.msisdn);</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(pass);</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span> testcase TC_gsup_ul() runs on test_CT {</span><br><span> var HlrSubscriberList sl;</span><br><span> var GSUP_PDU res;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">- f_init();</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init(false);</span><br><span> sl := f_gen_subs();</span><br><span style="color: hsl(0, 100%, 40%);">- for (var integer i := 0; i < sizeof(sl); i := i+1) {</span><br><span style="color: hsl(0, 100%, 40%);">- var HlrSubscriber sub := sl[i];</span><br><span style="color: hsl(0, 100%, 40%);">- log("Testing UL for ", sub);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_create(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_UL(sub.imsi, sub.msisdn);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_delete(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- }</span><br><span style="color: hsl(120, 100%, 40%);">+ f_start_handler_per_sub(refers(f_TC_gsup_ul), sl);</span><br><span> </span><br><span> setverdict(pass);</span><br><span> }</span><br><span>@@ -426,53 +558,49 @@</span><br><span> /* we're not using f_gen_subs() here as the expect pattern for the 'show' are different</span><br><span> * from case to case */</span><br><span> sub := valueof(t_Sub2G(f_rnd_imsi('26242'H), '49161'H & f_rnd_hexstring(7, 9), "comp128v1"));</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_create(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_show(sub, pattern "*IMSI: *2G auth: COMP128v1*");</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_delete(sub);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_create(VTY, sub);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_show(VTY, sub, pattern "*IMSI: *2G auth: COMP128v1*");</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_delete(VTY, sub);</span><br><span> </span><br><span> sub := valueof(t_Sub3G(f_rnd_imsi('26242'H), '49161'H & f_rnd_hexstring(7, 9),</span><br><span> "milenage", false));</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_create(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_show(sub, pattern "*IMSI: *3G auth: MILENAGE*");</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_delete(sub);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_create(VTY, sub);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_show(VTY, sub, pattern "*IMSI: *3G auth: MILENAGE*");</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_delete(VTY, sub);</span><br><span> </span><br><span> sub := valueof(t_Sub2G3G(f_rnd_imsi('26242'H), '49161'H & f_rnd_hexstring(7, 9),</span><br><span> "comp128v1", "milenage", false));</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_create(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_show(sub, pattern "*IMSI: *2G auth: COMP128v1*3G auth: MILENAGE*");</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_delete(sub);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_create(VTY, sub);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_show(VTY, sub, pattern "*IMSI: *2G auth: COMP128v1*3G auth: MILENAGE*");</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_delete(VTY, sub);</span><br><span> </span><br><span> setverdict(pass);</span><br><span> }</span><br><span> </span><br><span> /* VTY changes to MSISDN should result in ISD to current VLR */</span><br><span style="color: hsl(0, 100%, 40%);">-testcase TC_vty_msisdn_isd() runs on test_CT {</span><br><span style="color: hsl(0, 100%, 40%);">- var HlrSubscriber sub;</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_TC_vty_msisdn_isd() runs on HLR_ConnHdlr {</span><br><span> var hexstring new_msisdn;</span><br><span> var GSUP_PDU res;</span><br><span> timer T := 5.0;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">- f_init();</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span> /* Create Subscriber */</span><br><span style="color: hsl(0, 100%, 40%);">- sub := valueof(t_Sub2G(f_rnd_imsi('26242'H), '49161'H & f_rnd_hexstring(7, 9), "comp128v1"));</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_create(sub);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_create(VTY, g_pars.sub);</span><br><span> </span><br><span> /* Perform UpdateLocation (VLR now known to HLR) */</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_UL(sub.imsi, sub.msisdn);</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_UL(g_pars.sub.imsi, g_pars.sub.msisdn);</span><br><span> </span><br><span> /* Then change IMSI via VTY */</span><br><span> new_msisdn := '49161'H & f_rnd_hexstring(7, 9);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_update_msisdn(sub, new_msisdn);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_vty_subscr_update_msisdn(VTY, g_pars.sub, new_msisdn);</span><br><span> /* And expect InsertSubscriberData as result */</span><br><span> T.start;</span><br><span> alt {</span><br><span style="color: hsl(0, 100%, 40%);">- [] GSUP.receive(tr_GSUP_ISD_REQ(sub.imsi, new_msisdn)) {</span><br><span style="color: hsl(0, 100%, 40%);">- GSUP.send(ts_GSUP_ISD_RES(sub.imsi));</span><br><span style="color: hsl(0, 100%, 40%);">- sub.msisdn := new_msisdn;</span><br><span style="color: hsl(120, 100%, 40%);">+ [] GSUP.receive(tr_GSUP_ISD_REQ(g_pars.sub.imsi, new_msisdn)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ GSUP.send(ts_GSUP_ISD_RES(g_pars.sub.imsi));</span><br><span style="color: hsl(120, 100%, 40%);">+ g_pars.sub.msisdn := new_msisdn;</span><br><span> setverdict(pass);</span><br><span> }</span><br><span style="color: hsl(0, 100%, 40%);">- [] GSUP.receive(tr_GSUP_ISD_REQ(sub.imsi, sub.msisdn)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ [] GSUP.receive(tr_GSUP_ISD_REQ(g_pars.sub.imsi, g_pars.sub.msisdn)) {</span><br><span> log("received ISD req with old MSISDN");</span><br><span> setverdict(fail);</span><br><span> }</span><br><span>@@ -482,60 +610,70 @@</span><br><span> }</span><br><span> }</span><br><span> }</span><br><span style="color: hsl(120, 100%, 40%);">+testcase TC_vty_msisdn_isd() runs on test_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var HlrSubscriber sub;</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlr vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init(false);</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Create Subscriber */</span><br><span style="color: hsl(120, 100%, 40%);">+ sub := valueof(t_Sub2G(f_rnd_imsi('26242'H), '49161'H & f_rnd_hexstring(7, 9), "comp128v1"));</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn := f_start_handler(refers(f_TC_vty_msisdn_isd), valueof(t_Pars_sub(sub)));</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn.done;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span> </span><br><span> /* Test PURGE MS for CS services */</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_TC_gsup_purge_cs() runs on HLR_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ var GSUP_PDU res;</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_UL(g_pars.sub.imsi, g_pars.sub.msisdn);</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_PURGE(g_pars.sub.imsi, OSMO_GSUP_CN_DOMAIN_CS);</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span> testcase TC_gsup_purge_cs() runs on test_CT {</span><br><span> var HlrSubscriberList sl;</span><br><span> var GSUP_PDU res;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">- f_init();</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init(false);</span><br><span> sl := f_gen_subs();</span><br><span style="color: hsl(0, 100%, 40%);">- for (var integer i := 0; i < sizeof(sl); i := i+1) {</span><br><span style="color: hsl(0, 100%, 40%);">- var HlrSubscriber sub := sl[i];</span><br><span style="color: hsl(0, 100%, 40%);">- log("Testing CS Purge for ", sub);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_create(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_UL(sub.imsi, sub.msisdn);</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_PURGE(sub.imsi, OSMO_GSUP_CN_DOMAIN_CS);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_delete(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- }</span><br><span style="color: hsl(120, 100%, 40%);">+ f_start_handler_per_sub(refers(f_TC_gsup_purge_cs), sl);</span><br><span> </span><br><span> setverdict(pass);</span><br><span> }</span><br><span> </span><br><span> /* Test PURGE MS for PS services */</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_TC_gsup_purge_ps() runs on HLR_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ var GSUP_PDU res;</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_UL(g_pars.sub.imsi, g_pars.sub.msisdn);</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_PURGE(g_pars.sub.imsi, OSMO_GSUP_CN_DOMAIN_PS);</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span> testcase TC_gsup_purge_ps() runs on test_CT {</span><br><span> var HlrSubscriberList sl;</span><br><span style="color: hsl(0, 100%, 40%);">- var GSUP_PDU res;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">- f_init();</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init(false);</span><br><span> sl := f_gen_subs();</span><br><span style="color: hsl(0, 100%, 40%);">- for (var integer i := 0; i < sizeof(sl); i := i+1) {</span><br><span style="color: hsl(0, 100%, 40%);">- var HlrSubscriber sub := sl[i];</span><br><span style="color: hsl(0, 100%, 40%);">- log("Testing PS Purge for ", sub);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_create(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_UL(sub.imsi, sub.msisdn);</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_PURGE(sub.imsi, OSMO_GSUP_CN_DOMAIN_PS);</span><br><span style="color: hsl(0, 100%, 40%);">- f_vty_subscr_delete(sub);</span><br><span style="color: hsl(0, 100%, 40%);">- }</span><br><span style="color: hsl(120, 100%, 40%);">+ f_start_handler_per_sub(refers(f_TC_gsup_purge_ps), sl);</span><br><span> </span><br><span> setverdict(pass);</span><br><span> }</span><br><span> </span><br><span> /* Test PURGEG MS procedure for unknown IMSI */</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_TC_gsup_purge_unknown() runs on HLR_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ var GSUP_PDU res;</span><br><span style="color: hsl(120, 100%, 40%);">+ res := f_perform_PURGE(g_pars.sub.imsi, OSMO_GSUP_CN_DOMAIN_CS, 2);</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span> testcase TC_gsup_purge_unknown() runs on test_CT {</span><br><span> var hexstring imsi := '2345743413463'H;</span><br><span style="color: hsl(0, 100%, 40%);">- var GSUP_PDU res;</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlrPars pars := valueof(t_Pars(imsi));</span><br><span style="color: hsl(120, 100%, 40%);">+ var HLR_ConnHdlr vc_conn;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">- f_init();</span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span style="color: hsl(0, 100%, 40%);">- res := f_perform_PURGE(imsi, OSMO_GSUP_CN_DOMAIN_CS, 2);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_init(false);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn := f_start_handler(refers(f_TC_ul_unknown_imsi), pars);</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn.done;</span><br><span> </span><br><span> setverdict(pass);</span><br><span> }</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-</span><br><span> /* TODO:</span><br><span> * UL with ISD error</span><br><span> * UL with ISD timeout</span><br><span>diff --git a/hlr/gen_links.sh b/hlr/gen_links.sh</span><br><span>index c265eb8..1e98cb2 100755</span><br><span>--- a/hlr/gen_links.sh</span><br><span>+++ b/hlr/gen_links.sh</span><br><span>@@ -22,7 +22,7 @@</span><br><span> gen_links $DIR $FILES</span><br><span> </span><br><span> DIR=../library</span><br><span style="color: hsl(0, 100%, 40%);">-FILES="General_Types.ttcn Osmocom_Types.ttcn GSM_Types.ttcn IPA_Types.ttcn IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc IPA_Emulation.ttcnpp GSUP_Types.ttcn "</span><br><span style="color: hsl(120, 100%, 40%);">+FILES="General_Types.ttcn Osmocom_Types.ttcn GSM_Types.ttcn IPA_Types.ttcn IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc IPA_Emulation.ttcnpp GSUP_Types.ttcn GSUP_Emulation.ttcn "</span><br><span> FILES+="Osmocom_CTRL_Types.ttcn Osmocom_CTRL_Functions.ttcn Osmocom_CTRL_Adapter.ttcn "</span><br><span> FILES+="Osmocom_VTY_Functions.ttcn "</span><br><span> </span><br><span></span><br></pre><p>To view, visit <a href="https://gerrit.osmocom.org/9646">change 9646</a>. To unsubscribe, or for help writing mail filters, visit <a href="https://gerrit.osmocom.org/settings">settings</a>.</p><div itemscope itemtype="http://schema.org/EmailMessage"><div itemscope itemprop="action" itemtype="http://schema.org/ViewAction"><link itemprop="url" href="https://gerrit.osmocom.org/9646"/><meta itemprop="name" content="View Change"/></div></div>
<div style="display:none"> Gerrit-Project: osmo-ttcn3-hacks </div>
<div style="display:none"> Gerrit-Branch: master </div>
<div style="display:none"> Gerrit-MessageType: merged </div>
<div style="display:none"> Gerrit-Change-Id: Id2ddd6b81c374ad6350b62fcc5442436757d66cd </div>
<div style="display:none"> Gerrit-Change-Number: 9646 </div>
<div style="display:none"> Gerrit-PatchSet: 1 </div>
<div style="display:none"> Gerrit-Owner: Harald Welte <laforge@gnumonks.org> </div>
<div style="display:none"> Gerrit-Reviewer: Harald Welte <laforge@gnumonks.org> </div>
<div style="display:none"> Gerrit-Reviewer: Jenkins Builder </div>