blob: 2cd176f1550bae17632cf1b57bcf840047debe1b (
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
52
53
54
55
56
|
<?xml version="1.0" encoding="UTF-8"?>
<!-- test that an internal transition whose targets are not proper descendants of its source state
behaves like an external transition -->
<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 s2 -->
<data id="var2" expr="0"/>
<!-- how often we have exited s21 -->
<data id="var3" expr="0"/>
<!-- how often the transition for foo has been taken -->
</datamodel>
<state id="s1">
<onentry>
<raise event="foo"/>
<raise event="bar"/>
</onentry>
<transition target="s2"/>
</state>
<state id="s2" initial="s21">
<onexit>
<assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/>
</onexit>
<transition event="foo" type="internal" target="s2">
<assign location="var3(Y)" expr="var3(X), Y is X + 1, retractall(var1(_))"/>
</transition>
<!-- make sure the transition on foo was actually taken -->
<transition event="bar" cond="X = 1, var3(X)" target="s3"/>
<transition event="bar" target="fail"/>
<state id="s21">
<onexit>
<assign location="var2(Y)" expr="var2(X), Y is X + 1, retractall(var1(_))"/>
</onexit>
</state>
</state>
<state id="s3">
<!-- make sure that s2 was exited twice -->
<transition cond="X = 2, var1(X)" target="s4"/>
<transition target="fail"/>
</state>
<state id="s4">
<!-- make sure that s21 was exited twice -->
<transition cond="X = 2, var2(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>
|
