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.0.6, ensure that ensure that anytype comprise octetstring and charstring
13 ** @verdict pass accept, ttcn3verdict:pass
14 ***************************************************/
15 module Sem_060206_anytype_006 {
17 type component GeneralComp {
19 var anytype MyVarOne, MyVarTwo;
20 var octetstring MyVarThree;
21 var charstring MyString1;
24 testcase TC_Sem_060206_anytype_006() runs on GeneralComp {
26 MyVarOne.octetstring := 'FF70'O; //a float in anytype
27 MyVarTwo.charstring := "abc"; // a charstring in the same anytype
29 MyVarThree := MyVarOne.octetstring;
30 MyString1 := MyVarTwo.charstring&"def"; // "abc" & "def" =>"abcdef"
32 if ( match(MyVarThree, 'FF70'O) and match(MyString1, "abcdef") ) {
42 execute(TC_Sem_060206_anytype_006());
47 extension "anytype octetstring, charstring"