ruote 0.9.18

data/test/ft_11b_ppd.rb

@@ -0,0 +1,54 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'rubygems'
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest11b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+    # bug #9905 : "NPE" was raised...
+    #
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        def make
+            _print "ok"
+        end
+    end
+
+    def test_0
+        dotest TestDefinition0.new, "ok"
+    end
+
+    #
+    # Test 1
+    #
+
+    class TestDefinition1 < OpenWFE::ProcessDefinition
+        _print "ok"
+    end
+
+    def test_1
+        dotest TestDefinition1, "ok"
+    end
+
+end
+

data/test/ft_12_blockparticipant.rb

@@ -0,0 +1,97 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest12 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class BpDef0 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test0", :revision => "0" do
+                sequence do
+                    participant :ref => "block-participant"
+                    _print "done."
+                end
+            end
+        end
+    end
+
+    def test_bp_0
+        dotest(
+            BpDef0,
+            """the block participant received a workitem
+done.""")
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class BpDef1 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test1", :revision => "0" do
+                bp1a
+            end
+        end
+    end
+
+    def test_bp_1
+
+        @engine.register_participant("bp1a") do |fexp, wi|
+            @tracer << "bp1a : "
+            @tracer << fexp.class.name
+            @tracer << "\n"
+        end
+
+        dotest(
+            BpDef1,
+            """bp1a : OpenWFE::ParticipantExpression""")
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class BpDef2 < OpenWFE::ProcessDefinition
+        sequence do
+            bp
+            _print "${f:__result__}"
+        end
+    end
+
+    def test_bp_2
+
+        @engine.register_participant("bp") do |fexp, wi|
+            "a string result"
+                #
+                # the 'return' value of a block participant is stored
+                # in the "__result__" field of the workitem
+        end
+
+        dotest(BpDef2, "a string result")
+    end
+
+end
+

data/test/ft_13_eno.rb

@@ -0,0 +1,52 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+require 'openwfe/participants/enoparticipants'
+require 'flowtestbase'
+
+
+class FlowTest13 < 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
+                sequence do
+                    set :field => 'email_target' do
+                        "whatever56x56@gmail.com"
+                    end
+                    set :field => 'customer_name' do
+                        "Monsieur Toto"
+                    end
+                    participant :ref => 'eno'
+                    _print "ok"
+                end
+            end
+        end
+    end
+
+    def test_ppd_0
+        dotest(
+            TestDefinition0,
+            "ok")
+    end
+end
+

data/test/ft_14_subprocess.rb

@@ -0,0 +1,88 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest14 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_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_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\nok")
+    end
+
+    def test_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\nafter")
+    end
+
+    def test_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\nafter : out")
+    end
+
+end
+

data/test/ft_14b_subprocess.rb

@@ -0,0 +1,192 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest14b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # TEST 0
+
+    def test_0
+
+        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\nABC")
+    end
+
+
+    #
+    # TEST 1
+
+    class SubTest1 < OpenWFE::ProcessDefinition
+
+        sub1 "toto", :a => "A"
+
+        process_definition :name => :sub1 do
+            _print "${0} ${a}"
+        end
+    end
+
+    def test_1
+
+        dotest SubTest1, "toto A"
+    end
+
+
+    #
+    # TEST 1b
+
+    def test_1b
+
+        dotest(
+'''<process-definition name="subtest0" revision="0">
+
+    <sequence>
+        <subprocess ref="sub0" a="A">zero</subprocess>
+        <sub0 a="A">rei</sub0>
+    </sequence>
+
+    <process-definition name="sub0">
+        <print>${0} ${a}</print>
+    </process-definition>
+
+</process-definition>''', 
+        "zero A\nrei A")
+    end
+
+
+    #
+    # TEST 2
+
+    class SubTest2 < OpenWFE::ProcessDefinition
+        def make
+
+            sequence do
+                sub1 do 
+                    "a"
+                end
+                sub1 "c", "d"
+            end
+
+            process_definition :name => :sub1 do
+                _print "${0} ${1}"
+            end
+        end
+    end
+
+    def test_2
+
+        dotest SubTest2, "a \nc d"
+    end
+
+
+    #
+    # TEST 3
+
+    class SubTest3 < OpenWFE::ProcessDefinition
+
+        subprocess "c", "d", :ref => :sub1
+
+        process_definition :name => :sub1 do
+            _print "${0} ${1}"
+        end
+    end
+
+    def test_3
+
+        dotest SubTest3, "c d"
+    end
+
+    #
+    # TEST 4
+
+    class Test4 < OpenWFE::ProcessDefinition
+        sub0
+        process_definition :name => "sub0" do
+            toto
+        end
+    end
+
+    def test_4
+
+        #log_level_to_debug
+
+        @engine.register_participant "toto", OpenWFE::NullParticipant
+
+        fei = launch Test4
+
+        sleep 0.350
+
+        #puts @engine.get_expression_storage
+        assert_equal 8, @engine.get_expression_storage.size
+
+        @engine.cancel_process fei
+
+        sleep 0.350
+
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+    #
+    # TEST 5
+
+    class Test5 < OpenWFE::ProcessDefinition
+        sub0 :forget => true
+        process_definition :name => "sub0" do
+            toto
+        end
+    end
+
+    def test_5
+
+        #log_level_to_debug
+
+        @engine.register_participant "toto", OpenWFE::NullParticipant
+
+        fei = launch Test5
+
+        sleep 0.350
+
+        #puts @engine.get_expression_storage
+        assert_equal 4, @engine.get_expression_storage.size
+
+        @engine.cancel_process fei.wfid + ".0"
+            # cancelling the remaining subprocess
+
+        sleep 0.350
+
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+end
+