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:21.3.7, storing verdict in done operation
13 ** @verdict pass accept, ttcn3verdict:pass
14 *****************************************************************/
16 // The following requirements are tested:
17 // When the done operation is applied to a PTC and matches, the final local verdict of the PTC
18 // can be retrieved and stored in variable of the type verdicttype. This is denoted by the
19 // symbol '->' the keyword value followed by the name of the variable into which the verdict
22 module Sem_210307_done_operation_012 {
24 type component GeneralComp {}
26 function f() runs on GeneralComp {
30 testcase TC_Sem_210307_done_operation_012() runs on GeneralComp system GeneralComp {
31 var GeneralComp v_ptc := GeneralComp.create;
32 var verdicttype v_verdict;
35 [] v_ptc.done -> value v_verdict {
36 if (v_verdict != pass) { setverdict(fail, "Invalid PTC verdict"); }
42 execute(TC_Sem_210307_done_operation_012(), 5.0);