regression_test/ASN1/Test350/Test350T.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 Test350T
   9 {
  10 import from Test350A all;
  11
  12 const MySequenceType mySequenceValue1B :=
  13 {
  14 field1 := 55,
  15 field2 := true,
  16 field3 := '001100'B,
  17 field4 := 'FFAAFF'O,
  18 field5 := {
  19             field1 := 555,
  20             field2 := true,
  21             field4 := 'FF00'O,
  22             field5 := '01010'B,
  23             field6 := a1
  24           //  field7 := 4.5 REAL NOT SUPP
  25           },
  26 field6 :=
  27           {
  28            field5  := '01010'B,
  29            field6  := b2,
  30           // field7  := 3.5, REAL NOT SUPP
  31            field1  := 444,
  32            field2  := false,
  33            field4  := 'FFEEDDCCBBAA012345678900'O
  34            },
  35 field7 := {field1 := 5}
  36 }
  37
  38 const MySequenceType mySequenceValue2B :=
  39 {
  40 field1 := 55,
  41 field2 := true,
  42 field3 := omit,
  43 field4 := 'AA'O,  // vita targya, hogy ide johet-e omit
  44 field5 :={
  45             field1 := 555,
  46             field2 := true,
  47             field4 := 'FF00'O,
  48             field5 := '01010'B,
  49             field6 := a1
  50            // field7 := 4.5 REAL NOT SUPP
  51           },
  52 field6 :=
  53           {
  54            field5  := '01010'B,
  55            field6  := b2,
  56           // field7  := 3.5,REAL NOT SUPP
  57            field1  := 444,
  58            field2  := false,
  59            field4  := 'ABCD012345678900'O
  60            },
  61 field7 := {field1 := 5}
  62 }
  63
  64 type component MyMainComponent
  65     {}
  66
  67 testcase Test() runs on MyMainComponent
  68 {
  69
  70 if ((mySequenceValue1A == mySequenceValue1B) and (mySequenceValue2A ==
  71 mySequenceValue2B))
  72    {setverdict ( pass );}
  73  else {  setverdict ( fail );}
  74
  75 }
  76
  77 control
  78     {
  79     execute (Test())
  80     }
  81
  82 }