ruote 0.9.18

data/test/ft_59_ps.rb

@@ -0,0 +1,150 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sat Jul  7 22:44:00 JST 2007 (tanabata)
+#
+
+require 'openwfe/def'
+require 'openwfe/participants/storeparticipants'
+
+require 'flowtestbase'
+
+
+class FlowTest59 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # TEST 0
+
+    class Def59 < ProcessDefinition
+        concurrence do
+            store_a
+            store_b
+        end
+    end
+
+    def test_0
+
+        sa = @engine.register_participant("store_a", OpenWFE::HashParticipant)
+        sb = @engine.register_participant("store_b", OpenWFE::HashParticipant)
+
+        fei = launch Def59
+
+        sleep 0.350
+
+        ps = @engine.process_statuses
+        #puts ps
+
+        assert_equal 2, ps[fei.wfid].expressions.size
+        assert_equal 0, ps[fei.wfid].errors.size
+
+        @engine.cancel_process fei
+    end
+
+    #
+    # TEST 0b
+
+    class Def59b < ProcessDefinition
+        sequence do
+            alpha
+            bravo
+        end
+    end
+
+    def test_0b
+
+        a = @engine.register_participant :alpha, OpenWFE::HashParticipant
+        b = @engine.register_participant :bravo, OpenWFE::HashParticipant
+
+        fei = launch Def59b
+
+        sleep 0.350
+
+        ps = @engine.process_statuses
+        #puts ps
+
+        assert_equal 1, ps[fei.wfid].expressions.size
+        assert_equal 0, ps[fei.wfid].errors.size
+
+        @engine.cancel_process fei
+    end
+
+    #
+    # TEST 1
+
+    class Def59_1 < ProcessDefinition
+        sequence do
+            nada59_1
+            alpha
+        end
+    end
+
+    def test_1
+
+        alpha = @engine.register_participant :alpha do
+            # nothing
+        end
+
+        fei = launch Def59_1
+
+        sleep 0.350
+
+        ps = @engine.process_statuses
+        #puts ps
+        #puts ps[fei.wfid].errors
+
+        assert_equal 1, ps[fei.wfid].expressions.size
+        assert_equal 1, ps[fei.wfid].branches
+        assert_equal 1, ps[fei.wfid].errors.size
+
+        #puts
+        #puts ps.to_s
+
+        @engine.cancel_process fei.wfid
+    end
+
+    #
+    # TEST 2
+
+    class Def59c < ProcessDefinition
+        sequence do
+            bravo
+            alpha
+        end
+    end
+
+    def test_2
+
+        a = @engine.register_participant :alpha, OpenWFE::HashParticipant
+        b = @engine.register_participant :bravo, OpenWFE::HashParticipant
+
+        feis = []
+        feis << launch(Def59b)
+        feis << launch(Def59b)
+        feis << launch(Def59c)
+
+        sleep 0.350
+
+        assert_equal 3, @engine.list_processes(:wfname => "Def").size
+        assert_equal 2, @engine.list_processes(:wfrevision => "59b").size
+        assert_equal 1, @engine.list_processes(:wfrevision => "59c").size
+        assert_equal 2, @engine.list_processes(:wfname => "Def", :wfrevision => "59b").size
+
+        feis.each do |fei|
+            @engine.cancel_process fei
+        end
+
+        sleep 0.350
+    end
+
+end
+

data/test/ft_59b_ps_for_pat.rb

@@ -0,0 +1,58 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct 29 12:46:32 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest59b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        #_sleep :for => "10s"
+        cron :tab => "* * * * *", :name => "//mario" do
+            _print "nada"
+        end
+    end
+
+    def test_0
+
+        fei = launch Test0
+
+        sleep 0.250
+
+        #puts @engine.list_process_status fei
+        #puts
+        #puts @engine.get_process_stack fei
+        #puts @engine.get_process_stack(fei)[0].class.name
+
+        #puts
+        #puts @engine.process_status(fei).expressions[0].instance_variables
+        #puts
+        #puts @engine.process_status(fei).expressions[0].awakening_time
+        #puts
+        #puts @engine.process_status(fei).expressions[0].scheduler_job_id
+
+        puts @engine.get_scheduler.inspect
+
+        @engine.cancel_process fei
+    end
+
+end
+

data/test/ft_5_time.rb

@@ -0,0 +1,118 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest5 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_sleep_0
+        dotest(
+'''<process-definition name="sleep_0" revision="0">
+    <sequence>
+        <sleep for="2s" />
+        <print>alpha</print>
+    </sequence>
+</process-definition>''', 
+            "alpha", 
+            true)
+    end
+
+    def test_sleep_1
+        dotest(
+'''<process-definition name="sleep_1" revision="0">
+    <concurrence>
+        <sequence>
+            <sleep for="2s" />
+            <print>alpha</print>
+        </sequence>
+        <print>bravo</print>
+    </concurrence>
+</process-definition>''', 
+            """bravo
+alpha""", 
+            true)
+    end
+
+    def test_sleep_2
+        dotest(
+'''<process-definition name="sleep_2" revision="0">
+    <sequence>
+        <sleep until="${ruby:Time.new() + 4}" />
+        <print>alpha</print>
+    </sequence>
+</process-definition>''', 
+            "alpha", 
+            true)
+    end
+
+    def test_sleep_3
+        dotest(
+'''<process-definition name="sleep_3" revision="0">
+    <sequence>
+        <sleep for="900" />
+        <print>alpha</print>
+    </sequence>
+</process-definition>''', "alpha", true)
+    end
+
+    #
+    # Test 4
+    #
+
+    class Test4 < OpenWFE::ProcessDefinition
+        _sleep "10s"
+    end
+
+    def test_sleep_4
+
+        fei = launch Test4
+
+        sleep 0.250
+        
+        jobs = @engine.get_scheduler.find_jobs OpenWFE::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 = 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

@@ -0,0 +1,161 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Jul  9 10:25:18 JST 2007
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest60 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #    $OWFE_LOG.level = Logger::INFO # done in FlowTestBase !
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        sequence do
+            _print "a"
+            sequence do
+                _print "b.0"
+                _sleep "1s"
+                _print "b.1"
+            end
+            _print "c"
+        end
+    end
+
+    def test_0
+
+        #$OWFE_LOG.level = Logger::DEBUG
+
+        fei = launch TestDefinition0
+
+        sleep 0.350
+
+        #puts
+        #puts @engine.get_process_stack fei.wfid
+        #puts
+
+        fei.expression_id = "0.0.1"
+        fei.expression_name = "sequence"
+        @engine.cancel_expression fei
+
+        sleep 0.350
+
+        assert_equal "a\nb.0\nc", @tracer.to_s
+
+        assert_equal 0, @engine.process_stack(fei.wfid).size
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+    def test_1
+
+        #$OWFE_LOG.level = Logger::DEBUG
+
+        fei = launch TestDefinition0
+
+        sleep 0.350
+
+        fei.expression_id = "0.0.1.2"
+        fei.expression_name = "print"
+        @engine.cancel_expression fei
+
+        #@engine.wait_for(fei.wfid)
+        wait_for fei
+
+        assert_equal "a\nb.0\nc", @tracer.to_s
+
+        assert_equal 0, @engine.process_stack(fei.wfid).size
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+    def test_2
+
+        #$OWFE_LOG.level = Logger::DEBUG
+
+        fei = launch TestDefinition0
+
+        sleep 0.350
+
+        fei.expression_id = "0"
+        fei.expression_name = "process-definition"
+        @engine.cancel_expression fei
+
+        sleep 0.350
+        #puts @engine.get_error_journal.get_error_log(fei.wfid).to_s
+
+        assert_equal "a\nb.0", @tracer.to_s
+
+        assert_equal 0, @engine.process_stack(fei.wfid).size
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+    def test_2b
+
+        #$OWFE_LOG.level = Logger::DEBUG
+
+        fei = launch <<-EOS
+            class Test2b < OpenWFE::ProcessDefinition
+                nada
+            end
+        EOS
+
+        # will result in an error
+        # testing against bug 
+        # http://rubyforge.org/tracker/index.php?func=detail&aid=19607&group_id=2609&atid=10023
+
+        sleep 0.350
+
+        fei.expression_id = "0"
+        fei.expression_name = "process-definition"
+        @engine.cancel_expression fei
+
+        sleep 0.350
+        #puts @engine.get_error_journal.get_error_log(fei.wfid).to_s
+
+        assert_equal "", @tracer.to_s
+
+        assert_equal 0, @engine.process_stack(fei.wfid).size
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+    def test_3
+
+        #$OWFE_LOG.level = Logger::DEBUG
+
+        fei = launch TestDefinition0
+
+        sleep 0.350
+
+        fei.expression_id = "0.0"
+        fei.expression_name = "sequence"
+        @engine.cancel_expression fei
+
+        #@engine.wait_for(fei.wfid)
+        wait_for fei
+
+        #sleep 0.350
+        #puts @engine.get_error_journal.get_error_log(fei.wfid).to_s
+
+        assert_equal "a\nb.0", @tracer.to_s
+
+        assert_equal 0, @engine.process_stack(fei.wfid).size
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+end
+