Sync with 5.4.0

[deliverable/titan.core.git] / regression_test / ASN1 / Test360 / Test360T.ttcn

/******************************************************************************
 * Copyright (c) 2000-2015 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 ******************************************************************************/
module Test360T
{

import from Test360A all;

const MyChoiceType myChoiceValue1B
:= {field1 := 347}

const MyChoiceType myChoiceValue2B
:= {field2 := true}

const MyChoiceType myChoiceValue3B
:= {field3 := '0011'B}

const MyChoiceType myChoiceValue4B
:= {field4 := 'FFFF'O}

const MyChoiceType myChoiceValue5B
:= {field5  :=
{
field1 := 67,
field2 := false,
field4 := 'FFAA66'O,
field5 := '010101'B,
field6 := a1
}}

const MyChoiceType myChoiceValue6B
:= {field6  :=
{
 field1 := 439,
 field2 := true,
 field5 := '001100'B,
 field6 := b2,
 field4 := 'AA'O
}}

const MyChoiceType myChoiceValue7B
:=  {field7 := {field5 := '101010'B  } }

type component MyMainComponent
    {}

testcase Test() runs on MyMainComponent
{

if ((myChoiceValue1A == myChoiceValue1B)
and (myChoiceValue2A == myChoiceValue2B)
and (myChoiceValue3A == myChoiceValue3B)
and (myChoiceValue4A == myChoiceValue4B)
and (myChoiceValue5A == myChoiceValue5B)
and (myChoiceValue6A == myChoiceValue6B)
and (myChoiceValue7A == myChoiceValue7B))
   {setverdict ( pass );}
 else {  setverdict ( fail );}

}

control
    {
    execute (Test())
    }

}