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.2, The dot notation used in set type definitions is correctly handled
13 ** @verdict pass accept, ttcn3verdict:pass
14 ***************************************************/
15 module Sem_060202_SetTypeValues_001 {
17 type component GeneralComp {
21 integer field1 (1 .. 10),
22 charstring field2 optional
25 //type S ConstrainedSet ({1, omit}, {2, "xyz"}, {3, "zyx"}) ; // value list doesn't work
26 type S ConstrainedSet ({field1 := 1, field2 := omit}, {field1 := 2, field2 := "xyz"}, {field1 := 3, field2 := "zyx"}) ;
28 type ConstrainedSet.field1 MyInteger;
30 testcase TC_Sem_060202_SetTypeValues_001() runs on GeneralComp {
32 var MyInteger v_int := 9; // v_int is allowed in (1 .. 10) range
44 execute(TC_Sem_060202_SetTypeValues_001());