1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
/******************************************************************************
* Copyright (c) 2000-2021 Ericsson Telecom AB
* All rights reserved. This program and the accompanying materials
* are made available under the terms of the Eclipse Public License v2.0
* which accompanies this distribution, and is available at
* https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
*
* Contributors:
* Balasko, Jeno
* Kovacs, Ferenc
* Raduly, Csaba
* Szabados, Kristof
*
******************************************************************************/
module TdefaultOper
{
type component defaultOper_comptype { };
altstep A1() runs on defaultOper_comptype
{
[] any timer.timeout { setverdict(inconc);}
}
testcase defaultIsvalue() runs on defaultOper_comptype
{
var default v0;
var default v1 := null;
var template default tdf0;
template default tdf1 := null;
var default d1 := activate( A1() );
if ( isvalue(v0) ) { setverdict(fail); } else { setverdict(pass); };
if ( isvalue(v1) ) { setverdict(pass); } else { setverdict(fail); };
if ( isvalue(tdf0) ) { setverdict(fail); } else { setverdict(pass); };
if ( isvalue(tdf1) ) { setverdict(pass); } else { setverdict(fail); };
if ( isvalue(d1) ) { setverdict(pass); } else { setverdict(fail); };
}
altstep as_empty() runs on defaultOper_comptype {
[] any timer.timeout { }
};
function f_empty() runs on defaultOper_comptype { }
testcase tc_special_default_value_unbound() runs on defaultOper_comptype {
var default vl_default;
if(ispresent(vl_default)){setverdict(fail)}else {setverdict(pass)};
}
testcase tc_special_default_value_null() runs on defaultOper_comptype {
var default vl_default := null;
if(ispresent(vl_default)) {setverdict(pass)} else {setverdict(fail)}
}
testcase tc_special_default_value_isvalue() runs on defaultOper_comptype {
var default vl_default := activate(as_empty());
if(ispresent(vl_default)){setverdict(pass)}else {setverdict(fail)};
deactivate(vl_default);
if(ispresent(vl_default)){setverdict(pass)}else {setverdict(fail)};
}
testcase tc_special_compref_unbound() runs on defaultOper_comptype {
var defaultOper_comptype vc_myComp;
if(ispresent(vc_myComp)){setverdict(fail)}else {setverdict(pass)};
}
testcase tc_special_compref_isvalue() runs on defaultOper_comptype {
var defaultOper_comptype vc_myComp:= defaultOper_comptype.create("hali");
if(ispresent(vc_myComp)){setverdict(pass)}else {setverdict(fail)};
vc_myComp.start(f_empty());
if(ispresent(vc_myComp)){setverdict(pass)}else {setverdict(fail)};
vc_myComp.done;
if(ispresent(vc_myComp)){setverdict(pass)}else {setverdict(fail)};
}
testcase tc_special_default_value() runs on defaultOper_comptype {
var default vl_default;
if(isbound(vl_default)){setverdict(fail)}else {setverdict(pass)};
vl_default := null;
if(isbound(vl_default)) {setverdict(pass)} else {setverdict(fail)}
vl_default := activate(as_empty());
if(isbound(vl_default)){setverdict(pass)}else {setverdict(fail)};
deactivate(vl_default);
if(isbound(vl_default)){setverdict(pass)}else {setverdict(fail)};
}
testcase tc_special_compref() runs on defaultOper_comptype {
var defaultOper_comptype vc_myComp;
if(isbound(vc_myComp)){setverdict(fail)}else {setverdict(pass)};
vc_myComp:= defaultOper_comptype.create("hali");
if(isbound(vc_myComp)){setverdict(pass)}else {setverdict(fail)};
vc_myComp.start(f_empty());
if(isbound(vc_myComp)){setverdict(pass)}else {setverdict(fail)};
vc_myComp.done;
if(isbound(vc_myComp)){setverdict(pass)}else {setverdict(fail)};
}
control {
execute(defaultIsvalue());
execute(tc_special_default_value_unbound());
execute(tc_special_default_value_null());
execute(tc_special_default_value_isvalue());
execute(tc_special_compref_unbound());
execute(tc_special_compref_isvalue());
execute(tc_special_default_value());
execute(tc_special_compref());
}
}
|
