1 /******************************************************************************
2 * Copyright (c) 2000-2014 Ericsson Telecom AB
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 ******************************************************************************/
10 import from Test309A all;
12 type charstring MyIA5StringType2
14 // AS A CONSTANT *********************************************
15 const MyIA5StringType2 myIA5StringValue2 := myIA5StringValue1
16 const MyIA5StringType1 myIA5StringValue3 := "~!@#$%^%&^*()_+`""HAHO"" 1234567890-=qwertyuiop[]\\QWERTYUIOP{}|asdfghjkl;'ASDFGHJKL:zxcvbnm,./ZXCVBNM<>?"
17 // AS A CONSTANT *********************************************
20 type port MyPort message
23 } with { extension "internal" }
30 template MyType myMessage(charstring par_IA5String) :=
32 field1 := par_IA5String
35 template MyType myMessage2(MyIA5StringType1 par_IA5String) :=
37 field1 := par_IA5String
40 type component MyMainComponent
45 type component MyParallelComponent
51 function handle_msg_on_ptc() runs on MyParallelComponent
54 // AS A PARAMETER *********************************************
55 P_PCO.receive (myMessage(myIA5StringValue1))
56 P_PCO.receive (myMessage2("~!@#$%^%&^*()_+`""HAHO"" 1234567890-=qwertyuiop[]\\QWERTYUIOP{}|asdfghjkl;'ASDFGHJKL:zxcvbnm,./ZXCVBNM<>?"))
57 // AS A PARAMETER *********************************************
61 testcase Test() runs on MyMainComponent
64 // AS A VARIABLE *********************************************
65 var MyIA5StringType2 myIA5StringValue5 := myIA5StringValue1
66 var MyIA5StringType1 myIA5StringValue4 := "~!@#$%^%&^*()_+`""HAHO"" 1234567890-=qwertyuiop[]\\QWERTYUIOP{}|asdfghjkl;'ASDFGHJKL:zxcvbnm,./ZXCVBNM<>?"
67 // AS A VARIABLE *********************************************
69 var MyParallelComponent myparallelcomponent := MyParallelComponent.create;
70 connect ( mtc:M_PCO, myparallelcomponent: P_PCO );
71 myparallelcomponent.start(handle_msg_on_ptc());
73 // AS A PARAMETER *********************************************
74 M_PCO.send(myMessage(myIA5StringValue1))
75 M_PCO.send(myMessage2("~!@#$%^%&^*()_+`""HAHO"" 1234567890-=qwertyuiop[]\\QWERTYUIOP{}|asdfghjkl;'ASDFGHJKL:zxcvbnm,./ZXCVBNM<>?"))
76 // AS A PARAMETER *********************************************
78 myparallelcomponent.done;