blob: d5473c60df55f9c6218109d3875ac89267acf596 (
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
47
48
49
50
51
|
<?xml version="1.0" encoding="UTF-8"?>
<!-- test that an illegal array or item value causes error.execution and results in executable content
not being executed. -->
<scxml xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance" initial="s0" datamodel="prolog" version="1.0">
<datamodel>
<data id="var1" expr="0"/>
<data id="var2"/>
<data id="var3"/>
<data id="var4" expr="7"/>
<data id="var5">
[1,2,3]
</data>
</datamodel>
<state id="s0">
<onentry>
<!-- invalid array, legal item -->
<foreach item="var2" index="var3" array="var4">
<assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/>
</foreach>
<raise event="foo"/>
</onentry>
<transition event="error.execution" target="s1"/>
<transition event="*" target="fail"/>
</state>
<state id="s1">
<onentry>
<!-- illegal item, legal array -->
<foreach item="'continue'" index="var3" array="var5(X), member(M, X)">
<assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/>
</foreach>
<raise event="bar"/>
</onentry>
<transition event="error.execution" target="s2"/>
<transition event="bar" target="fail"/>
</state>
<state id="s2">
<!-- check that var1 has its original value (so executable content never got executed -->
<transition cond="X = 0, var1(X)" target="pass"/>
<transition target="fail"/>
</state>
<final id="pass">
<onentry>
<log label="Outcome" expr="'pass'"/>
</onentry>
</final>
<final id="fail">
<onentry>
<log label="Outcome" expr="'fail'"/>
</onentry>
</final>
</scxml>
|
