Selftest: Add first baby-steps for self-testing our TTCN-3 library code

This commit is contained in:
Harald Welte 2017-12-12 14:56:02 +01:00
parent 735dd07b38
commit f6bd980fdd
4 changed files with 194 additions and 0 deletions

19
selftest/Selftest.cfg Normal file
View File

@ -0,0 +1,19 @@
[LOGGING]
#FileMask := LOG_ALL | TTCN_DEBUG | TTCN_MATCHING | DEBUG_ENCDEC;
#ConsoleMask := ERROR | WARNING | TESTCASE | TTCN_MATCHING | DEBUG_ENCDEC
#FileMask := LOG_ALL | TTCN_MATCHING;
BSSAP.FileMask := LOG_NOTHING;
"VirtMSC-M3UA".FileMask := ERROR | WARNING;
"VirtMSC-SCCP".FileMask := ERROR | WARNING;
"IPA0-RSL-IPA".FileMask := ERROR | WARNING;
"IPA0-CTRL-IPA".FileMask := ERROR | WARNING;
mtc.FileMask := LOG_ALL | TTCN_DEBUG | TTCN_MATCHING | DEBUG_ENCDEC;
[TESTPORT_PARAMETERS]
[MODULE_PARAMETERS]
[MAIN_CONTROLLER]
[EXECUTE]
Selftest.control

104
selftest/Selftest.ttcn Normal file
View File

@ -0,0 +1,104 @@
module Selftest {
import from General_Types all;
import from Osmocom_Types all;
import from GSM_Types all;
import from IPL4asp_Types all;
import from IPL4asp_PortType all;
import from MTP3asp_PortType all;
import from BSSAP_Types all;
//import from BSSAP_Adapter all;
import from BSSAP_CodecPort all;
import from BSSMAP_Templates all;
import from IPA_Emulation all;
import from IPA_Types all;
import from RSL_Types all;
import from Osmocom_CTRL_Functions all;
import from Osmocom_CTRL_Types all;
import from MobileL3_CommonIE_Types all;
import from L3_Templates all;
import from GSM_RR_Types all;
type component IPA_selftest_CT {
/* upper end of IPA_Emulation */
port MTP3asp_PT IPA_MTP3;
port IPA_MGCP_PT IPA_MGCP;
port IPA_RSL_PT IPA_RSL;
port IPA_CTRL_PT IPA_CTRL;
port IPA_SP_PT IPA_SP;
var IPA_Emulation_CT vc_IPA;
/* raw IP port */
port IPL4asp_PT IP;
var ConnectionId g_ip_conn_id := -1;
}
function f_ipa_srv_init() runs on IPA_selftest_CT {
vc_IPA := IPA_Emulation_CT.create("IPA_Emulation");
map(vc_IPA:IPA_PORT, system: IPA_CODEC_PT);
connect(vc_IPA:IPA_MGCP_PORT, self:IPA_MGCP);
connect(vc_IPA:IPA_RSL_PORT, self:IPA_RSL);
connect(vc_IPA:IPA_CTRL_PORT, self:IPA_CTRL);
connect(vc_IPA:MTP3_SP_PORT, self:IPA_MTP3);
vc_IPA.start(IPA_Emulation.main_server("127.0.0.1", 55555));
}
function f_ipa_wait_up() runs on IPA_selftest_CT {
interleave {
[] IPA_RSL.receive(t_ASP_IPA_EVT_UD(ASP_IPA_EVENT_UP));
[] IPA_CTRL.receive(t_ASP_IPA_EVT_UD(ASP_IPA_EVENT_UP));
}
}
function f_tcp_client_init() runs on IPA_selftest_CT {
var Result res;
map(self:IP, system:IP);
res := IPL4asp_PortType.f_IPL4_connect(IP, "127.0.0.1", 55555, "", -1,-1, {tcp:={}});
g_ip_conn_id := res.connId;
}
template ASP_Send ts_ASP_Send(ConnectionId id, template octetstring tx) := {
connId := id,
proto := omit,
msg := tx
}
testcase TC_ipa_fragment() runs on IPA_selftest_CT {
var integer i;
var octetstring tx_buf;
var RSL_Message rsl;
f_ipa_srv_init();
f_tcp_client_init();
f_ipa_wait_up();
rsl := valueof(ts_RSL_CHAN_RQD('23'O, 2342));
tx_buf := enc_PDU_IPA(valueof(ts_PDU_IPA(IPAC_PROTO_RSL_TRX0, enc_RSL_Message(rsl))));
/* send in rapid sequence to fill multiple messages in one TCP segment */
for (i := 0; i < 10; i := i+1) {
IP.send(ts_ASP_Send(g_ip_conn_id, tx_buf));
}
timer T:= 1.0;
T.start;
T.timeout;
for (i := 0; i < 10; i := i+1) {
IPA_RSL.receive(tr_ASP_RSL_UD(IPAC_PROTO_RSL_TRX0, rsl));
}
setverdict(pass);
}
control {
execute( TC_ipa_fragment() );
}
}

56
selftest/gen_links.sh Executable file
View File

@ -0,0 +1,56 @@
#!/bin/sh
BASEDIR=~/projects/git
gen_links() {
DIR=$1
FILES=$*
for f in $FILES; do
echo "Linking $f"
ln -sf $DIR/$f $f
done
}
#DIR=$BASEDIR/titan.TestPorts.UNIX_DOMAIN_SOCKETasp/src
#FILES="UD_PT.cc UD_PT.hh UD_PortType.ttcn UD_Types.ttcn"
#gen_links $DIR $FILES
DIR=$BASEDIR/titan.Libraries.TCCUsefulFunctions/src
FILES="TCCInterface_Functions.ttcn TCCConversion_Functions.ttcn TCCConversion.cc TCCConversion.hh TCCInterface.cc TCCInterface_ip.h SDP_EncDec.cc"
gen_links $DIR $FILES
DIR=$BASEDIR/titan.TestPorts.Common_Components.Socket-API/src
FILES="Socket_API_Definitions.ttcn"
gen_links $DIR $FILES
# Required by MGCP and IPA
DIR=$BASEDIR/titan.TestPorts.IPL4asp/src
FILES="IPL4asp_Functions.ttcn IPL4asp_PT.cc IPL4asp_PT.hh IPL4asp_PortType.ttcn IPL4asp_Types.ttcn IPL4asp_discovery.cc IPL4asp_protocol_L234.hh"
gen_links $DIR $FILES
# required by IPA Emulation
DIR=../MTP3asp_CNL113337/src
FILES="MTP3asp_PortType.ttcn MTP3asp_Types.ttcn"
gen_links $DIR $FILES
DIR=../SCCP_CNL113341/src
FILES="SCCP_Emulation.ttcn SCCP_Mapping.ttcnpp SCCP_Types.ttcn SCCPasp_Types.ttcn"
gen_links $DIR $FILES
ln -sf SCCP_Mapping.ttcnpp SCCP_Mapping.ttcn
DIR=$BASEDIR/titan.ProtocolModules.BSSMAP_v11.2.0/src
FILES="BSSAP_Types.ttcn"
gen_links $DIR $FILES
DIR=$BASEDIR/titan.ProtocolModules.MobileL3_v13.4.0/src
FILES="MobileL3_CC_Types.ttcn MobileL3_CommonIE_Types.ttcn MobileL3_GMM_SM_Types.ttcn MobileL3_MM_Types.ttcn MobileL3_RRM_Types.ttcn MobileL3_SMS_Types.ttcn MobileL3_SS_Types.ttcn MobileL3_Types.ttcn"
gen_links $DIR $ILES
DIR=$BASEDIR/titan.ProtocolModules.SDP/src
FILES="SDP_EncDec.cc SDP_Types.ttcn SDP_parse_.tab.c SDP_parse_.tab.h SDP_parse_parser.h SDP_parser.l
SDP_parser.y lex.SDP_parse_.c"
gen_links $DIR $FILES
DIR=../library
FILES="General_Types.ttcn Osmocom_Types.ttcn GSM_Types.ttcn IPA_Types.ttcn IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc IPA_Emulation.ttcn L3_Templates.ttcn BSSMAP_Templates.ttcn RLCMAC_CSN1_Types.ttcn GSM_RR_Types.ttcn RSL_Types.ttcn MGCP_Types.ttcn MGCP_Templates.ttcn BSSAP_CodecPort.ttcn Osmocom_CTRL_Types.ttcn Osmocom_CTRL_Functions.ttcn"
gen_links $DIR $FILES

15
selftest/regen_makefile.sh Executable file
View File

@ -0,0 +1,15 @@
#!/bin/sh
MAIN=Selftest.ttcn
FILES="*.ttcn IPA_CodecPort_CtrlFunctDef.cc IPL4asp_PT.cc IPL4asp_discovery.cc TCCConversion.cc TCCInterface.cc SDP_EncDec.cc *.c"
ttcn3_makefilegen -l -f $MAIN $FILES
#sed -i -e 's/# TTCN3_DIR = /TTCN3_DIR = \/usr/' Makefile
sed -i -e 's/LDFLAGS = /LDFLAGS = -L \/usr\/lib\/titan /' Makefile
#sed -i -e 's/TTCN3_LIB = ttcn3-parallel/TTCN3_LIB = ttcn3/' Makefile
sed -i -e 's/CPPFLAGS = -D$(PLATFORM) -I$(TTCN3_DIR)\/include/CPPFLAGS = -D$(PLATFORM) -I$(TTCN3_DIR)\/include -I\/usr\/include\/titan/' Makefile
# for TITAN 6.3.0
sed -i -e 's/TTCN3_DIR = $/TTCN3_DIR = \/usr/' Makefile
sed -i -e 's/\/bin\/compiler/\/bin\/ttcn3_compiler/' Makefile