gbproxy: Test for RA Capability procedure
Change-Id: If7e5a5cab1e445e0b4ef0466990e352143c31245
diff --git a/gbproxy/GBProxy_Tests.ttcn b/gbproxy/GBProxy_Tests.ttcn
index 8837a63..7d39e7c 100644
--- a/gbproxy/GBProxy_Tests.ttcn
+++ b/gbproxy/GBProxy_Tests.ttcn
@@ -640,10 +640,45 @@
f_cleanup();
}
+private function f_TC_ra_capability(charstring id) runs on BSSGP_ConnHdlr {
+ var integer i;
+
+ for (i := 0; i < 10; i := i+1) {
+ var template (value) PDU_BSSGP pdu_tx := ts_BSSGP_RA_CAP(g_pars.tlli, { ts_RaCapRec_BSSGP });
+ /* we cannot use pdu_tx as there are some subtle differences in the length field :/ */
+ var template (present) PDU_BSSGP pdu_rx := tr_BSSGP_RA_CAP(g_pars.tlli, { tr_RaCapRec_BSSGP })
+
+ SGSN[0].send(pdu_tx);
+ alt {
+ [] PCU[0].receive(pdu_rx);
+ [] PCU[0].receive {
+ setverdict(fail, "SGSN Received unexpected");
+ mtc.stop;
+ }
+ }
+ }
+ setverdict(pass);
+}
+testcase TC_ra_capability() runs on test_CT
+{
+ var BSSGP_ConnHdlr vc_conn;
+ f_init();
+
+ vc_conn := f_start_handler(refers(f_TC_ra_capability), 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 {
execute( TC_BVC_bringup() );
execute( TC_ul_unitdata() );
execute( TC_dl_unitdata() );
+ execute( TC_ra_capability() );
}