openwferu 0.9.0

data/test/ft_0.rb

@@ -0,0 +1,161 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest0 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_print
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <print>ok</print>
+</process-definition>''', "ok")
+    end
+
+    def test_participant
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <participant ref="test-alpha" />
+</process-definition>''', "test-alpha")
+    end
+
+    def test_sequence
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <print>a</print>
+        <print>b</print>
+    </sequence>
+</process-definition>''', '''a
+b''')
+    end
+
+    def test_dollar_notation_0
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="x" value="y" />
+        <print>${x} ${v:x}</print>
+    </sequence>
+</process-definition>''', 'y y')
+    end
+
+    def test_dollar_notation_1
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set field="x" value="y" />
+        <print>${f:x} ${field:x}</print>
+    </sequence>
+</process-definition>''', 'y y')
+    end
+
+    def test_dollar_notation_2
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <print>${f:x}X${field:x}</print>
+    </sequence>
+</process-definition>''', 'X')
+    end
+
+    def test_subprocess_ref_0
+        dotest(\
+'''<process-definition name="subtest0" revision="0">
+
+    <subprocess ref="sub0" />
+
+    <process-definition name="sub0">
+        <print>ok</print>
+    </process-definition>
+
+</process-definition>''', 'ok')
+    end
+
+    def test_subprocess_ref_1
+        dotest(\
+'''<process-definition name="subtest0" revision="0">
+
+    <sequence>
+        <subprocess ref="sub0" />
+        <subprocess ref="sub0" />
+    </sequence>
+
+    <process-definition name="sub0">
+        <print>ok</print>
+    </process-definition>
+
+</process-definition>''', '''ok
+ok''')
+    end
+
+    def test_subprocess_ref_2
+        dotest(\
+'''<process-definition name="subtest0" revision="0">
+
+    <sequence>
+        <sub0 />
+        <print>after</print>
+    </sequence>
+
+    <process-definition name="sub0">
+        <print>ok</print>
+    </process-definition>
+
+</process-definition>''', '''ok
+after''')
+    end
+
+    def test_subprocess_ref_3
+        dotest(\
+'''<process-definition name="subtest0" revision="0">
+
+    <sequence>
+        <set variable="v" value="out" />
+        <sub0 />
+        <print>after : ${v}</print>
+    </sequence>
+
+    <process-definition name="sub0">
+        <sequence>
+            <set variable="v" value="in" />
+            <print>ok : ${v}</print>
+        </sequence>
+    </process-definition>
+
+</process-definition>''', '''ok : in
+after : out''')
+    end
+
+    def test_subprocess_ref_4
+        dotest(\
+'''<process-definition name="subtest0" revision="0">
+
+    <sequence>
+        <subprocess ref="sub0" a="A" b="B" c="C" />
+        <sub0 a="A" b="B" c="C" />
+    </sequence>
+
+    <process-definition name="sub0">
+        <print>${a}${b}${c}</print>
+    </process-definition>
+
+</process-definition>''', '''ABC
+ABC''')
+    end
+
+end
+

data/test/ft_1_unset.rb

@@ -0,0 +1,152 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest1 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_unset_0
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="x" value="y" />
+        <print>set ${x} ${v:x}</print>
+        <unset variable="x" />
+        <print>unset ${x} ${v:x}</print>
+    </sequence>
+</process-definition>''', 'set y y
+unset')
+    end
+
+    def test_unset_1
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set field="x" value="y" />
+        <print>set ${f:x}</print>
+        <unset field="x" />
+        <print>unset ${field:x}</print>
+    </sequence>
+</process-definition>''', 'set y
+unset')
+    end
+
+    def test_unset_2
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="//x" value="y" />
+        <print>set ${x}</print>
+        <unset variable="x" />
+        <print>unset ${x}</print>
+    </sequence>
+</process-definition>''', 'set y
+unset y')
+    end
+
+    def test_unset_3
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="//x" value="y" />
+        <print>set ${x}</print>
+        <unset variable="//x" />
+        <print>unset ${x}</print>
+    </sequence>
+</process-definition>''', 'set y
+unset')
+    end
+
+    def test_unset_4
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="/x" value="y" />
+        <print>set ${x}</print>
+        <unset variable="x" />
+        <print>unset ${x}</print>
+    </sequence>
+</process-definition>''', 'set y
+unset')
+    end
+
+    def test_unset_5
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="/x" value="y" />
+        <print>set ${x}</print>
+        <print>unset ${x}</print>
+    </sequence>
+    <process-definition name="sub0">
+        <unset variable="x" />
+    </process-definition>
+</process-definition>''', 'set y
+unset y')
+    end
+
+    def test_unset_6
+        dotest(\
+'''<process-definition name="unset_6" revision="0">
+    <sequence>
+        <set variable="/x" value="y" />
+        <print>set ${x}</print>
+        <sub0/>
+        <print>unset ${x}</print>
+    </sequence>
+    <process-definition name="sub0">
+        <unset variable="/x" />
+    </process-definition>
+</process-definition>''', 'set y
+unset')
+    end
+
+    def test_set_a0
+        dotest(\
+'''<process-definition name="set_a0" revision="0">
+    <sequence>
+        <set variable="x">y</set>
+        <print>${x}</print>
+    </sequence>
+</process-definition>''', 'y')
+    end
+
+    def test_set_a1
+        dotest(\
+'''<process-definition name="set_a1" revision="0">
+    <sequence>
+        <set variable="x">
+            <equals value="a" other-value="a" />
+        </set>
+        <print>${x}</print>
+    </sequence>
+</process-definition>''', 'true')
+    end
+
+    def test_set_a1f
+        dotest(\
+'''<process-definition name="set_a1f" revision="0">
+    <sequence>
+        <set variable="x">
+            <equals value="a" other-value="${x}" />
+        </set>
+        <print>${x}</print>
+    </sequence>
+</process-definition>''', 'false')
+    end
+
+end
+

data/test/ft_2_concurrence.rb

@@ -0,0 +1,34 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest2 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_concurrence
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <concurrence>
+        <print>a</print>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', [ '''a,
+b''', '''b
+a''' ], 0.1 )
+    end
+
+end
+

data/test/ft_3_equals.rb

@@ -0,0 +1,84 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest3 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_equals_0
+        dotest(\
+'''<process-definition name="equals_0" revision="0">
+    <sequence>
+        <equals value="a" other-value="a" />
+        <print>${field:__result__}</print>
+    </sequence>
+</process-definition>''', "true")
+    end
+
+    def test_equals_1
+        dotest(\
+'''<process-definition name="equals_1" revision="0">
+    <sequence>
+        <equals value="a" other-value="b" />
+        <print>${field:__result__}</print>
+    </sequence>
+</process-definition>''', "false")
+    end
+
+    def test_if_0
+        dotest(\
+'''<process-definition name="if_0" revision="0">
+    <if>
+        <equals value="a" other-value="a" />
+        <print>ok</print>
+    </if>
+</process-definition>''', "ok")
+    end
+
+    def test_if_1
+        dotest(\
+'''<process-definition name="if_1" revision="0">
+    <if>
+        <equals value="a" other-value="a" />
+        <print>ok</print>
+        <print>nok</print>
+    </if>
+</process-definition>''', "ok")
+    end
+
+    def test_if_2
+        dotest(\
+'''<process-definition name="if_2" revision="0">
+    <if>
+        <equals value="a" other-value="b" />
+        <print>nok</print>
+    </if>
+</process-definition>''', "")
+    end
+
+    def test_if_3
+        dotest(\
+'''<process-definition name="if_3" revision="0">
+    <if>
+        <equals value="a" other-value="b" />
+        <print>nok</print>
+        <print>ok</print>
+    </if>
+</process-definition>''', "ok")
+    end
+
+end
+

data/test/ft_4_misc.rb

@@ -0,0 +1,128 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest4 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_print_0
+        dotest(\
+'''<process-definition name="print_0" revision="0">
+    <sequence>
+        <print escape="true">${f:xxx}</print>
+    </sequence>
+</process-definition>''', "${f:xxx}")
+    end
+
+    def test_reval_0
+        dotest(\
+'''<process-definition name="reval_0" revision="0">
+    <sequence>
+        <reval><![CDATA[
+            workitem.attributes["from_ruby"] = "ok"
+        ]]></reval>
+        <print>${f:from_ruby}</print>
+    </sequence>
+</process-definition>''', "ok")
+    end
+
+    def test_reval_1
+        dotest(\
+'''<process-definition name="reval_1" revision="0">
+    <sequence>
+        <set variable="field-name" value="from_ruby" />
+        <reval>
+            workitem.attributes["${field-name}"] = "ok"
+        </reval>
+        <print>${f:${field-name}}</print>
+    </sequence>
+</process-definition>''', "ok")
+    end
+
+    def test_reval_2
+        dotest(\
+'''<process-definition name="reval_2" revision="0">
+    <sequence>
+        <set variable="field-value" value="ok" />
+        <reval>
+            workitem.attributes["from_ruby"] = "${field-value}"
+        </reval>
+        <print>${f:from_ruby}</print>
+    </sequence>
+</process-definition>''', "ok")
+    end
+
+    def test_reval_3
+        dotest(\
+'''<process-definition name="reval_3" revision="0">
+    <sequence>
+        <set variable="v">
+            <reval code="1 == 2" />
+        </set>
+        <print>${v}</print>
+    </sequence>
+</process-definition>''', "false")
+    end
+
+    def test_dru_0
+        dotest(\
+'''<process-definition name="dru_0" revision="0">
+    <sequence>
+        <print>${r:1+2}</print>
+    </sequence>
+</process-definition>''', "3")
+    end
+
+    def test_dru_1
+        dotest(\
+'''<process-definition name="dru_1" revision="0">
+    <sequence>
+        <print>${r:"x"*3}</print>
+    </sequence>
+</process-definition>''', "xxx")
+    end
+
+    def test_dru_2
+        dotest(\
+'''<process-definition name="dru_2" revision="0">
+    <sequence>
+        <set 
+            variable="v" 
+            value="${r:5*2}"
+        />
+        <print>${v}</print>
+    </sequence>
+</process-definition>''', "10")
+    end
+
+    def test_dru_3
+        dotest(\
+'''<process-definition name="dru_3" revision="0">
+    <sequence>
+        <set variable="w" value="W" />
+        <set variable="v">
+            <!--
+            <reval>self.lookup_variable("w") * 3</reval>
+            -->
+            <reval>lookup_variable("w") * 3</reval>
+        </set>
+        <print>${v}</print>
+    </sequence>
+</process-definition>''', "WWW")
+    end
+
+end
+

data/test/ft_5_time.rb

@@ -0,0 +1,56 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest5 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_sleep_0
+        dotest(\
+'''<process-definition name="sleep_0" revision="0">
+    <sequence>
+        <sleep for="2s" />
+        <print>alpha</print>
+    </sequence>
+</process-definition>''', """alpha""", 3)
+    end
+
+    def test_sleep_1
+        dotest(\
+'''<process-definition name="sleep_1" revision="0">
+    <concurrence>
+        <sequence>
+            <sleep for="2s" />
+            <print>alpha</print>
+        </sequence>
+        <print>bravo</print>
+    </concurrence>
+</process-definition>''', """bravo
+alpha""", 3)
+    end
+
+    def test_sleep_2
+        dotest(\
+'''<process-definition name="sleep_2" revision="0">
+    <sequence>
+        <sleep until="${ruby:Time.new() + 4}" />
+        <print>alpha</print>
+    </sequence>
+</process-definition>''', """alpha""", 5)
+    end
+
+end
+

data/test/misctest.rb

@@ -0,0 +1,46 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 16:18:25 JST 2006
+#
+
+require 'test/unit'
+require 'ru/ruutils'
+require 'ru/expressionmap'
+require 'ru/fe_define'
+
+#
+# testing misc things
+#
+
+class MiscTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_starts_with
+        assert \
+            OpenWFEru::starts_with("//a", "//")
+        assert \
+            (not OpenWFEru::starts_with("/a", "//"))
+    end
+
+    def test_expression_map
+
+        em = OpenWFEru::ExpressionMap.new('expressionmap', {})
+
+        assert \
+            em.get_class('process-definition') == OpenWFEru::DefineExpression,
+            "class of 'process-definition' should be DefineExpression"
+        assert \
+            em.is_definition?('process-definition'),
+            "process-definition should be considered as a definition"
+    end
+
+end

data/test/runtest.rb

@@ -0,0 +1,21 @@
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+#require 'test/unit'
+
+require 'ft_2_concurrence'
+require 'feitest'
+require 'dollartest'
+require 'misctest'
+require 'timetest'
+require 'ft_0'
+require 'ft_1_unset'
+require 'ft_3_equals'
+require 'ft_4_misc'
+require 'ft_5_time'
+

data/test/rutest_utils.rb

@@ -0,0 +1,15 @@
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+class Tracer < String
+
+    def to_s
+        super.to_s.strip
+    end
+end
+