RAN_Emulation: allow sending UnitData from MSC_ConnHdlr

Add BSSAP_N_UNITDATA_req to RAN_Conn_PT, so that we are able to send a Paging
from a test function that runs on MSC_ConnHdlr.

This will be needed by upcoming MSC pool tests, see
I21cbab193cd0de2e5692665442eae113d5f61904.

Change-Id: I36d486db05169b0fc3f19112b5a9008248d62930

1 files changed, 6 insertions, 0 deletions

diff --git a/library/RAN_Emulation.ttcnpp b/library/RAN_Emulation.ttcnpp
index 7e98b8b3..5450706a 100644
--- a/library/RAN_Emulation.ttcnpp
+++ b/library/RAN_Emulation.ttcnpp
@@ -162,6 +162,7 @@ type port RAN_Conn_PT message {
 	inout
 #ifdef RAN_EMULATION_BSSAP
 		PDU_BSSAP,
+		BSSAP_N_UNITDATA_req,
 		/* Client requests us to create SCCP Connection */
 		BSSAP_Conn_Req,
 #endif
@@ -839,6 +840,7 @@ private altstep as_main_bssap() runs on RAN_Emulation_CT {
 		var BSSAP_N_DISCONNECT_ind disc_ind;
 		var BSSAP_Conn_Req creq;
 		var PDU_BSSAP bssap;
+		var BSSAP_N_UNITDATA_req bssap_ud;
 		var RAN_ConnHdlr vc_conn;
 		var integer targetPointCode;
 		var N_Sd_Array last_n_sd;
@@ -898,6 +900,10 @@ private altstep as_main_bssap() runs on RAN_Emulation_CT {
 			BSSAP.send(ts_BSSAP_DATA_req(conn_id, bssap));
 			}
 
+		[] CLIENT.receive(BSSAP_N_UNITDATA_req:?) -> value bssap_ud sender vc_conn {
+			BSSAP.send(bssap_ud);
+			}
+
 		/* Disconnect request client -> SCCP */
 		[] CLIENT.receive(RAN_Conn_Prim:MSC_CONN_PRIM_DISC_REQ) -> sender vc_conn {
 			var integer conn_id := f_conn_id_by_comp(vc_conn);