ruote 0.9.18

data/test/ft_54b_listen.rb

@@ -0,0 +1,66 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+
+
+class FlowTest54b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            listen :to => "^channel_.$", :upon => :reply
+            _print "ok"
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        launch Test0
+
+        sleep 0.350
+
+        assert_equal @tracer.to_s, ""
+
+        wi = OpenWFE::InFlowWorkItem.new
+        wi.participant_name = "channel_z"
+
+        r = @engine.reply wi
+        assert r
+
+        sleep 0.350
+
+        #
+        # "post test", checking that engine replies 'false' when
+        # nobody consumed the message
+
+        assert_equal @tracer.to_s, "ok"
+
+        wi = OpenWFE::InFlowWorkItem.new
+        wi.participant_name = "channel_unknown"
+
+        r = @engine.reply wi
+        assert (not r)
+    end
+
+end
+

data/test/ft_54c_listen.rb

@@ -0,0 +1,99 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+
+
+class FlowTest54c < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        concurrence do
+
+            listen :to => "^channel_.$", :once => false do
+                _print "apply"
+            end
+
+            sequence do
+                _sleep "300"
+                participant :ref => "channel_z"
+                channel_z
+            end
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant :channel_z do
+            @tracer << "z\n"
+        end
+
+        #log_level_to_debug
+
+        outputs = [
+            %w{ z apply z apply }.join("\n"),
+            %w{ z z apply apply }.join("\n")
+        ]
+
+        dotest Test0, outputs, 0.850, true
+    end
+
+    #
+    # Test 1
+    #
+
+    class Test1 < OpenWFE::ProcessDefinition
+        concurrence do
+            listen :to => "channel9", :once => false do
+                listen9
+            end
+            sequence do
+                _sleep "300"
+                channel9
+            end
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        @engine.register_participant "channel9", OpenWFE::NullParticipant
+        @engine.register_participant "listen9", OpenWFE::NullParticipant
+
+        fei = launch Test1
+
+        sleep 0.700
+
+        #puts @engine.get_expression_storage
+        assert_equal 8, @engine.get_expression_storage.size
+
+        #puts @engine.get_expression_storage
+
+        @engine.cancel_process fei
+
+        sleep 0.700
+
+        #puts @engine.get_expression_storage
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+end
+

data/test/ft_55_ptimeout.rb

@@ -0,0 +1,59 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'pending'
+require 'openwfe/def'
+
+
+class FlowTest55 < Test::Unit::TestCase
+    include FlowTestBase
+    include PendingJobsMixin
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        concurrence :count => 1 do
+            sequence do
+                participant :ref => "channel_z", :timeout => "1s"
+                _print "cancelled?"
+            end
+            _print "concurrence done"
+        end
+    end
+
+    def test_0
+
+        #scheduler = @engine.get_scheduler
+        #class << scheduler
+        #    attr_reader :pending_jobs
+        #end
+
+        #log_level_to_debug
+
+        @engine.register_participant :channel_z, OpenWFE::NullParticipant
+
+        #require 'pp'; pp(scheduler.pending_jobs)
+        assert_no_jobs_left
+
+        dotest Test0, "concurrence done"
+
+        #require 'pp'; pp(scheduler.pending_jobs)
+        assert_no_jobs_left
+    end
+
+end
+

data/test/ft_56_timeout.rb

@@ -0,0 +1,59 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'pending'
+require 'openwfe/def'
+
+
+class FlowTest56 < Test::Unit::TestCase
+    include FlowTestBase
+    include PendingJobsMixin
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            _timeout :after => "1s" do
+                sequence do
+                    _print "ok"
+                    _sleep "2s"
+                    _print "not ok"
+                end
+            end
+            _print "done"
+        end
+    end
+
+    def test_0
+
+        assert_no_jobs_left
+
+        dotest Test0, "ok\ndone"
+
+        sleep 0.350 # skip one scheduler beat
+
+        #s = @engine.get_scheduler
+        #class << s
+        #    attr_reader :pending_jobs
+        #end
+        #p s.pending_jobs.collect { |j| [ j.job_id, j.class.name ] }
+
+        assert_no_jobs_left
+    end
+
+end
+

data/test/ft_57_a.rb

@@ -0,0 +1,145 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'pending'
+require 'openwfe/def'
+
+
+class FlowTest57 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            _set :field => "list" do
+                _a """
+                    <array>
+                        <string>a</string>
+                        <string>b</string>
+                        <string>c</string>
+                        <null/>
+                        <true/>
+                    </array>
+                """
+            end
+            _print "${r:wi.list.join('|')}"
+            _print "-"
+            _set :field => "list" do
+                _attribute """
+--- 
+- a
+- b
+- 3
+                """
+            end
+            _print "${r:wi.list.join('|')}"
+        end
+    end
+
+    def test_0
+
+        dotest(
+            Test0, 
+            """
+a|b|c||true
+-
+a|b|3
+            """.strip)
+    end
+
+    def test_1
+
+        dotest(
+            """
+<process-definition name='57_b' revision='1'>
+    <sequence>
+        <set field='list'>
+            <a>
+--- 
+- c
+- d
+- e
+            </a>
+        </set>
+        <print>${r:wi.list.join('|')}</print>
+    </sequence>
+</process-definition>
+            """,
+            "c|d|e")
+    end
+
+    def test_2
+
+        dotest(
+            """
+<process-definition name='57_c' revision='2'>
+    <sequence>
+        <set field='list'>
+            <a>
+            <array>
+                <string>a</string>
+                <number>2</number>
+                <string>c</string>
+                <false/>
+            </array>
+            </a>
+        </set>
+        <print>${r:wi.list.join('|').strip}</print>
+    </sequence>
+</process-definition>
+            """,
+            "a|2|c|false")
+    end
+
+    #
+    # Test 3
+    #
+
+    class Test3 < OpenWFE::ProcessDefinition
+        sequence do
+            _set :field => "other" do
+                reval { "77" }
+            end
+            _print "${f:other}"
+        end
+    end
+
+    def test_3
+
+        dotest Test3, "77"
+    end
+
+    #
+    # Test 4
+    #
+
+    class Test4 < OpenWFE::ProcessDefinition
+        sequence do
+            set :field => "other" do
+                a '[1,2,3,false,"toto"]'
+            end
+            _print "${f:other}"
+        end
+    end
+
+    def test_4
+
+        dotest Test4, "123falsetoto"
+    end
+end
+

data/test/ft_58_ejournal.rb

@@ -0,0 +1,151 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Fri Jun 29 23:12:53 JST 2007
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+require 'openwfe/engine/file_persisted_engine'
+require 'openwfe/expool/errorjournal'
+
+
+
+class FlowTest58 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            participant :alpha
+            participant :nada
+            participant :bravo
+        end
+    end
+
+    def test_0
+
+        ejournal = @engine.get_error_journal
+
+        @engine.register_participant(:alpha) do |wi|
+            @tracer << "alpha\n"
+        end
+
+        li = OpenWFE::LaunchItem.new Test0
+        fei = launch li
+
+        sleep 0.300
+
+        assert File.exist?("work/ejournal/#{fei.parent_wfid}.ejournal") \
+            if @engine.is_a?(OpenWFE::FilePersistedEngine)
+
+        errors = ejournal.get_error_log fei
+
+        #require 'pp'; pp ejournal
+        #puts "/// error journal of class #{ejournal.class.name}"
+
+        assert_equal 1, errors.length
+
+        assert ejournal.has_errors?(fei)
+        assert ejournal.has_errors?(fei.wfid)
+
+        # OK, let's fix the root and replay
+
+        @engine.register_participant(:nada) do |wi|
+            @tracer << "nada\n"
+        end
+        @engine.register_participant(:bravo) do |wi|
+            @tracer << "bravo\n"
+        end
+
+        # fix done
+
+        assert_equal "alpha", @tracer.to_s
+
+        @engine.replay_at_error errors.first
+
+        sleep 0.300
+
+        assert_equal "alpha\nnada\nbravo", @tracer.to_s
+
+        errors = ejournal.get_error_log fei
+
+        assert_equal 0, errors.length
+
+        assert ( ! ejournal.has_errors?(fei))
+    end
+
+    #
+    # TEST 1
+
+    # Testing that the changes to the workitem are taken into account
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            participant :nada
+            _print "it's ${f:weather}"
+        end
+    end
+
+    def test_1
+
+        ejournal = @engine.get_error_journal
+
+        li = OpenWFE::LaunchItem.new Test1
+        li.weather = "sunny"
+
+        fei = launch li
+
+        sleep 0.300
+
+        errors = ejournal.get_error_log fei
+
+        #require 'pp'; pp ejournal
+        #puts "/// error journal of class #{ejournal.class.name}"
+
+        assert_equal 1, errors.length
+
+        assert ejournal.has_errors?(fei)
+        assert ejournal.has_errors?(fei.wfid)
+
+        #
+        # fix
+
+        @engine.register_participant :nada do
+            # do nothing
+        end
+
+        #
+        # replay
+
+        error = errors.first
+
+        assert_equal "sunny", error.workitem.weather
+
+        error.workitem.weather = "rainy"
+
+        @engine.replay_at_error error
+
+        sleep 0.300
+
+        assert_trace "it's rainy"
+    end
+
+end
+