1 files changed, 51 insertions, 0 deletions
diff --git a/test/w3c/prolog/test152.scxml b/test/w3c/prolog/test152.scxml
new file mode 100644
index 0000000..d5473c6
--- /dev/null
+++ b/test/w3c/prolog/test152.scxml
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- test that an illegal array or item value causes error.execution and results in executable content
+not being executed. -->
+<scxml xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance" initial="s0" datamodel="prolog" version="1.0">
+  <datamodel>
+    <data id="var1" expr="0"/>
+    <data id="var2"/>
+    <data id="var3"/>
+    <data id="var4" expr="7"/>
+    <data id="var5">
+    [1,2,3]
+    </data>
+  </datamodel>
+  <state id="s0">
+    <onentry>
+      <!-- invalid array, legal item -->
+      <foreach item="var2" index="var3" array="var4">
+        <assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/>
+      </foreach>
+      <raise event="foo"/>
+    </onentry>
+    <transition event="error.execution" target="s1"/>
+    <transition event="*" target="fail"/>
+  </state>
+  <state id="s1">
+    <onentry>
+      <!-- illegal item, legal array -->
+      <foreach item="'continue'" index="var3" array="var5(X), member(M, X)">
+        <assign location="var1(Y)" expr="var1(X), Y is X + 1, retractall(var1(_))"/>
+      </foreach>
+      <raise event="bar"/>
+    </onentry>
+    <transition event="error.execution" target="s2"/>
+    <transition event="bar" target="fail"/>
+  </state>
+  <state id="s2">
+    <!-- check that var1 has its original value (so executable content never got executed -->
+    <transition cond="X = 0, 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>