conformance_test/positive_tests added
[deliverable/titan.core.git] / conformance_test / positive_tests / 22_communication_operations / 2202_message_based_communication / 220202_receive_operation / Sem_220202_ReceiveOperation_001.ttcn
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
7 *
8 * Contributors:
9 * Adrien Kirjak – initial implementation
10 *
11 ** @version 0.0.1
12 ** @purpose 1:22.2.2, Ensure that the IUT correctly handles message receiving operations
13 ** @verdict pass accept, ttcn3verdict:pass
14 ***************************************************/
15
16 module Sem_220202_ReceiveOperation_001 {
17
18
19 type port loopbackPort message {
20 inout integer
21 } with {extension "internal"}
22
23
24 type component GeneralComp {
25 port loopbackPort messagePort
26 }
27
28 testcase TC_Sem_220202_ReceiveOperation_001() runs on GeneralComp {
29
30 connect(self:messagePort, self:messagePort);
31
32 messagePort.send(2);
33
34 alt {
35 [] messagePort.receive(1) { //must not remove message from queue
36 setverdict(fail);
37 }
38 [] messagePort.receive(2) { //this alt is only selected if message not removed from the queue
39 setverdict(pass);
40 }
41 [] messagePort.receive {
42 setverdict(fail);
43 }
44 }
45 }
46
47 control{
48 execute(TC_Sem_220202_ReceiveOperation_001());
49 }
50
51 }
This page took 0.031388 seconds and 5 git commands to generate.