[PATCH] osmo-ttcn3-hacks[master]: RSL_Emulation: Pass ASP_IPA_EVENT_UP to RSL_CCHAN port

[Harald Welte]

Review at  https://gerrit.osmocom.org/6628

RSL_Emulation: Pass ASP_IPA_EVENT_UP to RSL_CCHAN port

When emulating the BSC side of RSL, this can be used by a test case
to wait for the RSL connection to be established.

Change-Id: Iad2f6e4cb6a8f3b77e452f36a83ec11e7554e6c7
---
M library/RSL_Emulation.ttcn
1 file changed, 6 insertions(+), 2 deletions(-)


  git pull ssh://gerrit.osmocom.org:29418/osmo-ttcn3-hacks refs/changes/28/6628/1

diff --git a/library/RSL_Emulation.ttcn b/library/RSL_Emulation.ttcn
index 5c7dc9c..bf6686a 100644
--- a/library/RSL_Emulation.ttcn
+++ b/library/RSL_Emulation.ttcn
@@ -53,7 +53,7 @@
 } with { extension "internal" };
 
 type port RSL_CCHAN_PT message {
-	inout ASP_RSL_Unitdata;
+	inout ASP_RSL_Unitdata, ASP_IPA_Event;
 } with { extension "internal" };
 
 
@@ -277,6 +277,7 @@
 
 
 function main(boolean bts_role := true) runs on RSL_Emulation_CT {
+	var ASP_IPA_Event evt;
 	var ASP_RSL_Unitdata rx_rsl;
 	var RSL_Message rx_rsl_msg;
 	var RSLDC_ChanRqd chan_rqd;
@@ -292,7 +293,10 @@
 
 	while (true) {
 		alt {
-		[] IPA_PT.receive(ASP_IPA_Event:{up_down := ASP_IPA_EVENT_UP}) {
+		[bts_role] IPA_PT.receive(ASP_IPA_Event:{up_down := ASP_IPA_EVENT_UP}) {
+			}
+		[not bts_role] IPA_PT.receive(ASP_IPA_Event:{up_down := ASP_IPA_EVENT_UP}) -> value evt {
+			CCHAN_PT.send(evt);
 			}
 		[bts_role] IPA_PT.receive(ASP_IPA_Event:{up_down := ASP_IPA_EVENT_ID_ACK}) {
 			IPA_PT.send(ts_ASP_RSL_UD(IPAC_PROTO_RSL_TRX0,ts_RSL_PAGING_LOAD_IND(23)));

-- 
To view, visit https://gerrit.osmocom.org/6628
To unsubscribe, visit https://gerrit.osmocom.org/settings

Gerrit-MessageType: newchange
Gerrit-Change-Id: Iad2f6e4cb6a8f3b77e452f36a83ec11e7554e6c7
Gerrit-PatchSet: 1
Gerrit-Project: osmo-ttcn3-hacks
Gerrit-Branch: master
Gerrit-Owner: Harald Welte <laforge at gnumonks.org>