bts: add first a5/4 tests
Not much to do here, bts just passes the key.
Related: SYS#5324
Change-Id: I38e8a1cf15eb41a621b457b39024283a767c94be
diff --git a/bts/BTS_Tests.ttcn b/bts/BTS_Tests.ttcn
index 8ae8eb2..eff1277 100644
--- a/bts/BTS_Tests.ttcn
+++ b/bts/BTS_Tests.ttcn
@@ -6706,6 +6706,11 @@
pars.encr := valueof(ts_RSL_IE_EncrInfo(RSL_ALG_ID_A5_3, f_rnd_octstring(8)));
f_testmatrix_each_chan(pars, refers(f_TC_chan_act_encr));
}
+testcase TC_chan_act_a54() runs on test_CT {
+ var ConnHdlrPars pars := valueof(t_Pars(t_RslChanNr_Bm(1), ts_RSL_ChanMode_SIGN));
+ pars.encr := valueof(ts_RSL_IE_EncrInfo(RSL_ALG_ID_A5_4, f_rnd_octstring(16)));
+ f_testmatrix_each_chan(pars, refers(f_TC_chan_act_encr));
+}
/* Test channel activation with A5/n right from the beginning and RSL MODE MODIFY
which should break the en/decryption on purpose by supplying a new key that is unknown to the MS*/
@@ -6827,6 +6832,11 @@
pars.encr := valueof(ts_RSL_IE_EncrInfo(RSL_ALG_ID_A5_3, f_rnd_octstring(8)));
f_testmatrix_each_chan(pars, refers(f_TC_encr_cmd));
}
+testcase TC_encr_cmd_a54() runs on test_CT {
+ var ConnHdlrPars pars := valueof(t_Pars(t_RslChanNr_Bm(1), ts_RSL_ChanMode_SIGN));
+ pars.encr := valueof(ts_RSL_IE_EncrInfo(RSL_ALG_ID_A5_4, f_rnd_octstring(16)));
+ f_testmatrix_each_chan(pars, refers(f_TC_encr_cmd));
+}
private function f_assert_lapdm(octetstring enc, template LapdmFrame exp_match, charstring name := "") {
var LapdmFrame lf;