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:21.3.5, Verify that any from alive doesn't change index variable when no component is alive
13 ** @verdict pass accept, ttcn3verdict:pass
14 *****************************************************************/
15 // The following requirements are tested:
16 // The index of the first component found alive can optionally be assigned to an integer
17 // variable for single-dimensional component arrays
18 module Sem_210305_alive_operation_012 {
20 type component GeneralComp {}
22 testcase TC_Sem_210305_alive_operation_012() runs on GeneralComp system GeneralComp {
23 var boolean v_isAlive;
24 const integer c_size := 4;
25 var GeneralComp v_ptc[c_size];
26 var integer v_index := 99;
28 for (var integer i := 0; i < c_size; i := i + 1) {
29 v_ptc[i] := GeneralComp.create;
33 v_isAlive := any from v_ptc.alive -> @index v_index;
38 setverdict(fail, "Index incorrectly assigned");
43 execute(TC_Sem_210305_alive_operation_012(), 5000.0);