conformance_test/positive_tests added
[deliverable/titan.core.git] / conformance_test / positive_tests / 24_test_verdict_operations / 2401_the_verdict_mechanism / NegSem_2401_SetverdictError.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:24.1, Ensure that setverdict can't set error verdict
13 ** @verdict pass reject, manual:"Ensure only one test case was executed "
14 *****************************************************************/
15 /*
16 * #reqname /Requirements/24 Test verdict operations/24.1 The Verdict mechanism/Error verdict shall not be set with setverdict
17 **/
18
19 module NegSem_2401_SetverdictError_001 {
20 type component GeneralComp {};
21
22 testcase TC_NegSem_2401_SetverdictError_001_setverdict(out boolean pb_error_occurred) runs on GeneralComp {
23 pb_error_occurred := true;
24 setverdict(error);
25 // Must abort here
26 pb_error_occurred := false;
27 setverdict(pass)
28 }
29
30 testcase TC_NegSem_2401_SetverdictError_001_check_error_occured(boolean b_error_occurred) runs on GeneralComp {
31 if (b_error_occurred) {
32 setverdict(pass);
33 } else {
34 setverdict(fail)
35 }
36 }
37
38 control {
39 var boolean b_error_occurred := true;
40 execute(TC_NegSem_2401_SetverdictError_001_setverdict(b_error_occurred));
41 execute(TC_NegSem_2401_SetverdictError_001_check_error_occured(b_error_occurred));
42 }
43 }
This page took 0.038879 seconds and 5 git commands to generate.