ttcn3
/
osmo-ttcn3-hacks
mirror of https://gerrit.osmocom.org/osmo-ttcn3-hacks
10
0
Fork 1
Code Issues Releases Wiki Activity

PCU_Tests: fix readability of code using t_RLCMAC_UL_DATA_TLLI 

Change-Id: I175f8ce2606050c6b4ea54eae4e00846291d462f
This commit is contained in:
Vadim Yanitskiy 2020-10-17 15:58:19 +07:00 committed by fixeria
parent 8e6df0c811
commit ceb1f9888f
1 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
pcu/PCU_Tests.ttcn
View File

@ -901,6 +901,8 @@ testcase TC_ul_all_sizes() runs on RAW_PCU_Test_CT {
var uint32_t dl_fn, sched_fn;
var octetstring payload;
var template (value) RlcmacUlBlock ul_data;
var template (value) LlcBlockHdr blk_hdr;
var template (value) LlcBlocks blocks;
var GprsMS ms;
/* Initialize NS/BSSGP side */
@ -922,14 +924,15 @@ testcase TC_ul_all_sizes() runs on RAW_PCU_Test_CT {
/* Send one UL block (with TLLI since we are in One-Phase Access
contention resoultion) and make sure it is ACKED fine. */
payload := f_rnd_octstring(16); /* 16 bytes fills the llc block (because TLLI takes 4 bytes) */
blk_hdr := t_RLCMAC_LLCBLOCK_HDR(length_ind := lengthof(payload),
more := false, e := true);
blocks := { t_RLCMAC_LLCBLOCK(payload, blk_hdr) };
/* Set CV = 15 to signal there's still more than BS_CV_MAX blocks to be sent */
ul_data := t_RLCMAC_UL_DATA_TLLI(tfi := ms.ul_tbf.tfi,
cv := 15,
bsn := ms.ul_tbf.bsn,
blocks := { t_RLCMAC_LLCBLOCK(payload,
t_RLCMAC_LLCBLOCK_HDR(length_ind := lengthof(payload), more := false, e := true))
},
tlli := ms.tlli);
cv := 15,
bsn := ms.ul_tbf.bsn,
blocks := blocks,
tlli := ms.tlli);
f_ultbf_inc_bsn(ms.ul_tbf);
f_ms_tx_ul_block(ms, ul_data);
@ -953,13 +956,14 @@ testcase TC_ul_all_sizes() runs on RAW_PCU_Test_CT {
}
payload := f_rnd_octstring(i);
blk_hdr := t_RLCMAC_LLCBLOCK_HDR(length_ind := lengthof(payload),
more := false, e := true);
blocks := { t_RLCMAC_LLCBLOCK(payload, blk_hdr) };
/* Set CV = 15 to signal there's still more than BS_CV_MAX blocks to be sent */
ul_data := t_RLCMAC_UL_DATA(tfi := ms.ul_tbf.tfi,
cv := cv,
bsn := ms.ul_tbf.bsn,
blocks := { t_RLCMAC_LLCBLOCK(payload,
t_RLCMAC_LLCBLOCK_HDR(length_ind := lengthof(payload), more := false, e := true))
});
blocks := blocks);
f_ultbf_inc_bsn(ms.ul_tbf);
f_ms_tx_ul_block(ms, ul_data);
@ -989,6 +993,8 @@ testcase TC_ul_all_sizes() runs on RAW_PCU_Test_CT {
function f_TC_ul_data_toolong_fills_padding_cs(inout GprsMS ms, CodingScheme cs, integer cv) runs on RAW_PCU_Test_CT {
var octetstring payload;
var template (value) RlcmacUlBlock ul_data;
var template (value) LlcBlockHdr blk_hdr;
var template (value) LlcBlocks blocks;
var integer block_len, max_valid_data_len;
timer T;
@ -998,13 +1004,14 @@ function f_TC_ul_data_toolong_fills_padding_cs(inout GprsMS ms, CodingScheme cs,
* indicator, -1 for spare bits octet at the end */
max_valid_data_len := block_len - 4 - 3 - 1 - 1;
payload := f_rnd_octstring(max_valid_data_len + 1); /* +1 to write LLC data on last padding octet */
blk_hdr := t_RLCMAC_LLCBLOCK_HDR(length_ind := lengthof(payload),
more := false, e := true);
blocks := { t_RLCMAC_LLCBLOCK(payload, blk_hdr) };
ul_data := t_RLCMAC_UL_DATA_TLLI(tfi := ms.ul_tbf.tfi,
cv := cv,
bsn := ms.ul_tbf.bsn,
blocks := { t_RLCMAC_LLCBLOCK(payload,
t_RLCMAC_LLCBLOCK_HDR(length_ind := lengthof(payload), more := false, e := true))
},
tlli := ms.tlli);
cv := cv,
bsn := ms.ul_tbf.bsn,
blocks := blocks,
tlli := ms.tlli);
f_ultbf_inc_bsn(ms.ul_tbf);
f_ms_tx_data_ind(ms, enc_RlcmacUlBlock(valueof(ul_data)));