Commit 3614be31 authored by stancakapost's avatar stancakapost
Browse files

don't send string patterns

parent 8d15ef86
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -23,7 +23,7 @@ type record MyMessageType {

template MyMessageType m_myTemplate(integer p_myFormalParam):= {
	field1 := p_myFormalParam, 
	field2 := pattern "abc*xyz", 
	field2 := "abcxyz", 
	field3 := true
}

+1 −1
Original line number Diff line number Diff line
@@ -24,7 +24,7 @@ type record MyMessageType {
testcase TC_Syn_1503_GlobalAndLocalTemplates_003() runs on GeneralComp {
	template MyMessageType m_myTemplate(integer p_myFormalParam):= {
		field1 := p_myFormalParam, 
		field2 := pattern "abc*xyz", 
        field2 := "abcxyz", 
		field3 := true
	}
	
+2 −2
Original line number Diff line number Diff line
@@ -23,13 +23,13 @@ type record MyMessageType {

template MyMessageType m_myTemplate(integer p_myFormalParam):= {
	field1 := p_myFormalParam, 
	field2 := pattern "abc*xyz", 
    field2 := "abc1xyz", 
	field3 := omit
}

template MyMessageType m_myOtherTemplate(template MyMessageType p_myTemplate):= {
	field1 := 2, 
	field2 := pattern "abc*xyz", 
    field2 := "abcxyz", 
	field3 := p_myTemplate
}

+1 −1
Original line number Diff line number Diff line
@@ -23,7 +23,7 @@ type record MyMessageType {

template MyMessageType m_myOtherTemplate(template MyMessageType p_myTemplate):= {
	field1 := 2, 
	field2 := pattern "abc*xyz", 
    field2 := "abcxyz", 
	field3 := p_myTemplate
}

+3 −3
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@
 ** @verdict  pass accept, ttcn3verdict:pass
 *****************************************************************/

module Sem_1504_InlineTemplates_001 {
module NegSem_1504_InlineTemplates_001 {

type port MyMessagePortType message {
	inout MyMessageType
@@ -21,7 +21,7 @@ type record MyMessageType {
	boolean field3
}

testcase TC_Sem_1504_InlineTemplates_001() runs on GeneralComp {
testcase TC_NegSem_1504_InlineTemplates_001() runs on GeneralComp {
	if ((MyMessageType:{2,"foobar",true}).field1 == 2) {
		setverdict(fail);
	} else {
@@ -30,6 +30,6 @@ testcase TC_Sem_1504_InlineTemplates_001() runs on GeneralComp {
}

control{
    execute(TC_Sem_1504_InlineTemplates_001());
    execute(TC_NegSem_1504_InlineTemplates_001());
}
}
 No newline at end of file
Loading