ruote 0.9.18

data/test/ft_31_flowname.rb

@@ -0,0 +1,40 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest31 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < ProcessDefinition
+        _process_definition :name => "31 thirty one", :revision => "0 0" do
+            _print "ok"
+        end
+    end
+
+    #def xxxx_flowname_0
+    def test_flowname_0
+
+        dotest(TestDefinition0, "ok")
+    end
+
+end
+

data/test/ft_32_journal.rb

@@ -0,0 +1,91 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+
+require 'flowtestbase'
+
+require 'openwfe/def'
+require 'openwfe/expool/journal'
+
+
+
+class FlowTest32 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        #concurrence do
+        sequence do
+            #set :variable => "//toto", :value => "nada"
+            participant :alpha
+            bravo
+        end
+    end
+
+    def test_journal_0
+
+        @engine.application_context[:keep_journals] = true
+
+        @engine.init_service "journal", OpenWFE::Journal
+
+        @engine.register_participant(:alpha) do |wi|
+            @tracer << "alpha\n"
+        end
+        @engine.register_participant(:bravo) do |wi|
+            @tracer << "bravo\n"
+        end
+
+        #fei = dotest(TestDefinition0, "alpha\nbravo", 0.250)
+        fei = dotest(TestDefinition0, "alpha\nbravo")
+
+        journal_service = @engine.application_context["journal"]
+
+        fn = journal_service.donedir + "/" + fei.wfid + ".journal"
+
+        #puts journal_service.analyze fn
+
+        #sleep(10)
+
+        assert_equal @engine.get_expression_storage.size, 1
+
+        journal_service.replay fn, 18
+            #
+            # replay at offset 18 without "refiring"
+            #
+            # flow waits
+
+        sleep 0.350
+
+        #puts
+        #puts @engine.get_expression_storage.to_s
+        #puts
+
+        assert_equal @engine.get_expression_storage.size, 6
+
+        journal_service.replay fn, 18, true
+            #
+            # replay at offset 18 with "refiring"
+            #
+            # flow resumes
+
+        sleep 0.350
+
+        assert_equal @engine.get_expression_storage.size, 1
+    end
+
+end
+

data/test/ft_32c_journal.rb

@@ -0,0 +1,102 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'openwfe/expool/journal'
+
+require 'flowtestbase'
+
+
+class FlowTest32c < Test::Unit::TestCase
+    include FlowTestBase
+    include JournalTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            participant :alpha
+            participant :nada
+            participant :bravo
+        end
+    end
+
+    def test_0
+
+        @engine.application_context[:keep_journals] = true
+
+        @engine.init_service "journal", OpenWFE::Journal
+
+        @engine.register_participant(:alpha) do |wi|
+            @tracer << "alpha\n"
+        end
+
+        class << get_journal
+            public :flush_buckets
+        end
+
+        #fei = dotest(Test0, "alpha", 0.500, true)
+        li = OpenWFE::LaunchItem.new Test0
+        fei = launch li
+
+        sleep 0.500
+
+        get_journal.flush_buckets
+
+        fn = get_journal.workdir + "/" + fei.wfid + ".journal"
+
+        #require 'pp'; pp get_journal.load_events(fn)[-1]
+
+        error_event = get_journal.load_events(fn)[-1]
+
+        assert_equal error_event[0], :error
+        assert_equal error_event[2].wfid, fei.wfid
+        assert_equal error_event[3], :apply
+
+        #
+        # replaying the error (should occur a second time)
+
+        get_journal.replay_at_error error_event
+
+        sleep 0.500
+
+        assert_equal 2, get_error_count(fei.wfid)
+
+        #
+        # fixing the cause of the error and then replaying the error
+        # (should not occur)
+
+        @engine.register_participant(:nada) do |wi|
+            @tracer << "nada\n"
+        end
+        @engine.register_participant(:bravo) do |wi|
+            @tracer << "bravo\n"
+        end
+
+        assert_equal @tracer.to_s, "alpha"
+
+        get_journal.replay_at_error error_event
+
+        sleep 1.0
+
+        assert_equal @tracer.to_s, "alpha\nnada\nbravo"
+    end
+
+end
+

data/test/ft_32d_journal.rb

@@ -0,0 +1,84 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+require 'openwfe/expool/journal'
+
+
+
+class FlowTest32d < Test::Unit::TestCase
+    include FlowTestBase
+    include JournalTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            participant :alpha
+            participant :nada
+            participant :bravo
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        @engine.application_context[:keep_journals] = true
+
+        @engine.init_service "journal", Journal
+
+        @engine.register_participant(:alpha) do |wi|
+            @tracer << "alpha\n"
+        end
+
+        class << get_journal
+            public :flush_buckets
+        end
+
+        li = LaunchItem.new Test0
+        fei = launch li
+
+        sleep 0.500
+
+        get_journal.flush_buckets
+
+        assert_equal 1, get_error_count(fei.wfid)
+
+        @engine.register_participant(:nada) do |wi|
+            @tracer << "nada\n"
+        end
+        @engine.register_participant(:bravo) do |wi|
+            @tracer << "bravo\n"
+        end
+
+        assert_equal @tracer.to_s, "alpha"
+
+        get_journal.replay_at_last_error fei.wfid
+
+        sleep 1.0
+
+        assert_equal "alpha\nnada\nbravo", @tracer.to_s 
+
+        fn = get_journal.workdir + "/" + fei.wfid + ".journal"
+        assert (not File.exist?(fn))
+    end
+
+end
+

data/test/ft_33_description.rb

@@ -0,0 +1,107 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest33 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        description "nada"
+        _print "${description}"
+    end
+
+    def test_0
+
+        dotest TestDefinition0, "nada"
+    end
+
+    #
+    # TEST 1
+
+    def test_1
+        dotest("""<process-definition name='test_1' revision='x'>
+    <description>nada</description>
+    <print>${description}</print>
+</process-definition>
+""", "nada")
+    end
+
+    #
+    # TEST 2
+
+    class TestDefinition2 < OpenWFE::ProcessDefinition
+        description :lang => "fr" do "nada" end
+        sequence do
+            _print "${description}"
+            _print "${description__fr}"
+        end
+    end
+
+    def test_2
+
+        dotest TestDefinition2, "nada\nnada"
+    end
+
+    #
+    # TEST 3
+
+    class TestDefinition3 < OpenWFE::ProcessDefinition
+        description "nothing"
+        description :lang => "es" do "nada" end
+        sequence do
+            _print "${description}"
+            _print "${description__es}"
+        end
+    end
+
+    def test_3
+
+        dotest TestDefinition3, "nothing\nnada"
+    end
+
+    #
+    # TEST 4
+
+    def test_4
+
+        @engine.register_participant :check do |fexp, wi|
+            @tracer << fexp.lookup_variable('description').class.name
+            @tracer << "\n"
+        end
+
+        dotest(
+"""<process-definition name='test_1' revision='x'>
+    <description language='en'>nothing</description>
+    <description language='es'>nada</description>
+    <sequence>
+        <participant ref='check' />
+        <print>${description}</print>
+        <print>${description__en}</print>
+        <print>${description__es}</print>
+    </sequence>
+</process-definition>""",
+            "String\nnothing\nnothing\nnada")
+    end
+
+end
+

data/test/ft_34_cancelwfid.rb

@@ -0,0 +1,80 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'openwfe/participants/storeparticipants'
+
+require 'flowtestbase'
+
+
+class FlowTest34 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestCancelWfid0 < OpenWFE::ProcessDefinition
+        #
+        # so tiny a definition...
+        #
+        store_participant
+    end
+
+    def test_cancelwfid_0
+
+        sp = @engine.register_participant(
+            "store_participant", OpenWFE::HashParticipant)
+
+        fei = launch TestCancelWfid0
+
+        sleep 0.300
+
+        @engine.cancel_process(fei.wfid)
+
+        sleep 0.350
+
+        l = @engine.list_processes
+
+        assert_equal 0, l.size
+
+        assert_equal 0, sp.size
+            # check that participant got cancelled as well
+    end
+
+    def test_cancelwfid_1
+
+        #log_level_to_debug
+
+        sp = @engine.register_participant(
+            "store_participant", OpenWFE::YamlParticipant)
+
+        fei = launch TestCancelWfid0
+
+        sleep 0.350
+
+        @engine.cancel_process(fei.wfid)
+
+        sleep 0.350
+
+        assert_equal 0, @engine.get_process_stack(fei.wfid).size
+
+        assert_equal 0, sp.size
+            # check that participant got cancelled as well
+    end
+
+end
+