conformance_test/positive_tests/06_types_and_values/0603_type_compatibility/060301_non-structured_types/NegSem_060301_non_structured_types_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:6.3.1, Ensure that the IUT correctly handles assignments from incompatible type ranges
  13  ** @verdict  pass reject
  14  ***************************************************/
  15
  16 module NegSem_060301_non_structured_types_001 {
  17     type integer ConstrainedInt(1..10);
  18
  19         type component GeneralComp {
  20         }
  21
  22         testcase TC_NegSem_060301_non_structured_types_001() runs on GeneralComp {
  23
  24         var integer v_int:= 15;
  25         var ConstrainedInt v_constrainedInt;
  26
  27         v_constrainedInt:= v_int; // 15 not in range 1..10
  28
  29                 if(v_constrainedInt == 15)
  30                 { setverdict(pass); }
  31                 else
  32                 { setverdict(fail); }
  33
  34         }
  35
  36         control{
  37                 execute(TC_NegSem_060301_non_structured_types_001());
  38         }
  39
  40 }