summaryrefslogtreecommitdiffstats
path: root/test/w3c/prolog/test378.scxml
blob: b8fdc59ddbaf9a1814adf3d535c5afe438ccb3d1 (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
<?xml version="1.0" encoding="UTF-8"?>
<!-- test that each onexithandler is a separate block.  The <send> of event1 will cause an error but
 the increment to var1 should happen anyways -->
<scxml xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance" version="1.0" datamodel="prolog">
  <datamodel>
    <data id="var1" expr="1"/>
  </datamodel>
  <state id="s0">
    <onexit>
      <send target="baz" event="event1"/>
    </onexit>
    <onexit>
      <assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/>
    </onexit>
    <transition target="s1"/>
  </state>
  <state id="s1">
    <transition cond="X = 2, 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>