summaryrefslogtreecommitdiffstats
path: root/test/w3c/prolog/test155.scxml
blob: db32543a2e4254ce70f0fe6229b42e3be8033f44 (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 foreach executes the executable content once for each item in the list '(1,2,3)'. The executable
content sums the items into var1 so it should be 6 at the end -->
<scxml xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance" initial="s0" version="1.0" datamodel="prolog">
  <datamodel>
    <data id="var1" expr="0"/>
    <data id="var2"/>
    <data id="var3">
    [1,2,3]
    </data>
  </datamodel>
  <state id="s0">
    <onentry>
      <foreach item="var2" array="var3(X), member(M, X)">
        <assign location="var1" expr="var1 + Var2"/>
      </foreach>
    </onentry>
    <transition cond="X = 6, 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>