Issue574.ttcn 1.12 KB
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
/******************************************************************************
 * Copyright (c) 2000-2021 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v2.0
 * which accompanies this distribution, and is available at
 * https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
 *
 * Contributors:
 *   Gabor, Szalai – initial implementation
 *
 ******************************************************************************/

module Issue574 {


type component CT {};

type enumerated my_enum{ a(0), b(1)} with {variant "FIELDLENGTH(32)"}

type union my_union{
  my_enum f1,
  octetstring f2
}

template my_union t_expected:={f2:='FFFFFFFF'O}



testcase tc_issue574() runs on CT {
  var bitstring vl_encoded:='11111111111111111111111111111111'B
  var my_union vl_pdu
  var integer vl_res:=decvalue(vl_encoded,vl_pdu)
  
  log(vl_res)
  log(vl_pdu)
  if(vl_res == 0 and match(vl_pdu,t_expected)){
    setverdict(pass)
  } else {
    setverdict(fail)
  }
}
  
  
  


control {
  execute(tc_issue574());
}

} with {
  encode "RAW"
}