conformance_test/positive_tests/06_types_and_values/0603_type_compatibility/060301_non-structured_types/NegSem_060301_non_structured_types_005.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_005 {
  17     type bitstring ConstrainedBitString ('01'B, '10'B, '11'B);
  18
  19         type component GeneralComp {
  20         }
  21
  22         testcase TC_NegSem_060301_non_structured_types_005() runs on GeneralComp {
  23
  24                 var bitstring v_bitstr := '00'B;
  25                 var ConstrainedBitString v_constrainedBitstr;
  26
  27
  28                 v_constrainedBitstr:=v_bitstr; // value '00'B not in ConstrainedBitString type
  29
  30                 if(v_constrainedBitstr == '00'B)
  31                 { setverdict(pass); }
  32                 else
  33                 { setverdict(fail); }
  34
  35         }
  36
  37         control{
  38                 execute(TC_NegSem_060301_non_structured_types_005());
  39         }
  40
  41 }