Commit 9d6fb669 authored by zeiss's avatar zeiss
Browse files

No commit message 

No commit message
parent be73f05f

15_templates/1511_concatenating_templates_of_string_and_list_types/NegSem_1511_ConcatenatingTemplatesOfStringAndListTypes_001.ttcn

+2 −6
Original line number Diff line number Diff line
@@ -12,12 +12,8 @@ type component GeneralComp { } 
testcase TC_NegSem_1511_ConcatenatingTemplatesOfStringAndListTypes_001() runs on GeneralComp {

	var template octetstring v_str := 'ABCD'O & '?'O & '?E'O;



	// shall cause an error as it would denote 9 (i.e., uneven) number of digits

	if (v_str == 'ABCD??E'O) { 

	// shall cause an error as it would denote 7 (i.e., uneven) number of digits

	setverdict(fail);

	} else {

		setverdict(pass);

	}

}



control{

15_templates/1511_concatenating_templates_of_string_and_list_types/NegSem_1511_ConcatenatingTemplatesOfStringAndListTypes_003.ttcn

0 → 100644
+23 −0
Original line number Diff line number Diff line 
/*****************************************************************

 ** @author   STF 409

 ** @version  $Rev: 150 $

 ** @purpose  1:15.10, Ensure that a simple concatenation of non-wildcard octetstring must not yield in a non-even number of hexadecimals.

 ** @verdict  pass accept, ttcn3verdict:pass

 *****************************************************************/



module NegSem_1511_ConcatenatingTemplatesOfStringAndListTypes_003 {



type component GeneralComp { }



testcase TC_NegSem_1511_ConcatenatingTemplatesOfStringAndListTypes_003() runs on GeneralComp {

	var template octetstring v_str := "AB" & "0F" & "2A" & "F";



	// shall cause an error as the length of the concantenated octetstring is is uneven

	setverdict(fail);

}



control{

    execute(TC_NegSem_1511_ConcatenatingTemplatesOfStringAndListTypes_003());

}



}
 
 No newline at end of file

15_templates/1511_concatenating_templates_of_string_and_list_types/Sem_1511_ConcatenatingTemplatesOfStringAndListTypes_001.ttcn

+1 −1
Original line number Diff line number Diff line
@@ -11,7 +11,7 @@ type component GeneralComp { } 


testcase TC_Sem_1511_ConcatenatingTemplatesOfStringAndListTypes_001() runs on GeneralComp {

	var template charstring v_myChar1 := "ABC" & "D*" & "E?F";

	if (v_myChar1 == "ABCD*E?F") {

	if (match("ABCD22E1F", v_myChar1)) {

		setverdict(pass);

	} else {

		setverdict(fail);

15_templates/1511_concatenating_templates_of_string_and_list_types/Sem_1511_ConcatenatingTemplatesOfStringAndListTypes_002.ttcn

+1 −1
Original line number Diff line number Diff line
@@ -11,7 +11,7 @@ type component GeneralComp { } 


testcase TC_Sem_1511_ConcatenatingTemplatesOfStringAndListTypes_002() runs on GeneralComp {

	var template charstring v_myChar1 := "ABC" & * length(2) & "E?F";

	if (v_myChar1 == "ABC??E?F") {

	if (match("ABC22E4F",v_myChar1)) {

		setverdict(pass);

	} else {

		setverdict(fail);

15_templates/1511_concatenating_templates_of_string_and_list_types/Sem_1511_ConcatenatingTemplatesOfStringAndListTypes_003.ttcn

+1 −1
Original line number Diff line number Diff line
@@ -12,7 +12,7 @@ type component GeneralComp { } 
testcase TC_Sem_1511_ConcatenatingTemplatesOfStringAndListTypes_003() runs on GeneralComp {

	var template bitstring v_myBitStr := '010'B & '*'B & '1?1'B;



	if (v_myBitStr == '010*1?1'B) {

	if (match('010010101101'B, v_myBitStr)) {

		setverdict(pass);

	} else {

		setverdict(fail);