osmo-ttcn3-hacks/hlr/GSUP_Test.ttcn

55 lines
1.1 KiB
Plaintext

module GSUP_Test {
import from GSUP_Types all;
import from IPA_Emulation all;
type component test_CT {
var IPA_Emulation_CT vc_IPA;
var IPA_CCM_Parameters ccm_pars;
port IPA_GSUP_PT GSUP;
};
modulepar {
charstring mp_hlr_ip := "127.0.0.1";
integer mp_hlr_gsup_port := 4222;
integer mp_hlr_ctrl_port := 4259;
};
function f_init() runs on test_CT {
ccm_pars := c_IPA_default_ccm_pars;
ccm_pars.name := "Osmocom TTCN-3 GSUP Simulator";
vc_IPA := IPA_Emulation_CT.create("IPA");
map(vc_IPA:IPA_PORT, system:IPA_CODEC_PT);
connect(vc_IPA:IPA_GSUP_PORT, self:GSUP);
vc_IPA.start(IPA_Emulation.main_client(mp_hlr_ip, mp_hlr_gsup_port, "", -1, ccm_pars));
}
testcase TC_gsup_sai_err_invalid_imsi() runs on test_CT {
var hexstring imsi;
timer T := 10.0;
f_init();
imsi := '01234'H;
GSUP.send(valueof(ts_GSUP_SAI_REQ(imsi)));
T.start;
alt {
[] GSUP.receive(tr_GSUP_SAI_ERR(imsi, 17)) {
setverdict(pass);
}
[] GSUP.receive(tr_GSUP_SAI_RES(imsi)) {
setverdict(fail);
}
[] T.timeout {
setverdict(inconc);
}
}
}
control {
execute( TC_gsup_sai_err_invalid_imsi() );
};
};