conformance_test/positive_tests added
[deliverable/titan.core.git] / conformance_test / positive_tests / 22_communication_operations / 2202_message_based_communication / 220203_trigger_operation / NegSem_220203_TriggerOperation_009.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.3, encoding parameter of @decoded redirect assignment applied to incorrect type
13 ** @verdict pass reject
14 *****************************************************************/
15
16 // The following requirements are tested:
17 // Rules in clause 22.2.2 shall apply.
18 // In case the referenced field is not a universal charstring, the optional
19 // parameter shall not be present.
20
21 module NegSem_220203_TriggerOperation_009 {
22 type record R {
23 integer id,
24 octetstring payload
25 }
26
27 type port P message {
28 inout R;
29 } with {extension "internal"}
30
31 type component GeneralComp {
32 port P p;
33 }
34
35 testcase TC_NegSem_220203_TriggerOperation_009() runs on GeneralComp {
36 var charstring v_src := "abc", v_res;
37 var octetstring v_os := bit2oct(encvalue(v_src));
38
39 connect(self:p, self:p);
40 p.send(R:{ id := 1, payload := v_os });
41 alt {
42 [] p.trigger(R:?) -> value (v_res := @decoded("UTF-8") payload) {
43 setverdict (pass);
44 }
45 }
46 }
47
48 control {
49 execute(TC_NegSem_220203_TriggerOperation_009(), 5.0);
50 }
51 }
This page took 0.038348 seconds and 5 git commands to generate.