openwferu 0.9.16 → 0.9.17

data/test/ft_28_fileparticipant.rb

@@ -38,7 +38,6 @@ class FlowTest28 < Test::Unit::TestCase
         end
     end
 
-    #def xxxx_fp_0
     def test_fp_0
 
         FileUtils.mkdir("./work/in") unless File.exist? "./work/in"
@@ -48,7 +47,7 @@ class FlowTest28 < Test::Unit::TestCase
 
         fei = @engine.launch(TestDefinition0)
 
-        sleep 0.300
+        sleep 0.350
 
         Find.find("./work/out/") do |path|
             next unless path.match ".*\.yaml$"

data/test/ft_2_concurrence.rb

@@ -42,7 +42,7 @@ class FlowTest2 < Test::Unit::TestCase
             true)
     end
 
-    def _test_con_2
+    def test_con_2
 
         dotest(
 '''<process-definition name="ft_2_concurrence" revision="2">

data/test/ft_2b_concurrence.rb

@@ -43,8 +43,9 @@ class FlowTest2b < Test::Unit::TestCase
 
         prepare()
 
-        dotest(\
-'''<process-definition name="2b_con" revision="0">
+        dotest(
+            '''
+<process-definition name="2b_con" revision="0">
     <sequence>
         <concurrence
             merge="lowest"
@@ -61,8 +62,7 @@ class FlowTest2b < Test::Unit::TestCase
         <print>${f:key}</print>
     </sequence>
 </process-definition>''', 
-"charly")
-#0.25)
+            "charly")
     end
 
     #
@@ -128,25 +128,30 @@ true""",
     end
 
     def test_rawprog
-    #def xxxx_rawprog
 
         #puts TestDefinition1.new("lowest", "mix").make.to_s
 
-        assert TestDefinition1.new("lowest", "mix").make.to_s == """
-<process-definition name='2b_con' revision='1'>
-  <sequence>
-    <concurrence merge='lowest' merge-type='mix'>
-      <participant>alpha</participant>
-      <participant>bravo</participant>
-      <participant>charly</participant>
-    </concurrence>
-    <print>${f:key}
-${f:alpha}
-${f:bravo}
-${f:charly}</print>
-  </sequence>
-</process-definition>
-""".strip
+        assert_equal(
+            "<process-definition name='2b_con' revision='1'>"+
+            "<sequence>"+
+            "<concurrence merge='lowest' merge-type='mix'>"+
+            "<participant>"+
+            "alpha"+
+            "</participant>"+
+            "<participant>"+
+            "bravo"+
+            "</participant>"+
+            "<participant>"+
+            "charly"+
+            "</participant>"+
+            "</concurrence>"+
+            "<print>"+
+            "${f:key}\n${f:alpha}\n${f:bravo}\n${f:charly}"+
+            "</print>"+
+            "</sequence>"+
+            "</process-definition>", 
+            OpenWFE::ExpressionTree.to_s(
+                TestDefinition1.new("lowest", "mix").make))
     end
 
 

data/test/ft_30_socketlistener.rb

@@ -68,7 +68,6 @@ class FlowTest30 < Test::Unit::TestCase
     #
     # TEST 1
 
-    #def xxxx_sl_1
     def test_sl_1
 
         @engine.add_workitem_listener(OpenWFE::SocketListener)
@@ -99,7 +98,6 @@ class FlowTest30 < Test::Unit::TestCase
     #
     # TEST 2
 
-    #def xxxx_sl_2
     def test_sl_2
 
         @engine.add_workitem_listener(OpenWFE::SocketListener)
@@ -136,7 +134,6 @@ class FlowTest30 < Test::Unit::TestCase
     #
     # TEST 3
 
-    #def xxxx_sl_3
     def test_sl_3
 
         @engine.add_workitem_listener(OpenWFE::SocketListener)

data/test/ft_34_cancelwfid.rb

@@ -39,17 +39,17 @@ class FlowTest34 < Test::Unit::TestCase
 
         fei = @engine.launch(TestCancelWfid0)
 
-        sleep 0.100
+        sleep 0.300
 
         @engine.cancel_process(fei.wfid)
 
-        sleep 0.300
+        sleep 0.350
 
-        l = @engine.list_processes()
+        l = @engine.list_processes
 
-        assert_equal l.size, 0
+        assert_equal 0, l.size
 
-        assert_equal sp.size, 0
+        assert_equal 0, sp.size
             # check that participant got cancelled as well
     end
 
@@ -62,15 +62,15 @@ class FlowTest34 < Test::Unit::TestCase
 
         fei = @engine.launch(TestCancelWfid0)
 
-        sleep 0.300
+        sleep 0.350
 
         @engine.cancel_process(fei.wfid)
 
-        sleep 0.300
+        sleep 0.350
 
-        assert_equal @engine.get_process_stack(fei.wfid).size, 0
+        assert_equal 0, @engine.get_process_stack(fei.wfid).size
 
-        assert_equal sp.size, 0
+        assert_equal 0, sp.size
             # check that participant got cancelled as well
     end
 

data/test/ft_35_localdefs.rb

@@ -29,7 +29,6 @@ class FlowTest35 < Test::Unit::TestCase
     #
     # TEST 0
 
-    #def xxxx_local_0
     def test_local_0
 
         #log_level_to_debug

data/test/ft_36_subprocids.rb

@@ -59,12 +59,12 @@ class FlowTest36 < Test::Unit::TestCase
             feis[fexp.fei] = true
         end
 
-        @engine.launch(TestSubProcId0)
-        @engine.launch(TestSubProcId1)
+        @engine.launch TestSubProcId0
+        @engine.launch TestSubProcId1
 
-        sleep 1
+        sleep 2
 
-        assert_equal feis.keys.size, 4
+        assert_equal 4, feis.keys.size
     end
 
 
@@ -88,9 +88,9 @@ class FlowTest36 < Test::Unit::TestCase
 
         @engine.launch(TestIteratorSubId0)
 
-        sleep 0.250
+        sleep 0.350
 
-        assert_equal feis.keys.size, 2
+        assert_equal 2, feis.keys.size
     end
 
 end

data/test/ft_38_tag.rb

@@ -7,10 +7,11 @@
 # Mon Oct  9 22:19:44 JST 2006
 #
 
-require 'openwfe/def'
 
 require 'flowtestbase'
 
+require 'openwfe/def'
+
 
 class FlowTest38 < Test::Unit::TestCase
     include FlowTestBase
@@ -68,7 +69,7 @@ class FlowTest38 < Test::Unit::TestCase
             count += 1
         end
 
-        dotest TestTag1, "blah\nhello", 2
+        dotest TestTag1, "blah\nhello"
 
         assert_equal 1, count
     end

data/test/ft_38b_tag.rb

@@ -0,0 +1,229 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+require 'openwfe/participants'
+
+require 'flowtestbase'
+
+
+class FlowTest38b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # test 4
+    #
+
+    class TestTag4 < OpenWFE::ProcessDefinition
+        sequence do
+            sequence :tag => "seq0" do
+                peekin
+            end
+            peekout
+        end
+    end
+
+    def test_tag_4
+
+        @engine.register_participant :peekin do |fexp, wi|
+
+            fei = fexp.fei
+
+            assert_equal 0, @engine.get_variables.size
+
+            assert_equal 2, @engine.get_variables(fei.wfid).size
+            assert_equal 1, @engine.process_status(fei.wfid).tags.size
+            assert_equal "seq0", @engine.process_status(fei.wfid).tags.to_s
+            assert_not_nil @engine.get_variables(fei.wfid)["seq0"]
+
+            @tracer << "peekin\n"
+        end
+
+        @engine.register_participant :peekout do |fexp, wi|
+
+            fei = fexp.fei
+
+            assert_equal 1, @engine.get_variables(fei.wfid).size
+            assert_equal 0, @engine.process_status(fei.wfid).tags.size
+            assert_equal "", @engine.process_status(fei.wfid).tags.to_s
+
+            @tracer << "peekout\n"
+        end
+
+        fei = @engine.launch TestTag4
+
+        @engine.wait_for fei
+        dotest TestTag4, "peekin\npeekout"
+    end
+
+
+    #
+    # test 5
+    #
+
+    class TestTag5 < OpenWFE::ProcessDefinition
+
+        sequence do
+            sub0
+        end
+
+        process_definition :name => "sub0" do
+            sequence :tag => "seq0" do
+                peekin
+            end
+        end
+    end
+
+    def test_tag_5
+
+        @engine.register_participant :peekin do |fexp, wi|
+
+            wfid = fexp.fei.parent_workflow_instance_id
+
+            assert_equal 3, @engine.get_variables(wfid).size
+                # :next_sub_id and one [sub] process definition
+
+            assert_equal 0, @engine.process_status(wfid).tags.size
+            assert_equal "", @engine.process_status(wfid).tags.to_s
+
+            @tracer << "peekin\n"
+        end
+
+        dotest TestTag5, "peekin"
+    end
+
+
+    #
+    # test 5b
+    #
+
+    class TestTag5b < OpenWFE::ProcessDefinition
+
+        sequence do
+            sub0
+        end
+
+        process_definition :name => "sub0" do
+            sequence :tag => "/seq0" do
+                peekin
+            end
+        end
+    end
+
+    def test_5b
+
+        @engine.register_participant :peekin do |fexp, wi|
+
+            wfid = fexp.fei.parent_workflow_instance_id
+
+            assert_equal 4, @engine.get_variables(wfid).size
+                # :next_sub_id and one [sub] process definition (and the tag)
+
+            assert_equal 1, @engine.process_status(wfid).tags.size
+            assert_equal "seq0", @engine.process_status(wfid).tags.to_s
+
+            @tracer << "peekin\n"
+        end
+
+        dotest TestTag5b, "peekin"
+    end
+
+
+    #
+    # test 6
+    #
+
+    class TestTag6 < OpenWFE::ProcessDefinition
+
+        concurrence do
+            peek :tag => "A"
+            peek :tag => "B"
+        end
+    end
+
+    def test_6
+
+        @engine.register_participant :peek do |fexp, wi|
+
+            wfid = fexp.fei.parent_workflow_instance_id
+
+            #puts @engine.get_variables(wfid).keys.inspect
+            @tracer << @engine.process_status(wfid).tags.to_s
+        end
+
+        dotest TestTag6, [ 'AAB', 'BAB' ]
+    end
+
+    #
+    # test 7 (milestone)
+    #
+
+    class TestTag7 < OpenWFE::ProcessDefinition
+        concurrence do
+            sequence do
+                participant0
+                participant1 :tag => "milestone"
+                participant2
+            end
+            sequence do
+                #wait :until => "'${milestone}' != ''", :frequency => "300"
+                wait :until => "${milestone} is set", :frequency => "300"
+                participant3
+            end
+        end
+    end
+
+    class OpenWFE::HashParticipant
+        def proceed_first
+            proceed first_workitem
+        end
+    end
+        #
+        # just added a shortcut method for testing purpose
+
+    def test_7
+
+        #log_level_to_debug
+
+        ps = (0..3).collect do |i|
+
+            @engine.register_participant(
+                "participant#{i}", OpenWFE::HashParticipant)
+        end
+
+        fei = @engine.launch TestTag7
+
+        sleep 0.350
+
+        assert_equal 1, ps[0].size
+        assert_equal 0, ps[1].size
+        assert_equal 0, ps[2].size
+        assert_equal 0, ps[3].size
+
+        ps[0].proceed_first
+
+        sleep 0.500
+
+        assert_equal 0, ps[0].size
+        assert_equal 1, ps[1].size
+        assert_equal 0, ps[2].size
+        assert_equal 1, ps[3].size
+
+        @engine.cancel_process fei.wfid
+    end
+
+end
+