conformance_test/positive_tests/06_types_and_values/0602_structured_types_and_values/060205_unions/06020501_referencing_fields_of_union_type/Sem_06020501_referencing_fields_of_union_type_001.ttcn

   1 /***************************************************
   2  ** @author STF 470
   3  ** @version  0.0.1
   4  ** @purpose 1:6.5.2, Ensure that union is initialized by dot notation
   5  ** @verdict  pass accept, ttcn3verdict:pass
   6  ***************************************************/
   7
   8 module Sem_06020501_referencing_fields_of_union_type_001 {
   9         type union MyUnionType
  10         {
  11                 integer                 number,
  12                 charstring              string
  13         };
  14
  15         type component GeneralComp {
  16         };
  17
  18
  19         testcase TC_Sem_06020501_referencing_fields_of_union_type_001 () runs on GeneralComp {
  20                 var MyUnionType v_mut ;
  21                 v_mut.number := 0;
  22
  23                 if (v_mut.number == 0) {
  24                         setverdict(pass);
  25                 }
  26                 else {
  27                         setverdict(fail);
  28                 }
  29         }
  30
  31         control {
  32                 execute(TC_Sem_06020501_referencing_fields_of_union_type_001());
  33         }
  34 }