conformance_test/positive_tests/10_constants/Syn_10_Constants_001.ttcn

   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
   7  *
   8  * Contributors:
   9  *   Adrien Kirjak – initial implementation
  10  *
  11  ** @version  0.0.1
  12  ** @purpose  1:10, Create constants
  13  ** @verdict  pass accept, noexecution
  14  ***************************************************/
  15 module Syn_10_Constants_001 {
  16     const integer c_i1 := 5, c_i2 := 3;
  17     const float c_f := 3.14E-4;
  18     const boolean c_b := true, c_b2 := false;
  19     const bitstring c_bs := '1011'B;
  20
  21         type component GeneralComp {}
  22
  23         testcase TC_Syn_10_Constants_001() runs on GeneralComp
  24         { setverdict(pass);     }
  25
  26         control
  27         { execute(TC_Syn_10_Constants_001()); }
  28 }