gbproxy: Add test for Radio Status procedure

This message is only passed through by gbproxy

Change-Id: I277ba3dace936400a78670925c7c8bdf401f90f6
Related: SYS#5210
diff --git a/gbproxy/GBProxy_Tests.ttcn b/gbproxy/GBProxy_Tests.ttcn
index 69c18cd..a1d3793 100644
--- a/gbproxy/GBProxy_Tests.ttcn
+++ b/gbproxy/GBProxy_Tests.ttcn
@@ -758,6 +758,31 @@
 }
 
 
+private function f_TC_radio_status(charstring id) runs on BSSGP_ConnHdlr {
+	var integer i;
+	var BssgpRadioCause cause := BSSGP_RADIO_CAUSE_CONTACT_LOST;
+	for (i := 0; i < 10; i := i+1) {
+		var template (value) PDU_BSSGP pdu_tx := ts_BSSGP_RADIO_STATUS(g_pars.tlli, cause);
+		/* we cannot use pdu_tx as there are some subtle differences in the length field :/ */
+		var template (present) PDU_BSSGP pdu_rx := tr_BSSGP_RADIO_STATUS(g_pars.tlli, cause)
+
+		f_pcu2sgsn(pdu_tx, pdu_rx);
+	}
+	setverdict(pass);
+}
+testcase TC_radio_status() runs on test_CT
+{
+	var BSSGP_ConnHdlr vc_conn;
+	f_init();
+
+	vc_conn := f_start_handler(refers(f_TC_radio_status), testcasename(), g_pcu, g_sgsn, 3);
+	vc_conn.done;
+	/* TODO: start multiple handlers (UEs) on various cells on same and other NSEs */
+
+	f_cleanup();
+}
+
+
 
 
 control {
@@ -766,6 +791,7 @@
 	execute( TC_dl_unitdata() );
 	execute( TC_ra_capability() );
 	execute( TC_ra_capability_upd() );
+	execute( TC_radio_status() );
 }