diff options
author | Stefan Radomski <sradomski@mintwerk.de> | 2015-07-08 20:03:03 (GMT) |
---|---|---|
committer | Stefan Radomski <sradomski@mintwerk.de> | 2015-07-08 20:03:03 (GMT) |
commit | 57ba362eae6e8209cf560555fd4cc4bb76dbe2a1 (patch) | |
tree | 00a2e2c5fd6993a5ee118df147cae3ef6e9cca9a /test/w3c/prolog/test506.scxml | |
parent | f02d7e5919f16d8396839fcff1e0588d6ccf3004 (diff) | |
download | uscxml-57ba362eae6e8209cf560555fd4cc4bb76dbe2a1.zip uscxml-57ba362eae6e8209cf560555fd4cc4bb76dbe2a1.tar.gz uscxml-57ba362eae6e8209cf560555fd4cc4bb76dbe2a1.tar.bz2 |
done.event bug and prolog tests
Fixed the done.event bug and added first prolog transformed IRP tests
Diffstat (limited to 'test/w3c/prolog/test506.scxml')
-rw-r--r-- | test/w3c/prolog/test506.scxml | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/test/w3c/prolog/test506.scxml b/test/w3c/prolog/test506.scxml new file mode 100644 index 0000000..2cd176f --- /dev/null +++ b/test/w3c/prolog/test506.scxml @@ -0,0 +1,56 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- test that an internal transition whose targets are not proper descendants of its source state +behaves like an external transition --> +<scxml xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance" initial="s1" version="1.0" datamodel="prolog"> + <datamodel> + <data id="var1" expr="0"/> + <!-- how often we have exited s2 --> + <data id="var2" expr="0"/> + <!-- how often we have exited s21 --> + <data id="var3" expr="0"/> + <!-- how often the transition for foo has been taken --> + </datamodel> + <state id="s1"> + <onentry> + <raise event="foo"/> + <raise event="bar"/> + </onentry> + <transition target="s2"/> + </state> + <state id="s2" initial="s21"> + <onexit> + <assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/> + </onexit> + <transition event="foo" type="internal" target="s2"> + <assign location="var3(Y)" expr="var3(X), Y is X + 1, retractall(var1(_))"/> + </transition> + <!-- make sure the transition on foo was actually taken --> + <transition event="bar" cond="X = 1, var3(X)" target="s3"/> + <transition event="bar" target="fail"/> + <state id="s21"> + <onexit> + <assign location="var2(Y)" expr="var2(X), Y is X + 1, retractall(var1(_))"/> + </onexit> + </state> + </state> + <state id="s3"> + <!-- make sure that s2 was exited twice --> + <transition cond="X = 2, var1(X)" target="s4"/> + <transition target="fail"/> + </state> + <state id="s4"> + <!-- make sure that s21 was exited twice --> + <transition cond="X = 2, var2(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> |