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
9 * Adrien Kirjak – initial implementation
12 ** @purpose 1:6.2.12, Ensure that the right port address is used
13 ** @verdict pass accept, ttcn3verdict:pass
14 ***************************************************/
15 module Sem_060212_AddressingEntitiesInsideSut_002 {
18 type port PortType1 message {
21 } with {extension "internal"}
23 type port PortType2 message {
25 } with {extension "internal"}
27 type component TestCaseComp {
32 testcase TC_Sem_060212_AddressingEntitiesInsideSut_002() runs on TestCaseComp system TestCaseComp {
34 var address v_int := 1;
35 var PortType1.address v_char := "test";
37 map(mtc:p1, system:p1);
38 map(mtc:p2, system:p2);
40 // port 1 has charstring address
43 // port 2 has integer address
51 execute(TC_Sem_060212_AddressingEntitiesInsideSut_002());