openwferu 0.9.15 → 0.9.16

data/test/ft_5_time.rb

@@ -20,7 +20,6 @@ class FlowTest5 < Test::Unit::TestCase
     #end
 
     def test_sleep_0
-    #def xxxx_sleep_0
         dotest(
 '''<process-definition name="sleep_0" revision="0">
     <sequence>
@@ -33,7 +32,6 @@ class FlowTest5 < Test::Unit::TestCase
     end
 
     def test_sleep_1
-    #def xxxx_sleep_1
         dotest(
 '''<process-definition name="sleep_1" revision="0">
     <concurrence>
@@ -50,7 +48,6 @@ alpha""",
     end
 
     def test_sleep_2
-    #def xxxx_sleep_2
         dotest(
 '''<process-definition name="sleep_2" revision="0">
     <sequence>
@@ -63,7 +60,6 @@ alpha""",
     end
 
     def test_sleep_3
-    #def xxxx_sleep_3
         dotest(
 '''<process-definition name="sleep_3" revision="0">
     <sequence>
@@ -73,5 +69,50 @@ alpha""",
 </process-definition>''', "alpha", true)
     end
 
+    #
+    # Test 4
+    #
+
+    class Test4 < OpenWFE::ProcessDefinition
+        _sleep "10s"
+    end
+
+    def test_sleep_4
+
+        fei = @engine.launch Test4
+
+        sleep 0.250
+        
+        jobs = @engine.get_scheduler.find_jobs SleepExpression.name
+
+        assert_equal 1, jobs.size
+
+        @engine.cancel_process fei
+
+        sleep 0.300
+    end
+
+    #
+    # Test 5
+    #
+
+    class Test5 < OpenWFE::ProcessDefinition
+        _sleep "10s", :scheduler_tags => "a, b"
+    end
+
+    def test_sleep_5
+
+        fei = @engine.launch Test5
+
+        sleep 0.250
+
+        assert_equal 1, @engine.get_scheduler.find_jobs("a").size
+        assert_equal 1, @engine.get_scheduler.find_jobs("b").size
+
+        @engine.cancel_process fei
+
+        sleep 0.300
+    end
+
 end
 

data/test/ft_60_ecancel.rb

@@ -41,7 +41,7 @@ class FlowTest60 < Test::Unit::TestCase
 
         fei = @engine.launch TestDefinition0
 
-        sleep 0.200
+        sleep 0.300
 
         #puts
         #puts @engine.get_process_stack fei.wfid
@@ -51,11 +51,11 @@ class FlowTest60 < Test::Unit::TestCase
         fei.expression_name = "sequence"
         @engine.cancel_expression fei
 
-        sleep 0.200
+        sleep 0.300
 
-        assert_equal @tracer.to_s, "a\nb.0\nc"
+        assert_equal "a\nb.0\nc", @tracer.to_s
 
-        assert_equal @engine.get_process_stack(fei.wfid).size, 0
+        assert_equal 0, @engine.get_process_stack(fei.wfid).size
 
         #$OWFE_LOG.level = Logger::INFO
     end
@@ -66,7 +66,7 @@ class FlowTest60 < Test::Unit::TestCase
 
         fei = @engine.launch TestDefinition0
 
-        sleep 0.200
+        sleep 0.300
 
         fei.expression_id = "0.0.1.2"
         fei.expression_name = "print"
@@ -74,9 +74,9 @@ class FlowTest60 < Test::Unit::TestCase
 
         @engine.wait_for(fei.wfid)
 
-        assert_equal @tracer.to_s, "a\nb.0\nc"
+        assert_equal "a\nb.0\nc", @tracer.to_s
 
-        assert_equal @engine.get_process_stack(fei.wfid).size, 0
+        assert_equal 0, @engine.get_process_stack(fei.wfid).size
 
         #$OWFE_LOG.level = Logger::INFO
     end

data/test/ft_61_elsub.rb

@@ -38,7 +38,7 @@ class FlowTest61 < Test::Unit::TestCase
 
     def test_0
 
-        log_level_to_debug
+        #log_level_to_debug
 
         engine.launch EngineLevelProcessDefinition
         sleep 0.700

data/test/ft_64_alias.rb

@@ -95,7 +95,7 @@ class FlowTest64a < Test::Unit::TestCase
             @tracer << "\n"
         end
 
-        dotest(Test2, "0.2.0\n0.2.1")
+        dotest Test2, "0.2.0\n0.2.1"
     end
 
 end

data/test/ft_67_schedlaunch.rb

@@ -32,70 +32,83 @@ class FlowTest67 < Test::Unit::TestCase
 
         #log_level_to_debug
 
-        @engine.launch(Test0, :in => "2s")
+        @engine.launch Test0, :in => "2s"
 
         sleep 0.200
 
-        assert_equal @tracer.to_s, ""
+        assert_equal(
+            1, 
+            @engine.get_scheduler.find_jobs("scheduled-launch").size)
+
+        assert_trace ""
 
         sleep 2.500
 
-        assert_equal @tracer.to_s, "hell0"
+        assert_trace "hell0"
     end
 
     #
     # TEST 1
 
-    #def xxxx_1
     def test_1
 
         #log_level_to_debug
 
         t = Time.now
 
-        @engine.launch(Test0, :at => (t + 2).to_s)
+        @engine.launch Test0, :at => (t + 2).to_s
 
         sleep 0.200
 
-        assert_equal @tracer.to_s, ""
+        assert_equal(
+            1, 
+            @engine.get_scheduler.find_jobs("scheduled-launch").size)
+
+        assert_trace ""
 
         sleep 2.500
 
-        assert_equal @tracer.to_s, "hell0"
+        assert_trace "hell0"
     end
 
     #
     # TEST 2
 
-    #def xxxx_2
     def test_2
 
-        log_level_to_debug
+        #log_level_to_debug
 
-        @engine.launch(Test0, :cron => "* * * * *")
+        @engine.launch Test0, :cron => "* * * * *"
 
-        assert_equal @tracer.to_s, ""
+        assert_trace ""
 
         sleep 130
 
-        assert_equal @tracer.to_s, "hell0\nhell0"
+        assert_trace "hell0\nhell0"
+
+        assert_equal(
+            1, 
+            @engine.get_scheduler.find_jobs("scheduled-launch").size)
     end
 
     #
     # TEST 3
 
-    #def xxxx_3
     def test_3
 
         log_level_to_debug
 
-        @engine.launch(Test0, :every => "2s")
+        @engine.launch Test0, :every => "2s"
 
-        assert_equal @tracer.to_s, ""
+        assert_trace ""
 
         sleep 5
 
-        assert_equal @tracer.to_s, "hell0\nhell0"
+        assert_trace "hell0\nhell0"
+
+        assert_equal(
+            1, 
+            @engine.get_scheduler.find_jobs("scheduled-launch").size)
     end
 
 end

data/test/ft_69_cancelmissing.rb

@@ -35,7 +35,7 @@ class FlowTest69 < Test::Unit::TestCase
 
         fei = @engine.launch(Test0)
 
-        sleep 0.200
+        sleep 0.300
 
         assert @engine.process_status(fei.wfid).errors.size > 0
 

data/test/ft_6_lambda.rb

@@ -25,17 +25,17 @@ class FlowTest6 < Test::Unit::TestCase
         dotest(
 '''<process-definition name="lambda_0" revision="0">
     <sequence>
-        <set variable="inside1">
+        <set variable="inside1x">
             <process-definition>
                 <print>bonjour ${name}</print>
             </process-definition>
         </set>
 
-        <inside1 name="world" />
+        <inside1x name="world" />
         <print>over</print>
     </sequence>
-</process-definition>''', """bonjour world
-over""")
+</process-definition>''', 
+            "bonjour world\nover")
     end
 
     #
@@ -43,18 +43,20 @@ over""")
 
     class Test1 < OpenWFE::ProcessDefinition
         sequence do
-            _set :v => "inside1" do
+            _set :v => "inside1r" do
                 process_definition do
                     _print "hello ${name}"
                 end
             end
-            inside1 :name => "mundo"
+            inside1r :name => "mundo"
             _print "done."
         end
     end
 
     def test_1
 
+        log_level_to_debug
+
         dotest(Test1, "hello mundo\ndone.")
     end
 

data/test/ft_70_lookupvar.rb

@@ -40,7 +40,7 @@ class FlowTest70 < Test::Unit::TestCase
 
         fei = @engine.launch(Test0)
 
-        sleep 0.100
+        sleep 0.200
 
         assert_equal @engine.lookup_variable("topvar"), "top"
         assert_equal @engine.lookup_variable("topvar", fei.wfid), "top"
@@ -48,7 +48,7 @@ class FlowTest70 < Test::Unit::TestCase
 
         @engine.cancel_process(fei.wfid)
 
-        sleep 0.100
+        sleep 0.200
     end
 
 end

data/test/ft_71_log.rb

@@ -0,0 +1,60 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Sep 13 17:46:20 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest71 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            log "log:0"
+            log do
+                "log:1"
+            end
+            log :message => "log:2"
+            log :message => "log:3", :level => "info"
+        end
+    end
+
+    def test_0
+
+        log_level_to_debug
+            # required for the test ;)
+
+        File.open "logs/openwferu.log", "w" do
+            print ""
+        end
+
+        dotest Test0, ""
+
+        #assert_equal 1, OpenWFE.grep("DEBUG .*log:0", "logs/openwferu.log").size
+        assert_equal 1, OpenWFE.grep("log:0", "logs/openwferu.log").size
+
+        assert_equal 1, OpenWFE.grep("log:1", "logs/openwferu.log").size
+        assert_equal 4, OpenWFE.grep("log:.$", "logs/openwferu.log").size
+
+        #assert_equal 1, OpenWFE.grep("INFO .*log:3", "logs/openwferu.log").size
+        assert_equal 1, OpenWFE.grep("log:3", "logs/openwferu.log").size
+    end
+
+end
+

data/test/ft_72_lookup_processes.rb

@@ -0,0 +1,79 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/worklist/storeparticipant'
+
+include OpenWFE
+
+
+class FlowTest72 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < ProcessDefinition
+        sequence do
+            _set :variable => "/toto", :value => "${f:toto}"
+            participant :alpha
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        #log_level_to_debug
+
+        sa = @engine.register_participant :alpha, OpenWFE::HashParticipant
+
+        li = LaunchItem.new Test0
+        li.toto = 'toto_zero'
+        fei0 = @engine.launch li
+
+        li = LaunchItem.new Test0
+        li.toto = 'toto_one'
+        fei1 = @engine.launch li
+
+        sleep 0.300
+
+        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.300
+    end
+
+end
+

data/test/ft_73_cancel_sub.rb

@@ -0,0 +1,144 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/worklist/storeparticipant'
+
+include OpenWFE
+
+
+class FlowTest73 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < 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 = @engine.launch Test0
+        #puts "launched : " + fei.to_s
+
+        sleep 0.300
+
+        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.300
+
+        assert_equal 0, p0.size
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class Test1 < 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 = @engine.launch Test1
+        #puts
+        #puts "launched : " + fei.to_s
+
+        sleep 0.300
+
+        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.300
+
+        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 < 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 = @engine.launch Test2
+
+        sleep 0.400
+
+        assert_equal 1, p2.size
+        assert_equal 1, p20.size
+
+        @engine.cancel_process p20.first_workitem.fei
+        sleep 0.300
+        @engine.cancel_process p2.first_workitem.fei
+        sleep 0.300
+    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
+