blob: 47216067293c07fd14207781936b0bba36b19fba (
plain)
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
|
<?xml version="1.0" encoding="UTF-8"?>
<!-- test that foreach goes over the array in the right order. since the array contains 1 2 3, we compare the current
value with the previous value, which is stored in var1. The current value should always be larger. If
it ever isn't, set Var4 to 0, indicating failure -->
<scxml xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance" initial="s0" version="1.0" datamodel="promela">
<datamodel>
<data id="Var1" type="int" expr="0"/>
<!-- contains the previous value -->
<data id="Var2" type="int"/>
<!-- the item which will contain the current value -->
<data id="Var3" type="int[3]">
Var3[0] = 1;
Var3[1] = 2;
Var3[2] = 3;
</data>
<data id="Var4" type="int" expr="1"/>
<!-- 1 if success, 0 if failure -->
</datamodel>
<state id="s0">
<onentry>
<foreach item="Var2" array="Var3">
<if cond="Var1<Var2">
<assign location="Var1" expr="Var2"/>
<else/>
<!-- values are out of order, record failure -->
<assign location="Var4" expr="0"/>
</if>
</foreach>
</onentry>
<!-- check that var1 has its original value -->
<transition cond="Var4==0" target="fail"/>
<transition target="pass"/>
</state>
<final xmlns:scxml="http://www.w3.org/2005/07/scxml" id="pass">
<onentry>
<log label="Outcome" expr="'pass'"/>
</onentry>
</final>
<final xmlns:scxml="http://www.w3.org/2005/07/scxml" id="fail">
<onentry>
<log label="Outcome" expr="'fail'"/>
</onentry>
</final>
</scxml>
|