gbproxy: Add test for Uplink-Unitdata
Change-Id: I912ba5a83c852e6ad9524e06a8e76e9f16a517d8
diff --git a/gbproxy/GBProxy_Tests.ttcn b/gbproxy/GBProxy_Tests.ttcn
index 81c55b5..9ee9093 100644
--- a/gbproxy/GBProxy_Tests.ttcn
+++ b/gbproxy/GBProxy_Tests.ttcn
@@ -566,8 +566,46 @@
}
+/* send uplink-unitdata of a variety of different sizes; expect it to show up on SGSN */
+private function f_TC_ul_unitdata(charstring id) runs on BSSGP_ConnHdlr {
+ var integer i;
+
+ for (i := 0; i < 1024; i := i+1) {
+ var octetstring payload := f_rnd_octstring(i);
+ var template (value) PDU_BSSGP pdu_tx := ts_BSSGP_UL_UD(g_pars.tlli, g_pars.bssgp_cell_id[0], payload);
+ /* we cannot use pdu_tx as there are some subtle differences in the length field :/ */
+ var template (present) PDU_BSSGP pdu_rx := tr_BSSGP_UL_UD(g_pars.tlli, g_pars.bssgp_cell_id[0], payload);
+
+ PCU[0].send(pdu_tx);
+ alt {
+ [] SGSN[0].receive(pdu_rx);
+ /* FIXME: Those should be handled before the ConnHdlr is started */
+ [] SGSN[0].receive(BssgpStatusIndication:{*,?,BVC_S_UNBLOCKED}) { repeat; }
+ [] SGSN[0].receive {
+ setverdict(fail, "SGSN Received unexpected");
+ mtc.stop;
+ }
+ }
+ }
+ setverdict(pass);
+}
+
+testcase TC_ul_unitdata() runs on test_CT
+{
+ var BSSGP_ConnHdlr vc_conn;
+ f_init();
+
+ vc_conn := f_start_handler(refers(f_TC_ul_unitdata), testcasename(), g_pcu, g_sgsn, 1);
+ 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() );
}