diff options
Diffstat (limited to 'test/w3c/txml/test153.txml')
| -rw-r--r-- | test/w3c/txml/test153.txml | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/test/w3c/txml/test153.txml b/test/w3c/txml/test153.txml new file mode 100644 index 0000000..e9f8038 --- /dev/null +++ b/test/w3c/txml/test153.txml @@ -0,0 +1,39 @@ +<?xml version="1.0"?> + +<!-- test that foreach goes over the array in the right order. since the array contains 1 2 3, we compare the current +value with the previous value, which is stored in var1. The current value should always be larger. If +it ever isn't, set Var4 to 0, indicating failure --> + +<scxml initial="s0" version="1.0" conf:datamodel="" xmlns="http://www.w3.org/2005/07/scxml" xmlns:conf="http://www.w3.org/2005/scxml-conformance"> +<datamodel> + <data conf:id="1" conf:expr="0"/> <!-- contains the previous value --> + <data conf:id="2"/> <!-- the item which will contain the current value --> + <data conf:id="3"> + <conf:array123/> + </data> + <data conf:id="4" conf:expr="1"/> <!-- 1 if success, 0 if failure --> + </datamodel> + + <state id="s0"> + <onentry> + <foreach conf:item="2" conf:arrayVar="3"> + <if conf:compareIDVal="1<2"> + <assign conf:location="1" conf:varExpr="2"/> + <else/> + <!-- values are out of order, record failure --> + <assign conf:location="4" conf:expr="0"/> + </if> + </foreach> + </onentry> + + <!-- check that var1 has its original value --> + <transition conf:idVal="4=0" conf:targetfail=""/> + <transition conf:targetpass=""/> + </state> + + <conf:pass/> + <conf:fail/> + + + +</scxml>
\ No newline at end of file |