diff options
Diffstat (limited to 'test/w3c/prolog/test580.scxml')
-rw-r--r-- | test/w3c/prolog/test580.scxml | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/test/w3c/prolog/test580.scxml b/test/w3c/prolog/test580.scxml new file mode 100644 index 0000000..6034e42 --- /dev/null +++ b/test/w3c/prolog/test580.scxml @@ -0,0 +1,45 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- test that a history state never ends up part of the configuration --> +<scxml xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance" version="1.0" initial="p1" datamodel="prolog"> + <datamodel> + <data id="var1" expr="0"/> + </datamodel> + <parallel id="p1"> + <onentry> + <send delay="2s" event="timeout"/> + </onentry> + <state id="s0"> + <transition cond="In('sh1')" target="fail"/> + <transition event="timeout" target="fail"/> + </state> + <state id="s1"> + <initial> + <transition target="sh1"/> + </initial> + <history id="sh1"> + <transition target="s11"/> + </history> + <state id="s11"> + <transition cond="In('sh1')" target="fail"/> + <transition target="s12"/> + </state> + <state id="s12"/> + <transition cond="In('sh1')" target="fail"/> + <transition cond="var1==0" target="sh1"/> + <transition cond="var1==1" target="pass"/> + <onexit> + <assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/> + </onexit> + </state> + </parallel> + <final id="pass"> + <onentry> + <log label="Outcome" expr="'pass'"/> + </onentry> + </final> + <final id="fail"> + <onentry> + <log label="Outcome" expr="'fail'"/> + </onentry> + </final> +</scxml> |