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 Test310T | |
9 | { | |
10 | import from Test310A all; | |
11 | ||
12 | type charstring MyStringType2 | |
13 | ||
14 | // AS A CONSTANT ********************************************* | |
15 | const MyStringType2 myStringValue2 := myVisibleStringValue1 | |
16 | const MyVisibleStringType1 myStringValue3 := "~!@#$%^%&^*()_+`""HAHO"" 1234567890-=qwertyuiop[]\\QWERTYUIOP{}|asdfghjkl;'ASDFGHJKL:zxcvbnm,./ZXCVBNM<>?" | |
17 | // AS A CONSTANT ********************************************* | |
18 | ||
19 | ||
20 | type port MyPort message | |
21 | { | |
22 | inout MyType | |
23 | } with { extension "internal" } | |
24 | ||
25 | type record MyType | |
26 | { | |
27 | charstring field1 | |
28 | } | |
29 | ||
30 | template MyType myMessage(charstring par_String) := | |
31 | { | |
32 | field1 := par_String | |
33 | } | |
34 | ||
35 | template MyType myMessage2(MyVisibleStringType1 par_String) := | |
36 | { | |
37 | field1 := par_String | |
38 | } | |
39 | ||
40 | type component MyMainComponent | |
41 | { | |
42 | port MyPort M_PCO; | |
43 | } | |
44 | ||
45 | type component MyParallelComponent | |
46 | { | |
47 | port MyPort P_PCO; | |
48 | } | |
49 | ||
50 | ||
51 | function handle_msg_on_ptc() runs on MyParallelComponent | |
52 | { | |
53 | ||
54 | // AS A PARAMETER ********************************************* | |
55 | P_PCO.receive (myMessage(myVisibleStringValue1)) | |
56 | P_PCO.receive (myMessage2("~!@#$%^%&^*()_+`""HAHO"" 1234567890-=qwertyuiop[]\\QWERTYUIOP{}|asdfghjkl;'ASDFGHJKL:zxcvbnm,./ZXCVBNM<>?")) | |
57 | // AS A PARAMETER ********************************************* | |
58 | ||
59 | setverdict ( pass ); | |
60 | } | |
61 | testcase Test() runs on MyMainComponent | |
62 | { | |
63 | ||
64 | // AS A VARIABLE ********************************************* | |
65 | var MyStringType2 myStringValue5 := myVisibleStringValue1 | |
66 | var MyVisibleStringType1 myStringValue4 := "~!@#$%^%&^*()_+`""HAHO"" 1234567890-=qwertyuiop[]\\QWERTYUIOP{}|asdfghjkl;'ASDFGHJKL:zxcvbnm,./ZXCVBNM<>?" | |
67 | // AS A VARIABLE ********************************************* | |
68 | ||
69 | var MyParallelComponent myparallelcomponent := MyParallelComponent.create; | |
70 | connect ( mtc:M_PCO, myparallelcomponent: P_PCO ); | |
71 | myparallelcomponent.start(handle_msg_on_ptc()); | |
72 | ||
73 | // AS A PARAMETER ********************************************* | |
74 | M_PCO.send(myMessage(myVisibleStringValue1)) | |
75 | M_PCO.send(myMessage2("~!@#$%^%&^*()_+`""HAHO"" 1234567890-=qwertyuiop[]\\QWERTYUIOP{}|asdfghjkl;'ASDFGHJKL:zxcvbnm,./ZXCVBNM<>?")) | |
76 | // AS A PARAMETER ********************************************* | |
77 | ||
78 | myparallelcomponent.done; | |
79 | } | |
80 | ||
81 | control | |
82 | { | |
83 | execute (Test()) | |
84 | } | |
85 | } | |
86 |