regression_test/ASN1/Test358/Test358T.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2014 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 Test358T
   9 {
  10
  11 import from Test358A all;
  12
  13 const MyEnumeratedType myEnumeratedValue1B := first
  14
  15 const MyEnumeratedType myEnumeratedValue2B := second
  16
  17 const MyEnumeratedType myEnumeratedValue3B := third
  18
  19 type component MyMainComponent
  20     {}
  21
  22 testcase Test() runs on MyMainComponent
  23 {
  24
  25 if ((myEnumeratedValue1A == myEnumeratedValue1B)
  26 and (myEnumeratedValue2A == myEnumeratedValue2B)
  27 and (myEnumeratedValue3A == myEnumeratedValue3B))
  28
  29    {setverdict ( pass );}
  30  else {  setverdict ( fail );}
  31
  32 }
  33
  34 control
  35     {
  36     execute (Test())
  37     }
  38
  39 }