1 files changed, 46 insertions, 0 deletions
diff --git a/test/w3c/lua/test329.scxml b/test/w3c/lua/test329.scxml
new file mode 100644
index 0000000..6f2f0a0
--- /dev/null
+++ b/test/w3c/lua/test329.scxml
@@ -0,0 +1,46 @@
+<?xml version="1.0" standalone="no"?>
+<!-- test that none of the system variables can be modified -->
+<scxml xmlns="http://www.w3.org/2005/07/scxml" initial="s0" version="1.0" name="machineName" datamodel="lua">
+  <datamodel>
+    <data id="testvar1"/>
+    <data id="testvar2"/>
+    <data id="testvar3"/>
+    <data id="testvar4"/>
+  </datamodel>
+  <state id="s0">
+    <onentry>
+      <!-- get _event bound so we can use it in s1-->
+      <raise event="foo"/>
+      <assign expr="_sessionid" location="testvar1"/>
+      <assign expr="-1" location="_sessionid"/>
+    </onentry>
+    <transition event="foo" target="s1" cond="testvar1 == _sessionid"/>
+    <transition event="*" target="fail"/>
+  </state>
+  <state id="s1">
+    <onentry>
+      <assign expr="_event" location="testvar2"/>
+      <assign expr="27" location="_event"/>
+    </onentry>
+    <transition target="s2" cond="testvar2 == _event"/>
+    <transition target="fail"/>
+  </state>
+  <state id="s2">
+    <onentry>
+      <assign expr="_name" location="testvar3"/>
+      <assign expr="27" location="_name"/>
+    </onentry>
+    <transition target="s3" cond="testvar3 == _name"/>
+    <transition target="fail"/>
+  </state>
+  <state id="s3">
+    <onentry>
+      <assign expr="_ioprocessors" location="testvar4"/>
+      <assign expr="27" location="_ioprocessors"/>
+    </onentry>
+    <transition cond="testvar4 == _ioprocessors" target="pass"/>
+    <transition target="fail"/>
+  </state>
+  <final id="pass"/>
+  <final id="fail"/>
+</scxml>