1 /******************************************************************************
2 * Copyright (c) 2000-2016 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
9 * Adrien Kirjak – initial implementation
12 ** @purpose 1:14, Ensure that blocking calls needs response or exception handling
13 ** @verdict pass reject
14 *****************************************************************/
15 // Multiple calls requires response or exception handling if the signature is blocking
17 module NegSem_1400_procedure_signatures_002 {
19 signature p_Sig1_001( in charstring key ); // noblock needed for multiple calls without response or exections
21 type port remotePort procedure {
23 } with {extension "internal"}
25 type component GeneralComp {
31 function f_Server() runs on GeneralComp {
34 const charstring key[3] := {"My String1", "hello", "Probe string"};
38 for ( var integer i := 0; i < 3; i := i + 1 ) {
39 PCO.call( p_Sig1_001:{key[i]});}
46 function f_client() runs on GeneralComp {
50 testcase TC_NegSem_1400_procedure_signatures_002() runs on GeneralComp system GeneralComp {
52 var GeneralComp server := GeneralComp.create("RemoteProcedure Service");
53 var GeneralComp client := GeneralComp.create("RemoteProcedure Client");
56 connect(server:PCO, client:PCO);
58 server.start(f_Server());
59 client.start(f_client());
68 [] all component.done {}
71 disconnect(server:PCO, client:PCO);
75 execute(TC_NegSem_1400_procedure_signatures_002());