diff options
Diffstat (limited to 'test/w3c/prolog/test155.scxml')
| -rw-r--r-- | test/w3c/prolog/test155.scxml | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/test/w3c/prolog/test155.scxml b/test/w3c/prolog/test155.scxml new file mode 100644 index 0000000..db32543 --- /dev/null +++ b/test/w3c/prolog/test155.scxml @@ -0,0 +1,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> |