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

cbc: Add SABP Selftests 

Change-Id: I97c31dd3f9ef700fc40074fe7963329d5206af5f
This commit is contained in:
Harald Welte 2019-09-23 06:10:03 +02:00 committed by Harald Welte
parent 24447b908e
commit 0e04c53c63
5 changed files with 204 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
cbc/CBC_Tests.default
View File

@ -3,6 +3,7 @@ mtc.FileMask := LOG_ALL | TTCN_DEBUG | TTCN_MATCHING | DEBUG_ENCDEC;
[TESTPORT_PARAMETERS]
*.CBCVTY.PROMPT1 := "OsmoCBC> "
*.TCP.noDelay := "yes" // turn off nagle
[MODULE_PARAMETERS]
// Osmocom_VTY_Functions.mp_prompt_prefix := "OsmoCBC";

22
cbc/CBC_Tests.ttcn
View File

@ -81,11 +81,33 @@ testcase TC_selftest() runs on test_CT {
}
import from SABP_Types all;
import from SABP_Templates all;
import from SABP_IEs all;
import from SABP_PDU_Descriptions all;
testcase TC_selftest_sabp() runs on test_CT {
const octetstring c_write := '00000080930000080006000211120007000240c0000f0010000113f0030282ec0613f0030282ec070001400100000d0002012a000900020000000400010100000056029f01b4d90d064297d9ec37e8fe96b3c9a0303bdd68341a8d46a3d168341a8d46a3d168341a8d46a3d168341a8d46a3d168341a8d46a3d168341a8d46a3d168341a8d46a3d168341a8d46a3d168341a8d46a3d10012'O;
log(dec_SABP_PDU(c_write));
log(enc_SABP_PDU(dec_SABP_PDU(c_write)));
var template (value) Service_Areas_List sa_list := {
ts_SabpSai('62F224'O, '0023'O, '0042'O)
};
var template (value) SABP_PDU tx;
tx := ts_SABP_Write(int2bit(1, 16), int2bit(1, 16), sa_list, 23, 42, '00000000'B, '01011010'B);
log("Write: ", enc_SABP_PDU(valueof(tx)))
var Service_Areas_List sa_list2 := { valueof(ts_SabpSai('62F224'O, '1000'O, '0042'O)) };
for (var integer i := 0; i < 2500; i := i+1) {
sa_list2 := sa_list2 & {valueof(ts_SabpSai('62F224'O, '2000'O, int2oct(i,2))) };
}
tx := ts_SABP_Write(int2bit(2, 16), int2bit(2, 16), sa_list2, 23, 42, '00000000'B, '01011010'B);
log("Write: ", enc_SABP_PDU(valueof(tx)))
tx := ts_SABP_Restart(sa_list);
log("Restart: ", enc_SABP_PDU(valueof(tx)));
}
}

179
cbc/SABP_Selftest.ttcn Normal file
View File

File diff suppressed because one or more lines are too long

1
cbc/gen_links.sh
View File

@ -37,6 +37,7 @@ DIR=../library
FILES="Misc_Helpers.ttcn General_Types.ttcn GSM_Types.ttcn Osmocom_Types.ttcn Native_Functions.ttcn Native_FunctionDefs.cc "
FILES+="CBSP_Types.ttcn CBSP_Templates.ttcn "
FILES+="CBSP_CodecPort.ttcn CBSP_CodecPort_CtrlFunct.ttcn CBSP_CodecPort_CtrlFunctdef.cc CBSP_Adapter.ttcn "
FILES+="SABP_CodecPort.ttcn SABP_CodecPort_CtrlFunct.ttcn SABP_CodecPort_CtrlFunctDef.cc SABP_Adapter.ttcn "
gen_links $DIR $FILES
ignore_pp_results

2
cbc/regen_makefile.sh
View File

@ -1,6 +1,6 @@
#!/bin/sh
FILES="*.ttcn TCCConversion.cc TCCInterface.cc TCCEncoding.cc IPL4asp_PT.cc IPL4asp_discovery.cc TELNETasp_PT.cc Native_FunctionDefs.cc SCTPasp_PT.cc CBSP_CodecPort_CtrlFunctdef.cc SABP_EncDec.cc "
FILES="*.ttcn TCCConversion.cc TCCInterface.cc TCCEncoding.cc IPL4asp_PT.cc IPL4asp_discovery.cc TELNETasp_PT.cc Native_FunctionDefs.cc SCTPasp_PT.cc CBSP_CodecPort_CtrlFunctdef.cc SABP_EncDec.cc SABP_CodecPort_CtrlFunctDef.cc "
#FILES+="*.ttcnpp "
FILES+="*.asn"