ruote 0.9.18

data/test/ft_61_elsub.rb

@@ -0,0 +1,51 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Jul  9 10:25:18 JST 2007
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest61 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class EngineLevelProcessDefinition < OpenWFE::ProcessDefinition
+        sequence do
+        end
+        process_definition :name => "//elsub" do
+            _print "nada"
+        end
+    end
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        elsub
+        #subprocess :ref => "//elsub"
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        launch EngineLevelProcessDefinition
+        sleep 0.700
+        dotest TestDefinition0, "nada", false, true
+    end
+
+end
+

data/test/ft_62_procparticipant.rb

@@ -0,0 +1,71 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Jul  9 10:25:18 JST 2007
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest62 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class SubDef < OpenWFE::ProcessDefinition
+        _print "subruby"
+    end
+
+    SUBDEF = '''
+        <process-definition name="sub" revision="0">
+            <print>subxml</print>
+        </process-definition>
+    '''.strip
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        sequence do
+            _print "main0"
+            subruby
+            subxml
+            subfile
+            _print "main1"
+        end
+    end
+
+    def test_0
+
+        #$OWFE_LOG.level = Logger::DEBUG
+
+        engine.register_participant(
+            "subruby", 
+            OpenWFE::ProcessParticipant.new(SubDef))
+        engine.register_participant(
+            "subxml", 
+            OpenWFE::ProcessParticipant.new(SUBDEF))
+
+        File.open "work/procdef62.xml", "w+" do |f|
+            f.write SUBDEF
+            f.write "\n"
+        end
+        engine.register_participant(
+            "subfile", 
+            OpenWFE::ProcessParticipant.new('file:work/procdef62.xml'))
+
+        dotest TestDefinition0, "main0\nsubruby\nsubxml\nsubxml\nmain1"
+    end
+
+end
+

data/test/ft_63_pause.rb

@@ -0,0 +1,124 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/participants/storeparticipants'
+
+
+class FlowTest63 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            participant :alpha
+            _print "done."
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        sa = @engine.register_participant :alpha, OpenWFE::HashParticipant
+
+        fei = @engine.launch Test0
+
+        sleep 0.350
+
+        assert_equal(
+            @engine.process_status(fei.wfid).expressions[0].fei.wfid, 
+            fei.wfid)
+        #puts @engine.process_status(fei.wfid)
+        #puts @engine.list_process_status
+
+        assert ! @engine.process_status(fei.wfid).paused?
+        assert ! @engine.is_paused?(fei.wfid)
+
+        @engine.pause_process fei.workflow_instance_id
+
+        assert @engine.process_status(fei.wfid).paused?
+        assert @engine.is_paused?(fei.wfid)
+
+        hp = @engine.get_participant :alpha
+        wi = hp.first_workitem
+        hp.forward wi
+
+        sleep 0.350
+
+        assert_equal @engine.process_status(fei.wfid).errors.size, 1
+        assert_equal @tracer.to_s, ""
+
+        @engine.resume_process fei.workflow_instance_id
+
+        #unless @engine.get_expression_storage.is_a?(
+        #    OpenWFE::InMemoryExpressionStorage)
+        #
+        #    ps = @engine.process_status fei.wfid
+        #    #puts ps
+        #    assert_equal ps.errors.size, 0
+        #    assert ! ps.paused?
+        #end
+
+        sleep 0.350
+
+        assert_nil @engine.process_status(fei.wfid)
+        assert_equal @tracer.to_s, "done."
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            participant :alpha
+            _print "done."
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        sa = @engine.register_participant :alpha, OpenWFE::NullParticipant
+
+        fei = @engine.launch Test1
+
+        sleep 0.350
+
+        assert ! @engine.process_status(fei.wfid).paused?
+
+        @engine.pause_process fei.wfid
+
+        sleep 0.350
+
+        assert @engine.process_status(fei.wfid).paused?
+
+        @engine.resume_process fei.wfid
+
+        assert ! @engine.process_status(fei.wfid).paused?
+
+        @engine.cancel_process fei.wfid
+
+        sleep 0.350
+    end
+
+end
+

data/test/ft_64_alias.rb

@@ -0,0 +1,102 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest64a < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            participant :bravo
+            participant :abracadabra
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        @engine.register_participant "a.*" do |workitem|
+            @tracer << workitem.participant_name
+            @tracer << "\n"
+        end
+
+        @engine.register_participant :bravo, AliasParticipant.new("alpha")
+
+        dotest(Test0, "alpha\nabracadabra")
+    end
+
+
+    #
+    # TEST 1
+
+    class Test1 < ProcessDefinition
+        sequence do
+            set :v => "toto", :val => "elvis"
+            toto
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        @engine.register_participant "elvis" do
+            @tracer << "sivle"
+        end
+
+        dotest(Test1, "sivle")
+    end
+
+
+    #
+    # TEST 2
+
+    class Test2 < ProcessDefinition
+
+        #
+        # some aliases
+
+        set :v => "alice", :val => "elvis"
+        set :v => "bob", :val => "elvis"
+
+        #
+        # the body of the process
+
+        sequence do
+            alice
+            bob
+        end
+    end
+
+    def test_2
+
+        #log_level_to_debug
+
+        @engine.register_participant "elvis" do |workitem|
+            @tracer << workitem.fei.expression_id
+            @tracer << "\n"
+        end
+
+        dotest Test2, "0.2.0\n0.2.1"
+    end
+
+end
+

data/test/ft_64_clone.rb

@@ -0,0 +1,69 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest64 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Box
+
+        attr_reader :content
+
+        def initialize (content)
+            @content = content
+        end
+    end
+
+    class Test0 < ProcessDefinition
+        sequence do
+            participant :alpha
+            participant :bravo
+            _print "ok"
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        box1 = nil
+
+        @engine.register_participant :alpha do |workitem|
+            # nothing
+        end
+
+        @engine.register_participant :bravo do |workitem|
+
+            box1 = OpenWFE::fulldup(workitem.box)
+        end
+
+        box0 = Box.new("books")
+
+        li = LaunchItem.new(Test0)
+        li.box = box0
+
+        dotest(li, "ok")
+
+        assert_equal box1.content, "books"
+        assert_not_equal box1.object_id, box0.object_id
+    end
+
+end
+

data/test/ft_65_stringlaunch.rb

@@ -0,0 +1,59 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest65 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    TEST0 = """
+    class Test0 < OpenWFE::ProcessDefinition
+        _print 'ok.'
+    end
+    """.strip
+
+    def test_0
+
+        launch TEST0
+        sleep 0.350
+        assert_equal "ok.", @tracer.to_s
+    end
+
+
+    #
+    # Test 1
+    #
+
+    TEST1 = """
+<process-definition name='65_1' revision='0.1'>
+    <print>ok.</print>
+</process-definition>
+    """.strip
+
+    def test_1
+
+        launch TEST1
+
+        sleep 0.350
+        assert_equal "ok.", @tracer.to_s
+    end
+
+end
+