ruote 0.9.18

data/test/ft_72_lookup_processes.rb

@@ -0,0 +1,76 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/participants/storeparticipants'
+
+
+class FlowTest72 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            _set :variable => "/toto", :value => "${f:toto}"
+            participant :alpha
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        sa = @engine.register_participant :alpha, OpenWFE::HashParticipant
+
+        li = OpenWFE::LaunchItem.new Test0
+        li.toto = 'toto_zero'
+        fei0 = launch li
+
+        li = OpenWFE::LaunchItem.new Test0
+        li.toto = 'toto_one'
+        fei1 = launch li
+
+        sleep 0.350
+
+        wfids = @engine.lookup_processes('nada')
+        assert_equal 0, wfids.size
+
+        wfids = @engine.lookup_processes('toto')
+        assert_equal 2, wfids.size
+        assert wfids.include?(fei0.wfid)
+        assert wfids.include?(fei1.wfid)
+
+        wfids = @engine.lookup_processes('toto', 'smurf')
+        assert_equal 0, wfids.size
+
+        wfids = @engine.lookup_processes('toto', 'toto_.*')
+        assert_equal 2, wfids.size
+
+        wfids = @engine.lookup_processes('toto', Regexp.compile('toto_one'))
+        assert_equal wfids, [ fei1.wfid ]
+
+        # over.
+
+        @engine.cancel_process fei0
+        @engine.cancel_process fei1
+
+        sleep 0.350
+    end
+
+end
+

data/test/ft_73_cancel_sub.rb

@@ -0,0 +1,139 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/participants/storeparticipants'
+
+
+class FlowTest73 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            sub0
+        end
+        process_definition :name => "sub0" do
+            p0
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        p0 = @engine.register_participant :p0, OpenWFE::HashParticipant
+
+        fei = launch Test0
+
+        sleep 0.350
+
+        assert_equal 1, p0.size
+        #puts "in store : " + p0.first_workitem.fei.to_s
+
+        wi = p0.first_workitem
+        assert_equal wi.fei.wfid, fei.wfid + ".0"
+
+        @engine.cancel_process fei
+
+        sleep 0.350
+
+        assert_equal 0, p0.size
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            sub1 :forget => true
+            _sleep :for => "5m"
+        end
+        process_definition :name => "sub1" do
+            p1
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        p1 = @engine.register_participant :p1, OpenWFE::HashParticipant
+
+        fei = launch Test1
+
+        sleep 0.350
+
+        assert_equal 1, p1.size
+        #puts "in store : " + p1.first_workitem.fei.to_s
+
+        wi = p1.first_workitem
+        assert_equal wi.fei.wfid, fei.wfid + ".0"
+
+        @engine.cancel_process(fei)
+
+        sleep 0.350
+
+        assert_equal 1, p1.size
+
+        @engine.cancel_process(p1.first_workitem.fei)
+
+        sleep 0.400
+
+        assert_equal 0, p1.size
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class Test2 < OpenWFE::ProcessDefinition
+        sequence do
+            sub2 :forget => true
+            p2
+        end
+        process_definition :name => "sub2" do
+            p20
+        end
+    end
+
+    def test_2
+
+        #log_level_to_debug
+
+        p2 = @engine.register_participant :p2, OpenWFE::HashParticipant
+        p20 = @engine.register_participant :p20, OpenWFE::HashParticipant
+
+        fei = launch Test2
+
+        sleep 0.400
+
+        assert_equal 1, p2.size
+        assert_equal 1, p20.size
+
+        @engine.cancel_process p20.first_workitem.fei
+        sleep 0.350
+        @engine.cancel_process p2.first_workitem.fei
+        sleep 0.350
+    end
+
+end
+

data/test/ft_74_block_and_workitem_dup.rb

@@ -0,0 +1,63 @@
+
+#
+# Testing OpenWFE
+#
+# Original bug report by Maarten Oelering
+# John Mettraux at openwfe.org
+#
+# Thu Sep 13 17:46:20 JST 2007
+#
+
+require 'flowtestbase'
+
+
+class FlowTest74 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    def test_0
+
+        engine.register_participant("part1") do |workitem|
+            @tracer << "part1\n"
+            # the last expression of the block evaluates to the workitem
+            # remove this line or replace it with nil and it works again
+            workitem
+        end
+        
+        engine.register_participant("part3") do |workitem|
+            @tracer << "part3\n"
+        end
+        
+        engine.register_participant("part4") do |workitem|
+            @tracer << "part4\n"
+        end
+
+        process = <<THE_END
+<process-definition name="test" revision="0.1">
+    <sequence>
+        <part1/>
+        <concurrence>
+            <part3/>
+            <part4/>
+        </concurrence>
+    </sequence>
+</process-definition>
+THE_END
+        
+        #log_level_to_debug
+
+        dotest(
+            process.strip,
+            [ "part1\npart3\npart4", "part1\npart4\npart3" ])
+    end
+
+end
+

data/test/ft_75_ruby_attributes.rb

@@ -0,0 +1,87 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Nov  1 15:21:34 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest75 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            set :field => "f0", :value => [ 'my', 'array' ]
+            set :field => :f1, :value => [ 'my', 'array' ]
+            _print "${f:f0.0}"
+            _print "${f:f1.1}"
+        end
+    end
+
+    def test_0
+
+        dotest Test0, "my\narray"
+    end
+
+    #
+    # TEST 1
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            set :field => "f0", :value => true
+            _print "${r:workitem.f0.class.name}"
+        end
+    end
+
+    def test_1
+
+        dotest Test1, "TrueClass"
+    end
+
+    #
+    # TEST 2
+
+    class Test2 < OpenWFE::ProcessDefinition
+        sequence do
+            set :variable => "v0", :value => "alpha"
+            set :variable => :v0, :value => "bravo"
+            _print "${v0}"
+            set :field => "f0", :value => "alpha"
+            set :field => :f0, :value => "bravo"
+            _print "${f:f0}"
+        end
+    end
+
+    def test_2
+
+        dotest Test2, "bravo\nbravo"
+    end
+
+    #
+    # TEST 3
+
+    #class Test3 < OpenWFE::ProcessDefinition
+    #    sequence do
+    #    end
+    #end
+    #def test_3
+    #    dotest Test3, "6"
+    #end
+
+end
+

data/test/ft_76_merge_isolate.rb

@@ -0,0 +1,88 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest76 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            concurrence :merge_type => :isolate do
+                set :field => "y", :value => "y0"
+                set :field => "y", :value => "y1"
+                set :field => "y", :value => "y2"
+            end
+            catcher
+        end
+    end
+
+    def test_0
+
+        do_the_test Test0
+    end
+
+    #
+    # Test 1
+    #
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            concurrent_iterator(
+                :on_value => "0, 1, 2", 
+                :to_field => "f", 
+                :merge_type => :isolate
+            ) do
+                set :field => "y", :value => "y${f:f}"
+            end
+            catcher
+        end
+    end
+
+    def test_1
+        do_the_test Test1
+    end
+
+    protected
+
+        def do_the_test (definition)
+
+            #log_level_to_debug
+            
+            workitem = nil
+
+            engine.register_participant :catcher do |wi|
+                workitem = wi
+            end
+
+            dotest definition, ""
+
+            #puts
+            #puts workitem.to_s
+
+            3.times do |i|
+                assert_equal "y#{i}", workitem.lookup_attribute("#{i}.y")
+            end
+                #
+                # 3 lines replaced by 3 lines :)
+        end
+
+end
+