conformance_test/positive_tests/06_types_and_values/0602_structured_types_and_values/060213_subtyping_of_structured_types/06021301_length_subtyping/Syn_06021301_LengthSubtyping_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.2.13.1, The length subtyping check for 'record of' or 'set of' types
  13  ** @verdict  pass accept, noexecution
  14  ***************************************************/
  15 module Syn_06021301_LengthSubtyping_001 {
  16         type record length(10) of integer RecordOfLength10;                                     //direct subtyping
  17         type record length(0..10) of integer RecordOfLengthLessThan10;          //direct subtyping
  18
  19         type RecordOfLengthLessThan10 RecordOfLength6 length(6);                        //referenced subtyping
  20         type RecordOfLengthLessThan10 RecordOfLength4To5 length(4..5);          //referenced subtyping
  21
  22         type component GeneralComp {}
  23
  24         testcase TC_Syn_06021301_LengthSubtyping_001() runs on GeneralComp
  25         { setverdict(pass);     }
  26
  27         control
  28         { execute(TC_Syn_06021301_LengthSubtyping_001()); }
  29
  30 }