done.event bug and prolog tests

Fixed the done.event bug and added first prolog transformed IRP tests

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>