diff options
Diffstat (limited to 'test/w3c/prolog/test148.scxml')
| -rw-r--r-- | test/w3c/prolog/test148.scxml | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/test/w3c/prolog/test148.scxml b/test/w3c/prolog/test148.scxml new file mode 100644 index 0000000..fa6fe4b --- /dev/null +++ b/test/w3c/prolog/test148.scxml @@ -0,0 +1,36 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- test that the else clause executes if <if> and <elseif> evaluate to false. +Baz should be the only event generated by the <if>. bat is raised to catch the case where the <else> clause +fails and baz is not generated, i.e. it makes sure that the test doesn't hang. --> +<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"/> + </datamodel> + <state id="s0"> + <onentry> + <if cond="false"> + <raise event="foo"/> + <assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/> + <elseif cond="false"/> + <raise event="bar"/> + <assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/> + <else/> + <raise event="baz"/> + <assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/> + </if> + <raise event="bat"/> + </onentry> + <transition event="baz" cond="X = 1, var1(X)" target="pass"/> + <transition event="*" 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> |