ruote 0.9.18

data/test/ft_51_stack.rb

@@ -0,0 +1,55 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest51 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    #COUNT = 400 :)
+    #COUNT = 500 :(
+    COUNT = 450
+        #
+        # before svn639, it broke with a too deep stack with a sequence
+        # of 450 elements
+
+    class TestCondition51a0 < OpenWFE::ProcessDefinition
+        sequence do
+            COUNT.times do
+                toto
+            end
+            _print "${f:__result__}"
+        end
+    end
+
+    def test_0
+
+        count = 0
+
+        @engine.register_participant :toto do |workitem|
+            count += 1
+            workitem.__result__ = count
+        end
+
+        dotest(TestCondition51a0, "#{COUNT}")
+    end
+
+end
+

data/test/ft_52_obs_participant.rb

@@ -0,0 +1,123 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest52 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestObsParticipant52a0 < OpenWFE::ProcessDefinition
+        participant :ref => :toto
+    end
+
+    def test_0
+
+        @engine.get_expression_pool.add_observer :apply do |evt, fe, workitem|
+            @tracer << "#{evt} #{fe.fei.expression_name}\n" \
+                if fe.fei.expression_name == "participant"
+        end
+        @engine.get_expression_pool.add_observer :reply_to_parent do |evt, fe, workitem|
+            @tracer << "#{evt} #{fe.fei.expression_name}\n" \
+                if fe.fei.expression_name == "participant"
+        end
+
+        @engine.register_participant :toto do |workitem|
+            @tracer << "toto\n"
+        end
+
+        dotest(
+            TestObsParticipant52a0, 
+            """
+apply participant
+toto
+reply_to_parent participant
+            """.strip)
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestObsParticipant52a1 < OpenWFE::ProcessDefinition
+        sequence do
+            toto
+            sub0
+        end
+        process_definition :name => "sub0" do
+        end
+    end
+
+    def test_1
+        @engine.get_expression_pool.add_observer :apply do |evt, fe, workitem|
+            @tracer << "#{evt} #{fe.fei.expression_name}\n"
+        end
+        @engine.register_participant :toto do
+            #nothing
+        end
+        dotest(
+            TestObsParticipant52a1,
+            """
+apply process-definition
+apply sequence
+apply toto
+apply sub0
+apply process-definition
+            """.strip)
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestObsParticipant52a2 < OpenWFE::ProcessDefinition
+        sequence do
+            alpha
+            bravo
+        end
+    end
+
+    def test_2
+
+        @engine.get_participant_map.add_observer :dispatch do |evt, msg, wi|
+            @tracer << "#{evt} #{msg} #{wi.fei.expression_name}\n"
+        end
+
+        @engine.register_participant :alpha do |workitem|
+            @tracer << "alpha\n"
+        end
+        @engine.register_participant :bravo do |workitem|
+            @tracer << "bravo\n"
+        end
+
+        dotest(
+            TestObsParticipant52a2, 
+            """
+dispatch before_consume alpha
+alpha
+dispatch after_consume alpha
+dispatch before_consume bravo
+bravo
+dispatch after_consume bravo
+            """.strip)
+    end
+
+end
+

data/test/ft_53_null_noop_participant.rb

@@ -0,0 +1,62 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+
+
+class FlowTest53 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            _print "a"
+            participant :ref => :null, :timeout => "1s"
+            _print "b"
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant :null, OpenWFE::NullParticipant
+
+        dotest Test0, "a\nb"
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            _print "a"
+            participant :ref => :noop
+            _print "b"
+        end
+    end
+
+    def test_1
+
+        @engine.register_participant :noop, OpenWFE::NoOperationParticipant
+
+        dotest Test1, "a\nb"
+    end
+
+end
+

data/test/ft_54_listen.rb

@@ -0,0 +1,288 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+
+
+class FlowTest54 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        concurrence do
+
+            listen :to => "^channel_.$" do
+                _print "ok"
+            end
+
+            sequence do
+
+                _sleep "500"
+                    #
+                    # just making sure that the participant is evaluated
+                    # after the listen [registration]
+
+                participant :ref => "channel_z"
+            end
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
+
+        dotest Test0, "ok"
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class Test1 < OpenWFE::ProcessDefinition
+        concurrence do
+
+            listen :to => "^channel_.$", :where => "${f:f0} == alpha" do
+                _print "alpha"
+            end
+
+            sequence do
+
+                _sleep "500"
+                    #
+                    # just making sure that the participant is evaluated
+                    # after the listen [registration]
+
+                participant :ref => "channel_z"
+                set :field => "f0", :value => "alpha"
+                participant :ref => "channel_z"
+            end
+        end
+    end
+
+    def test_1
+
+        log_level_to_debug
+
+        @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
+
+        dotest Test1, "alpha"
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class Test2 < OpenWFE::ProcessDefinition
+        concurrence do
+
+            listen :to => "^channel_.$" do
+                #
+                # upon apply by default
+
+                _print "apply"
+            end
+            listen :to => "^channel_.$", :upon => "reply" do
+                _print "reply"
+            end
+
+            sequence do
+
+                _sleep "500"
+
+                participant :ref => "channel_z"
+
+                participant :ref => "channel_z"
+                    #
+                    # listeners are 'once' by default, check that
+            end
+        end
+    end
+
+    def test_2
+
+        @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
+
+        dotest Test2, [ "apply\nreply", "reply\napply" ]
+    end
+
+
+    #
+    # Test 3 (moved to ft_54c_listen.rb)
+    #
+
+
+    #
+    # Test 4
+    #
+
+    class Test4 < OpenWFE::ProcessDefinition
+        concurrence do
+
+            #listen :to => "^channel_.$", :rwhere => "self.fei.wfid == '${r:workitem.fei.wfid}'" do
+            listen :to => "^channel_.$", :where => "${r:fei.wfid} == ${r:workitem.fei.wfid}" do
+                _print "ok"
+            end
+
+            sequence do
+                _sleep "500"
+                participant :ref => "channel_z"
+            end
+        end
+    end
+
+    def test_4
+
+        log_level_to_debug
+
+        @engine.register_participant :channel_z do
+            @tracer << "z\n"
+        end
+
+        dotest Test4, "z\nok"
+    end
+
+
+    #
+    # Test 5
+    #
+
+    class Test5 < OpenWFE::ProcessDefinition
+        concurrence do
+
+            #listen :to => :channel_z do
+            receive :on => :channel_z do
+                _print "ok"
+            end
+
+            sequence do
+                _sleep "500"
+                channel_zz
+                channel_z
+            end
+        end
+    end
+
+    def test_5
+
+        @engine.register_participant :channel_z do
+            @tracer << "z\n"
+        end
+        @engine.register_participant :channel_zz do
+            @tracer << "zz\n"
+        end
+
+        dotest Test5, "zz\nok\nz"
+    end
+
+
+    #
+    # Test 6 : merge => false (default)
+    #
+
+    class Test6 < OpenWFE::ProcessDefinition
+        concurrence do
+
+            sequence do
+
+                set :field => "truck", :value => "v_truck_0"
+                set :field => "car", :value => "v_car_0"
+
+                listen :to => "^channel_.$" do
+                    sequence do
+                        _print "${f:truck}"
+                        _print "${f:ferryboat}"
+                        _print "${f:car}"
+                    end
+                end
+            end
+
+            sequence do
+
+                _sleep "500"
+                    #
+                    # just making sure that the participant is evaluated
+                    # after the listen [registration]
+
+                set :field => "truck", :value => "v_truck_1"
+                set :field => "ferryboat", :value => "v_ferryboat_1"
+
+                participant :ref => "channel_z"
+            end
+        end
+    end
+
+    def test_6
+
+        log_level_to_debug
+
+        @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
+
+        dotest Test6, "v_truck_1\nv_ferryboat_1"
+    end
+
+
+    #
+    # Test 6b : merge => true
+    #
+
+    class Test6b < OpenWFE::ProcessDefinition
+        concurrence do
+
+            sequence do
+
+                set :field => "truck", :value => "v_truck_0"
+                set :field => "car", :value => "v_car_0"
+
+                listen :to => "^channel_.$", :merge => true do
+                    sequence do
+                        _print "${f:truck}"
+                        _print "${f:ferryboat}"
+                        _print "${f:car}"
+                    end
+                end
+            end
+
+            sequence do
+
+                _sleep "500"
+                    #
+                    # just making sure that the participant is evaluated
+                    # after the listen [registration]
+
+                set :field => "truck", :value => "v_truck_1"
+                set :field => "ferryboat", :value => "v_ferryboat_1"
+
+                participant :ref => "channel_z"
+            end
+        end
+    end
+
+    def test_6b
+
+        log_level_to_debug
+
+        @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
+
+        dotest Test6b, "v_truck_1\nv_ferryboat_1\nv_car_0"
+    end
+
+end
+