regression_test/ASN1/Test360/Test360T.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2015 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
   7  ******************************************************************************/
   8 module Test360T
   9 {
  10
  11 import from Test360A all;
  12
  13 const MyChoiceType myChoiceValue1B
  14 := {field1 := 347}
  15
  16 const MyChoiceType myChoiceValue2B
  17 := {field2 := true}
  18
  19 const MyChoiceType myChoiceValue3B
  20 := {field3 := '0011'B}
  21
  22 const MyChoiceType myChoiceValue4B
  23 := {field4 := 'FFFF'O}
  24
  25 const MyChoiceType myChoiceValue5B
  26 := {field5  :=
  27 {
  28 field1 := 67,
  29 field2 := false,
  30 field4 := 'FFAA66'O,
  31 field5 := '010101'B,
  32 field6 := a1
  33 }}
  34
  35 const MyChoiceType myChoiceValue6B
  36 := {field6  :=
  37 {
  38  field1 := 439,
  39  field2 := true,
  40  field5 := '001100'B,
  41  field6 := b2,
  42  field4 := 'AA'O
  43 }}
  44
  45 const MyChoiceType myChoiceValue7B
  46 :=  {field7 := {field5 := '101010'B  } }
  47
  48 type component MyMainComponent
  49     {}
  50
  51 testcase Test() runs on MyMainComponent
  52 {
  53
  54 if ((myChoiceValue1A == myChoiceValue1B)
  55 and (myChoiceValue2A == myChoiceValue2B)
  56 and (myChoiceValue3A == myChoiceValue3B)
  57 and (myChoiceValue4A == myChoiceValue4B)
  58 and (myChoiceValue5A == myChoiceValue5B)
  59 and (myChoiceValue6A == myChoiceValue6B)
  60 and (myChoiceValue7A == myChoiceValue7B))
  61    {setverdict ( pass );}
  62  else {  setverdict ( fail );}
  63
  64 }
  65
  66 control
  67     {
  68     execute (Test())
  69     }
  70
  71 }