/******************************************************************************
 * Copyright (c) 2000-2025 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v2.0
 * which accompanies this distribution, and is available at
 * https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
 *
 * Contributors:
 *   Balasko, Jeno
 *   Kulcsar, Endre
 *   Szabados, Kristof
 *
 ******************************************************************************/
module Test350T
{
import from Test350A all;

const MySequenceType mySequenceValue1B :=
{
field1 := 55,
field2 := true,
field3 := '001100'B,
field4 := 'FFAAFF'O,
field5 := {
            field1 := 555,
	    field2 := true,
            field4 := 'FF00'O,
	    field5 := '01010'B,
	    field6 := a1
          //  field7 := 4.5 REAL NOT SUPP
          },
field6 :=
          {
           field5  := '01010'B,
	   field6  := b2,
          // field7  := 3.5, REAL NOT SUPP
           field1  := 444,
	   field2  := false,
	   field4  := 'FFEEDDCCBBAA012345678900'O
	   },
field7 := {field1 := 5}
}

const MySequenceType mySequenceValue2B :=
{
field1 := 55,
field2 := true,
field3 := omit,
field4 := 'AA'O,  // vita targya, hogy ide johet-e omit
field5 :={
            field1 := 555,
	    field2 := true,
            field4 := 'FF00'O,
	    field5 := '01010'B,
	    field6 := a1
           // field7 := 4.5 REAL NOT SUPP
          },
field6 :=
          {
           field5  := '01010'B,
	   field6  := b2,
          // field7  := 3.5,REAL NOT SUPP
           field1  := 444,
	   field2  := false,
	   field4  := 'ABCD012345678900'O
	   },
field7 := {field1 := 5}
}

type component MyMainComponent
    {}

testcase Test() runs on MyMainComponent
{

if ((mySequenceValue1A == mySequenceValue1B) and (mySequenceValue2A ==
mySequenceValue2B))
   {setverdict ( pass );}
 else {  setverdict ( fail );}

}

control
    {
    execute (Test())
    }

}
