openwferu 0.9.10.653 → 0.9.11

data/test/ft_54_listen.rb

@@ -0,0 +1,223 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+
+include OpenWFE
+
+
+class FlowTest54 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < 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 xxxx_0
+    def test_0
+
+        @engine.register_participant :channel_z, NoOperationParticipant
+
+        dotest(Test0, "ok")
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class Test1 < 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 xxxx_1
+    def test_1
+
+        @engine.register_participant :channel_z, NoOperationParticipant
+
+        dotest(Test1, "alpha")
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class Test2 < 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 xxxx_2
+    def test_2
+
+        @engine.register_participant :channel_z, NoOperationParticipant
+
+        dotest(Test2, "apply\nreply")
+    end
+
+
+    #
+    # Test 3
+    #
+
+    class Test3 < ProcessDefinition
+        concurrence do
+
+            listen :to => "^channel_.$", :once => false do
+                _print "apply"
+            end
+
+            sequence do
+                _sleep "500"
+                participant :ref => "channel_z"
+                participant :ref => "channel_z"
+            end
+        end
+    end
+
+    #def xxxx_3
+    def test_3
+
+        @engine.register_participant :channel_z do
+            @tracer << "z\n"
+        end
+
+        dotest(Test3, "z\napply\nz\napply", 2, true)
+    end
+
+
+    #
+    # Test 4
+    #
+
+    class Test4 < 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 xxxx_4
+    def test_4
+
+        @engine.register_participant :channel_z do
+            @tracer << "z\n"
+        end
+
+        dotest(Test4, "z\nok")
+    end
+
+
+    #
+    # Test 5
+    #
+
+    class Test5 < ProcessDefinition
+        concurrence do
+
+            listen :to => :channel_z do
+                _print "ok"
+            end
+
+            sequence do
+                _sleep "500"
+                channel_zz
+                channel_z
+            end
+        end
+    end
+
+    #def xxxx_5
+    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
+
+end
+

data/test/ft_55_ptimeout.rb

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

data/test/ft_56_timeout.rb

@@ -0,0 +1,55 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'pending'
+require 'openwfe/def'
+#require 'openwfe/participants/participants'
+
+include OpenWFE
+
+
+class FlowTest56 < Test::Unit::TestCase
+    include FlowTestBase
+    include PendingJobsMixin
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < ProcessDefinition
+        sequence do
+            _timeout :after => "1s" do
+                sequence do
+                    _print "ok"
+                    _sleep "2s"
+                    _print "not ok"
+                end
+            end
+            _print "done"
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        assert_no_jobs_left
+
+        dotest Test0, "ok\ndone"
+
+        assert_no_jobs_left
+    end
+
+end
+

data/test/ft_57_a.rb

@@ -0,0 +1,109 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'pending'
+require 'openwfe/def'
+#require 'openwfe/participants/participants'
+
+include OpenWFE
+
+
+class FlowTest57 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < ProcessDefinition
+        sequence do
+            _set :field => "list" do
+                _a """
+                    <list>
+                        <string>a</string>
+                        <string>b</string>
+                        <string>c</string>
+                    </list>
+                """
+            end
+            _print "${r:wi.list.join('|')}"
+            _print "-"
+            _set :field => "list" do
+                _attribute """
+--- 
+- a
+- b
+- 3
+                """
+            end
+            _print "${r:wi.list.join('|')}"
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+        dotest(
+            Test0, 
+            """
+a|b|c
+-
+a|b|3
+            """.strip)
+    end
+
+    #def xxxx_1
+    def test_1
+        dotest(
+            """
+<process-definition name='57_a' revision='1'>
+    <sequence>
+        <set field='list'>
+            <a>
+--- 
+- c
+- d
+- e
+            </a>
+        </set>
+        <print>${r:wi.list.join('|')}</print>
+    </sequence>
+</process-definition>
+            """.strip,
+            "c|d|e")
+    end
+
+    #def xxxx_2
+    def test_2
+        dotest(
+            """
+<process-definition name='57_a' revision='2'>
+    <sequence>
+        <set field='list'>
+            <a>
+            <list>
+                <string>a</string>
+                <string>2</string>
+                <string>c</string>
+            </list>
+            </a>
+        </set>
+        <print>${r:wi.list.join('|')}</print>
+    </sequence>
+</process-definition>
+            """.strip,
+            "a|2|c")
+    end
+end
+

data/test/ft_tests.rb

@@ -66,6 +66,13 @@ require 'ft_49_condition'
 require 'ft_50_xml_attribute'
 #require 'ft_51_stack'
 require 'ft_52_obs_participant'
+require 'ft_53_null_noop_participant'
+require 'ft_54_listen'
+require 'ft_55_ptimeout'
+require 'ft_56_timeout'
+require 'ft_57_a'
 
 require 'ft_32_journal'
+require 'ft_32c_journal'
+require 'ft_32d_journal'
 

data/test/hparticipant_test.rb

@@ -124,7 +124,7 @@ class HParticipantTest < Test::Unit::TestCase
 
         id = @engine.launch(HpDefinition0)
 
-        sleep 0.100
+        sleep 0.300
 
         assert_equal @hpAlice.size, 1
         assert_equal @hpBob.size, 0
@@ -140,7 +140,7 @@ class HParticipantTest < Test::Unit::TestCase
 
         @hpBob.proceed wi
 
-        sleep 0.100
+        sleep 0.300
 
         assert_equal @hpAlice.size, 0
         assert_equal @hpBob.size, 1
@@ -156,7 +156,7 @@ class HParticipantTest < Test::Unit::TestCase
 
         @hpAlice.forward wi
 
-        sleep 0.100
+        sleep 0.300
 
         assert_equal @hpAlice.size, 0
         assert_equal @hpBob.size, 0

data/test/obs_test.rb

@@ -0,0 +1,115 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 16:18:25 JST 2006
+#
+
+require 'test/unit'
+
+require 'openwfe/util/observable'
+
+
+#
+# testing the observer module (mixin)
+#
+
+class ObsTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    class Observed
+        include OpenWFE::Observable
+
+        def initialize
+            super
+            @observers = {}
+        end
+
+        public :onotify
+    end
+
+    def test_0
+
+        $s = nil
+
+        observed = Observed.new
+
+        observed.add_observer :channel0 do
+            $s = 0
+        end
+
+        observer1 = Object.new
+        class << observer1
+            def call channel, *args
+                $s = 1
+            end
+        end
+        observed.add_observer :channel1, observer1
+
+        observer2 = lambda do |channel, args|
+            $s = 2
+        end
+        observed.add_observer :channel2, observer2
+
+        observed.onotify :channel0, :nothing
+        assert_equal $s, 0
+
+        observed.onotify :channel1, :nothing
+        assert_equal $s, 1
+
+        observed.onotify :channel2, :nothing
+        assert_equal $s, 2
+
+        $s = nil
+
+        observed.remove_observer observer2, :channel99
+
+        observed.onotify :channel2, :nothing
+        assert_equal $s, 2
+
+        $s = nil
+
+        observed.remove_observer observer2
+
+        observed.onotify :channel2, :nothing
+        assert_nil $s
+
+        $s = nil
+
+        observed.remove_observer observer1, :channel1
+
+        observed.onotify :channel1, :nothing
+        assert_nil $s
+    end
+
+
+    def test_1
+
+        $s = nil
+
+        observed = Observed.new
+
+        observed.add_observer :channel0 do
+            $s = 0
+        end
+        observed.add_observer "channel[0-9]+" do
+            $s = 9
+        end
+
+        $s = nil
+        observed.onotify "channel2", :nothing
+        assert_equal $s, 9
+
+        $s = nil
+        observed.onotify "channelZ", :nothing
+        assert_nil $s
+    end
+
+end