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
|
<?xml version="1.0" encoding="UTF-8"?>
<!-- test that an external transition exits all states up the the LCCA -->
<scxml xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance" initial="s1" version="1.0" datamodel="prolog">
<datamodel>
<data id="var1" expr="0"/>
<!-- how often we have exited p -->
<data id="var2" expr="0"/>
<!-- how often we have exited ps1 -->
<data id="var3" expr="0"/>
<!-- how often we have exited ps2 -->
<data id="var4" expr="0"/>
<!-- how often the transition for foo has been taken -->
<data id="var5" expr="0"/>
<!-- how often we have exited s2 -->
</datamodel>
<state id="s1">
<onentry>
<raise event="foo"/>
<raise event="bar"/>
</onentry>
<transition target="p"/>
</state>
<state id="s2">
<onexit>
<assign location="var5(Y)" expr="var5(X), Y is X + 1, retractall(var1(_))"/>
</onexit>
<parallel id="p">
<onexit>
<assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/>
</onexit>
<transition event="foo" target="ps1">
<assign location="var4(Y)" expr="var4(X), Y is X + 1, retractall(var1(_))"/>
</transition>
<!-- make sure the transition on foo was actually taken -->
<transition event="bar" cond="X = 1, var4(X)" target="s3"/>
<transition event="bar" target="fail"/>
<state id="ps1">
<onexit>
<assign location="var2(Y)" expr="var2(X), Y is X + 1, retractall(var1(_))"/>
</onexit>
</state>
<state id="ps2">
<onexit>
<assign location="var3(Y)" expr="var3(X), Y is X + 1, retractall(var1(_))"/>
</onexit>
</state>
</parallel>
</state>
<state id="s3">
<!-- make sure that p was exited twice -->
<transition cond="X = 2, var1(X)" target="s4"/>
<transition target="fail"/>
</state>
<state id="s4">
<!-- make sure that ps1 was exited twice -->
<transition cond="X = 2, var2(X)" target="s5"/>
<transition target="fail"/>
</state>
<state id="s5">
<!-- make sure that ps2 was exited twice -->
<transition cond="X = 2, var3(X)" target="s6"/>
<transition target="fail"/>
</state>
<state id="s6">
<!-- make sure that s1 was exited once -->
<transition cond="X = 1, var5(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>
|
