conformance_test/positive_tests added
[deliverable/titan.core.git] / conformance_test / positive_tests / 15_templates / 1505_modified_templates / Sem_1505_ModifiedTemplates_002.ttcn
1 /******************************************************************************
2 * Copyright (c) 2000-2016 Ericsson Telecom AB
3 * All rights reserved. This program and the accompanying materials
4 * are made available under the terms of the Eclipse Public License v1.0
5 * which accompanies this distribution, and is available at
6 * http://www.eclipse.org/legal/epl-v10.html
7 *
8 * Contributors:
9 * Adrien Kirjak – initial implementation
10 *
11 ** @version 0.0.1
12 ** @purpose 1:15.5, Ensure that a modified template of a record of type using index notation access works as expected.
13 ** @verdict pass accept, ttcn3verdict:pass
14 *****************************************************************/
15
16 module Sem_1505_ModifiedTemplates_002 {
17
18 type component GeneralComp {
19 }
20
21 type record of integer MyMessageType;
22
23 template MyMessageType m_myBaseTemplate := { 0, 1, 2, 3, 4 };
24
25 template MyMessageType m_myOtherTemplate modifies m_myBaseTemplate := {
26 [2]:=3, // switch the positions of 2 and 3
27 [3]:=2
28 }
29
30 testcase TC_Sem_1505_ModifiedTemplates_002() runs on GeneralComp {
31 if (match(valueof(m_myOtherTemplate[0]), 0) and
32 match(valueof(m_myOtherTemplate[1]), 1) and
33 match(valueof(m_myOtherTemplate[2]), 3) and
34 match(valueof(m_myOtherTemplate[3]), 2) and
35 match(valueof(m_myOtherTemplate[4]), 4)
36 ) {
37 setverdict(pass);
38 } else {
39 setverdict(fail);
40 }
41 }
42
43 control{
44 execute(TC_Sem_1505_ModifiedTemplates_002());
45 }
46
47 }
This page took 0.047198 seconds and 5 git commands to generate.