blob: 5ddd360d00abfde3726c7c5789d70de313c7e80a [file] [log] [blame]
///////////////////////////////////////////////////////////////////////////////
// //
// Copyright Test Competence Center (TCC) ETH 2006 //
// //
// The copyright to the computer program(s) herein is the property of TCC. //
// The program(s) may be used and/or copied only with the written permission //
// of TCC or in accordance with the terms and conditions stipulated in the //
// agreement/contract under which the program(s) has been supplied. //
// //
///////////////////////////////////////////////////////////////////////////////
//
// File: SDP_test.ttcn
// Rev: R5A01
// Prodnr: CNL 113 353
// Updated: 2009-05-25
// Contact: http://ttcn.ericsson.se
// Reference: ITU-T SDP
module SDP_test
{
import from SDP_Types all;
import from SDP_Templates all;
type component MTC {}
type record length(2) of integer intv;
type record of intv UnsuccList;
testcase tc_BasicTest() runs on MTC
{
var SDP_Message v_SDP_Message;
var charstring v_result;
var integer i, j, succ_c:=0, unsucc_c:=0;
var UnsuccList unsucc;
for (j := 0; j < sizeof(TestMessages); j := j + 1) {
for (i := 0; i < sizeof(TestMessages[j]); i := i + 1) {
log("############################################");
log("############################ ",j," : ",i);
log("###Message to be decoded:", TestMessages[j][i])
f_SDP_decodeMessage(TestMessages[j][i],v_SDP_Message);
log("###Decoded message (to be encoded again):", v_SDP_Message)
v_result := f_SDP_enc_Message(v_SDP_Message);
log("###Re-encoded message:", v_result);
if (v_result == TestMessages[j][0])
{
log("###", j," : ", i, "!!!Succesfully compared!!!");
setverdict(pass);
succ_c := succ_c + 1;
}
else
{
log("###", j," : ", i, "!!!Comparison UNSUCCESFUL!!!");
setverdict(inconc);
unsucc[unsucc_c] := {j, i};
unsucc_c := unsucc_c + 1;
};
log("############################################")
}
}
log("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!");
log("Pass: ", succ_c, " Fail: ", unsucc_c)
log("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!");
log("Unsuccesful strings:");
for(i:=0;i<unsucc_c;i:=i+1)
{
log("Index: ",unsucc[i]," MESSAGE: ",TestMessages[unsucc[i][0]][unsucc[i][1]])
}
}
}