Commit | Line | Data |
---|---|---|
970ed795 | 1 | /****************************************************************************** |
3abe9331 | 2 | * Copyright (c) 2000-2015 Ericsson Telecom AB |
970ed795 EL |
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 | module Test303T | |
9 | { | |
10 | import from Test303A all; | |
11 | ||
12 | type bitstring MyBitstringType2 | |
13 | ||
14 | const MyBitstringType2 myBitstringValue2 := '100001'B | |
15 | ||
16 | const MyBitstringType1 myBitstringValue3 := '100001'B | |
17 | ||
18 | ||
19 | ||
20 | ||
21 | type component MyMainComponent | |
22 | {} | |
23 | ||
24 | ||
25 | testcase Test1() runs on MyMainComponent | |
26 | { | |
27 | var MyBitstringType1 myBitstringValue4 := '100001'B | |
28 | ||
29 | var MyBitstringType2 myBitstringValue5 := '100001'B | |
30 | ||
31 | if ((myBitstringValue1 == myBitstringValue2) | |
32 | and (myBitstringValue1 == myBitstringValue3) | |
33 | and (myBitstringValue1 == myBitstringValue4) | |
34 | and (myBitstringValue1 == myBitstringValue5)) | |
35 | {setverdict ( pass );} | |
36 | else { setverdict ( fail );} | |
37 | } | |
38 | ||
39 | testcase Test2() runs on MyMainComponent | |
40 | { | |
41 | // For TR934 (HT). | |
42 | if (myGeneralStringValue1 == "General") { setverdict(pass) } else { setverdict(fail) } | |
43 | if ("General" == myGeneralStringValue1) { setverdict(pass) } else { setverdict(fail) } | |
44 | } | |
45 | ||
46 | control | |
47 | { | |
48 | execute (Test1()) | |
49 | execute (Test2()) | |
50 | } | |
51 | } |