ruote 0.9.18

data/test/ft_14c_subprocess.rb

@@ -0,0 +1,68 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Apr  8 12:24:27 JST 2008
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest14c < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # TEST 0
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            sub0 :forget => true
+            sub0 :forget => true
+        end
+        process_definition :name => "sub0" do
+            _print "${r:fei.wfid[-2..-1]}"
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        dotest Test0, ".0\n.1", 0.750
+    end
+
+
+    #
+    # TEST 1
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            sub0 :forget => true
+            sub0
+        end
+        process_definition :name => "sub0" do
+            _print "${r:fei.wfid[-2..-1]}"
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        dotest Test1, ".0\n.1", 0.750
+    end
+
+end
+

data/test/ft_15_iterator.rb

@@ -0,0 +1,216 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+require 'flowtestbase'
+
+
+class FlowTest15 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test0", :revision => "0" do
+                iterator :on_value => "x, y, z", :to_variable => "v0" do
+                    _print "${f:__ip__} -- ${v0}"
+                end
+            end
+        end
+    end
+
+    def test_ppd_0
+
+        dotest(
+            TestDefinition0,
+            [ "0 -- x", "1 -- y", "2 -- z" ].join("\n"))
+    end
+
+    #
+    # Test 0b
+    #
+
+    class Test0b < OpenWFE::ProcessDefinition
+        iterator :on_value => "1,2,3", :to_variable => "j" do
+            _print "${f:__ip__} -- ${j}"
+        end
+    end
+
+    def test_0b
+
+        dotest(
+            Test0b,
+            [ "0 -- 1", "1 -- 2", "2 -- 3" ].join("\n"))
+    end
+
+    #
+    # Test 0c
+    #
+
+    TEST0C = '''
+<process-definition name="test" revision="0c">
+    <sequence>
+
+        <iterator on-value = "1,2,3" to-variable = "j">
+            <print>${f:__ip__} -- ${j}</print>
+        </iterator>
+
+        <set field="control" value="1,2,3" />
+        <iterator on-value = "${f:control}" to-variable = "j">
+            <print>${f:__ip__} -- ${j}</print>
+        </iterator>
+
+    </sequence>
+</process-definition>
+    '''.strip
+
+    def test_0c
+
+        dotest(
+            TEST0C,
+            """0 -- 1
+1 -- 2
+2 -- 3
+0 -- 1
+1 -- 2
+2 -- 3""")
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestDefinition1 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test1", :revision => "0" do
+                iterator :on_value => "x, y, z", :to_field => "f0" do
+                    _print "${f:__ip__} -- ${f:f0}"
+                end
+            end
+        end
+    end
+
+    def test_ppd_1
+
+        dotest(
+            TestDefinition1,
+            [ "0 -- x",  "1 -- y", "2 -- z" ].join("\n"))
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestDefinition2 < OpenWFE::ProcessDefinition
+        def make
+            iterator \
+                :on_value => "xayaz", 
+                :to_field => "f0",
+                :value_separator => "a" do
+
+                _print "${f:__ip__} -- ${f:f0}"
+            end
+        end
+    end
+
+    def test_iterator_2
+
+        dotest(
+            TestDefinition2,
+            [ "0 -- x", "1 -- y", "2 -- z" ].join("\n"))
+    end
+
+
+    #
+    # Test 3
+    #
+
+    class TestDefinition3 < OpenWFE::ProcessDefinition
+        sequence do
+            iterator :on_value => "", :to_field => "f0" do
+                _print "${f:__ip__} -- ${f:f0}"
+            end
+            _print "done."
+        end
+    end
+
+    def test_iterator_3
+
+        dotest TestDefinition3, "done."
+    end
+
+
+    #
+    # Test 4
+    #
+
+    class TestDefinition4 < OpenWFE::ProcessDefinition
+        sequence do
+            iterator :on_value => "a, b, c", :to_field => "f0" do
+                sequence do
+                    _print "${f:__ip__} -- ${f:f0}"
+                    _break :if => "${f:__ip__} == 1"
+                end
+            end
+            _print "done."
+        end
+    end
+
+    def test_iterator_4
+
+        dotest TestDefinition4, "0 -- a\n1 -- b\ndone."
+    end
+
+
+    #
+    # Test 5
+    #
+
+    class TestDefinition5 < OpenWFE::ProcessDefinition
+        sequence do
+            iterator :on_value => "a, b, c, d, e, f, g", :to_field => "f0" do
+                sequence do
+                    _print "${f:__ip__} -- ${f:f0}"
+                    skip 2, :if => "${f:__ip__} == 1"
+                end
+            end
+            _print "done."
+        end
+    end
+
+    def test_iterator_5
+
+        dotest(
+            TestDefinition5, 
+            """
+0 -- a
+1 -- b
+4 -- e
+5 -- f
+6 -- g
+done.
+            """.strip)
+    end
+
+end
+

data/test/ft_15b_iterator.rb

@@ -0,0 +1,74 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+require 'flowtestbase'
+
+
+class FlowTest15b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            set :field => "participant_list", :value => "a, b, c"
+            iterator :on_value => "${f:participant_list}", :to_variable => "p" do
+                participant "${p}"
+            end
+            _print "done."
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant "." do |workitem|
+            @tracer << workitem.participant_name
+        end
+
+        dotest Test0, "abcdone."
+    end
+
+    #
+    # Test 1
+    #
+
+    def test_1
+
+        @engine.register_participant ".", OpenWFE::NullParticipant
+
+        fei = launch Test0
+
+        sleep 0.350
+
+        assert_equal 8, @engine.get_expression_storage.size
+        assert_equal "", @tracer.to_s
+
+        @engine.cancel_process fei
+
+        sleep 0.350
+
+        #puts @engine.get_expression_storage
+        assert_equal 1, @engine.get_expression_storage.size
+        assert_equal "", @tracer.to_s
+    end
+
+end
+

data/test/ft_16_fqv.rb

@@ -0,0 +1,73 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest16 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_fqv_0
+        dotest(
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="x"><q>y</q></set>
+        <print>x is "${x}"</print>
+    </sequence>
+</process-definition>''', 
+'x is "y"')
+    end
+
+    def test_fqv_1
+        dotest(
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="x0"><q>y0</q></set>
+        <set variable="x1"><v>x0</v></set>
+        <print>x1 is "${x1}"</print>
+    </sequence>
+</process-definition>''', 
+'x1 is "y0"')
+    end
+
+    def test_fqv_2
+        dotest(
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set field="x0"><q>y0</q></set>
+        <set variable="x1"><f>x0</f></set>
+        <print>x1 is "${x1}"</print>
+    </sequence>
+</process-definition>''', 
+'x1 is "y0"')
+    end
+
+    class Fqv3 < OpenWFE::ProcessDefinition
+        sequence do
+            _set :f => "x0" do
+                _q "y0"
+            end
+            _set :v => "x1" do
+                _f "x0"
+            end
+            _print "x1 is \"${x1}\""
+        end
+    end
+    def test_fqv_3
+        dotest(Fqv3, 'x1 is "y0"')
+    end
+
+end
+

data/test/ft_17_condition.rb

@@ -0,0 +1,84 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest17 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_condition_0
+        dotest(
+'''<process-definition name="con" revision="0">
+    <if test="a == a">
+        <print>ok</print>
+    </if>
+</process-definition>''', "ok")
+    end
+
+    def test_condition_1
+        dotest(
+'''<process-definition name="con" revision="0">
+    <if test="a == b">
+        <print>ok</print>
+    </if>
+</process-definition>''', "")
+    end
+
+    def test_condition_2
+        dotest(
+'''<process-definition name="con" revision="0">
+    <sequence>
+        <set field="toto" value="nada" />
+        <if test="${f:toto} == nada">
+            <print>ok</print>
+        </if>
+    </sequence>
+</process-definition>''', "ok")
+    end
+
+    def test_condition_3
+        dotest(
+'''<process-definition name="con" revision="0">
+    <sequence>
+        <set field="toto" value="true" />
+        <if test="${f:toto}">
+            <print>ok</print>
+        </if>
+    </sequence>
+</process-definition>''', "ok")
+    end
+
+    def test_condition_4
+        dotest(
+'''<process-definition name="con" revision="0">
+    <if rtest="1+2 == 3">
+        <print>ok</print>
+    </if>
+</process-definition>''', "ok")
+    end
+
+    def test_condition_5
+        dotest(
+'''<process-definition name="con" revision="0">
+    <if test="1+2 == 3">
+        <print>ok</print>
+        <print>nok</print>
+    </if>
+</process-definition>''', "ok")
+    end
+
+end
+