Sync with 5.4.0

[deliverable/titan.core.git] / regression_test / ASN1 / Test303 / Test303T.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 Test303T
{
import from Test303A all;

type bitstring MyBitstringType2

const MyBitstringType2 myBitstringValue2 := '100001'B

const MyBitstringType1 myBitstringValue3 := '100001'B




type component MyMainComponent
    {}


testcase Test1() runs on MyMainComponent
{
var MyBitstringType1 myBitstringValue4 := '100001'B

var MyBitstringType2 myBitstringValue5 := '100001'B

if ((myBitstringValue1 == myBitstringValue2)
and (myBitstringValue1 == myBitstringValue3)
and (myBitstringValue1 == myBitstringValue4)
and (myBitstringValue1 == myBitstringValue5))
 {setverdict ( pass );}
  else {  setverdict ( fail );}
}

testcase Test2() runs on MyMainComponent
{
// For TR934 (HT).
if (myGeneralStringValue1 == "General") { setverdict(pass) } else { setverdict(fail) }
if ("General" == myGeneralStringValue1) { setverdict(pass) } else { setverdict(fail) }
}

control
    {
    execute (Test1())
    execute (Test2())
    }
}