openwferu 0.9.9 → 0.9.10

data/test/ft_39b_reserve.rb

@@ -0,0 +1,70 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+
+class FlowTest39b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestReserve39b0 < ProcessDefinition
+        #
+        # doesn't prove it enough though...
+        #
+        concurrence do
+            reserve :mutex => :toto, :frequency => "500" do
+                sequence do
+                    test_alpha
+                    test_bravo
+                end
+            end
+            reserve :mutex => :toto, :frequency => "500" do
+                sequence do
+                    test_charly
+                    test_delta
+                end
+            end
+        end
+    end
+
+    def test_2
+
+        dotest(
+            TestReserve39b0, 
+            [
+"""
+test-charly
+test-delta
+test-alpha
+test-bravo
+""".strip, 
+"""
+test-alpha
+test-bravo
+test-charly
+test-delta
+""".strip 
+            ],
+            3)
+    end
+
+end
+

data/test/ft_40_defined.rb

@@ -65,7 +65,8 @@ false
 true
 false
 true
-            """.strip)
+            """.strip,
+            true)
     end
 
 end

data/test/ft_42_environments.rb

@@ -43,8 +43,7 @@ class FlowTest42 < Test::Unit::TestCase
     def test_0
         dotest(
             TestCase42a0, 
-            "v:c",
-            true)
+            "v:c")
     end
 
 

data/test/ft_45_citerator.rb

@@ -38,11 +38,17 @@ class FlowTest45 < Test::Unit::TestCase
     def test_0
         dotest(
             TestCase45a0,
-            """
+            [ """
 .0 - 1
 .1 - 2
 done.
-            """.strip)
+              """.strip,
+              """
+.1 - 2
+.0 - 1
+done.
+              """.strip
+            ])
     end
 
 
@@ -63,11 +69,17 @@ done.
     def test_1
         dotest(
             TestCase45a1,
-            """
+            [ """
 .0 - 1
 .1 - 2
 done.
-            """.strip)
+              """.strip,
+              """
+.1 - 2
+.0 - 1
+done.
+              """.strip
+            ])
     end
 
     #

data/test/ft_46_pparams.rb

@@ -43,6 +43,7 @@ class FlowTest46 < Test::Unit::TestCase
     def test_0
 
         @engine.register_participant :nemo do |workitem|
+            @tracer.puts workitem.params['ref']
             @tracer.puts workitem.params['description']
             @tracer.puts workitem.params['task']
         end
@@ -50,9 +51,11 @@ class FlowTest46 < Test::Unit::TestCase
         dotest(
             TestPTask46a0,
             """
+nemo
 clean the desk
 
 
+nemo
 
 force
             """.strip)

data/test/ft_49_condition.rb

@@ -58,7 +58,8 @@ class FlowTest49 < Test::Unit::TestCase
 4 true
 5 
 6 
-            """.strip)
+            """.strip,
+            true)
     end
 
 end

data/test/ft_50_xml_attribute.rb

@@ -8,8 +8,8 @@
 
 require 'flowtestbase'
 require 'openwfe/def'
-
-include OpenWFE
+require 'openwfe/rest/xmlcodec'
+require 'rutest_utils'
 
 
 class FlowTest50 < Test::Unit::TestCase
@@ -37,6 +37,9 @@ xmlns:sps="http://www.opengis.net/sps" xmlns="">
     <PATH>52</PATH>
     <ROW>186</ROW>
     <COST>2600.85</COST>
+    <![CDATA[
+        <blah/>boum
+    ]]>
     <sps:LatestResponseTime>
       <gml:TimeInstant>
         <gml:timePosition>2007-04-16T09:20:00Z</gml:timePosition>
@@ -46,7 +49,7 @@ xmlns:sps="http://www.opengis.net/sps" xmlns="">
 </sps:GetFeasibilityRequestResponse>
 END
 
-    class TestXmlAttribute50a0 < ProcessDefinition
+    class TestXmlAttribute50a0 < OpenWFE::ProcessDefinition
         sequence do
             geo_0
             geo_1
@@ -85,5 +88,71 @@ END
         assert_equal doc0.to_s, doc1.to_s
     end
 
+    #
+    # Against bug #10150
+    #
+    def test_2
+
+        workitem = OpenWFE::InFlowWorkItem.new
+        workitem.fei = new_fei
+
+        workitem.result = REXML::Document.new PAT_XML
+
+        s = OpenWFE::xml_encode workitem
+
+        #puts s
+
+        w = OpenWFE::xml_decode s
+
+        #puts workitem.to_s
+        #puts w.to_s
+
+        assert_equal workitem.to_s, w.to_s
+    end
+
+    def test_3
+
+        workitem = OpenWFE::InFlowWorkItem.new
+        workitem.fei = new_fei
+
+        workitem.result = REXML::Document.new(
+            PAT_XML, :compress_whitespace=>:all, :ignore_whitespace_nodes=>:all)
+
+        workitem.result = workitem.result.root
+
+        s = OpenWFE::xml_encode workitem
+
+        #puts s
+
+        w = OpenWFE::xml_decode s
+
+        #puts workitem.to_s
+        #puts w.to_s
+
+        assert_equal workitem.to_s, w.to_s
+    end
+
+   #def xxxx_4
+   def test_4
+
+        doc0 = nil
+        doc1 = nil
+    
+        @engine.register_participant :geo_0 do |fei, workitem|
+            doc0 = REXML::Document.new(PAT_XML).root
+            workitem.attributes['xml'] = doc0
+            @tracer << "0\n"
+        end
+    
+        @engine.register_participant :geo_1 do |fei, workitem|
+            doc1 = workitem.attributes['xml']
+            @tracer << "1\n"
+        end
+
+        dotest(TestXmlAttribute50a0, "0\n1")
+
+        assert_equal doc0.to_s, doc1.to_s
+   end
+   
 end
 

data/test/ft_51_stack.rb

@@ -0,0 +1,58 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+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 < ProcessDefinition
+        sequence do
+            COUNT.times do
+                toto
+            end
+            _print "${f:__result__}"
+        end
+    end
+
+    #def xxxx_0
+    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,127 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest52 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestObsParticipant52a0 < ProcessDefinition
+        participant :ref => :toto
+    end
+
+    #def xxxx_0
+    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 < 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 < ProcessDefinition
+        sequence do
+            alpha
+            bravo
+        end
+    end
+
+    #def xxxx_2
+    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_7b_lose.rb

@@ -41,7 +41,7 @@ class FlowTest7b < Test::Unit::TestCase
 </process-definition>''', 
             """b
 c""", 
-            0.1,
+            true,
             true)
     end
 
@@ -75,10 +75,11 @@ c""",
     def test_lose_2
         dotest(
             TestDefinition2, 
-            """before
+            """
+before
 ok 5
-after""",
-            0.1)
+after
+            """.strip)
     end
 
 end

data/test/ft_tests.rb

@@ -51,6 +51,7 @@ require 'ft_36_subprocids'
 require 'ft_37_pnames'
 require 'ft_38_tag'
 require 'ft_39_reserve'
+require 'ft_39b_reserve'
 require 'ft_40_defined'
 require 'ft_41_case'
 require 'ft_42_environments'
@@ -63,6 +64,8 @@ require 'ft_47_filter'
 require 'ft_48_fe_filter'
 require 'ft_49_condition'
 require 'ft_50_xml_attribute'
+#require 'ft_51_stack'
+require 'ft_52_obs_participant'
 
 require 'ft_32_journal'
 

data/test/hparticipant_test.rb

@@ -80,10 +80,10 @@ class HParticipantTest < Test::Unit::TestCase
         #puts "alice count : #{@hpAlice.size}"
         #puts "bob count :   #{@hpBob.size}"
 
-        assert \
-            @hpBob.size == 0
-        assert \
-            @hpAlice.size == 1
+        sleep 0.200
+
+        assert_equal @hpBob.size, 0
+        assert_equal @hpAlice.size, 1
 
         wi = @hpAlice.list_workitems(id.workflow_instance_id)[0]
 
@@ -95,25 +95,23 @@ class HParticipantTest < Test::Unit::TestCase
 
         @hpAlice.forward(wi)
 
-        assert \
-            @hpAlice.size == 0
-        assert \
-            @hpBob.size == 1
+        sleep 0.400
+
+        assert_equal @hpAlice.size, 0
+        assert_equal @hpBob.size, 1
 
         wi = @hpBob.list_workitems(id.workflow_instance_id)[0]
 
-        assert \
-            wi.message == "Hello bob !"
+        assert_equal wi.message, "Hello bob !"
 
         @hpBob.proceed(wi)
 
-        assert \
-            @hpAlice.size == 0
-        assert \
-            @hpBob.size == 0
+        sleep 0.300
 
-        assert \
-            @engine.get_expression_storage.size == 1
+        assert_equal @hpAlice.size, 0
+        assert_equal @hpBob.size, 0
+
+        assert_equal @engine.get_expression_storage.size, 1
     end
 
     def test_d_0
@@ -126,6 +124,8 @@ class HParticipantTest < Test::Unit::TestCase
 
         id = @engine.launch(HpDefinition0)
 
+        sleep 0.100
+
         assert_equal @hpAlice.size, 1
         assert_equal @hpBob.size, 0
 
@@ -140,6 +140,8 @@ class HParticipantTest < Test::Unit::TestCase
 
         @hpBob.proceed wi
 
+        sleep 0.100
+
         assert_equal @hpAlice.size, 0
         assert_equal @hpBob.size, 1
 
@@ -154,11 +156,12 @@ class HParticipantTest < Test::Unit::TestCase
 
         @hpAlice.forward wi
 
+        sleep 0.100
+
         assert_equal @hpAlice.size, 0
         assert_equal @hpBob.size, 0
 
-        assert \
-            @engine.get_expression_storage.size == 1
+        assert_equal @engine.get_expression_storage.size, 1
     end
 
 end

data/test/misc_test.rb

@@ -78,6 +78,15 @@ class MiscTest < Test::Unit::TestCase
         assert d.object_id != d1.object_id
     end
 
+    def test_grep_0
+        assert OpenWFE::grep("sputnik", "Rakefile").empty?
+        assert_equal OpenWFE::grep("Mettraux", "Rakefile").size, 4
+
+        OpenWFE::grep "Mettraux", "Rakefile" do |line|
+            assert_match "Mettraux", line
+        end
+    end
+
     private
     
         class A

data/test/param_test.rb

@@ -139,6 +139,8 @@ class ParameterTest < Test::Unit::TestCase
             #puts OpenWFE::exception_to_s(e)
         end
 
+        sleep 0.200
+
         assert_nil e
         assert_equal @tracer.to_s, "(unknown address)"
     end
@@ -171,6 +173,10 @@ class ParameterTest < Test::Unit::TestCase
             #puts OpenWFE::exception_to_s(e)
         end
 
+        sleep 0.200
+
+        # well, I should maybe refactor the test into a method
+
         assert_nil e
         assert_equal @tracer.to_s, "3"
     end

data/test/rake_test.rb

@@ -19,6 +19,7 @@ require 'restart_tests'
 
 require 'ft_20_cron'
 require 'ft_21_cron'
+require 'ft_51_stack'
 
 #
 # the quick tests

data/test/scheduler_test.rb

@@ -161,6 +161,27 @@ class SchedulerTest < Test::Unit::TestCase
         scheduler.sstop
     end
 
+    #
+    # testing to see if the scheduler immediately executes schedule_in(t)
+    # requests where t < scheduler.frequency.
+    # (100ms < 250ms)
+    #
+    def test_scheduler_5
+
+        scheduler = OpenWFE::Scheduler.new()
+        scheduler.sstart
+
+        touched = false
+
+        scheduler.schedule_in "100" do
+            touched = true
+        end
+
+        assert touched
+
+        scheduler.sstop
+    end
+
     protected
 
         class TestSchedulable