ruote 0.9.18

data/test/ft_35_localdefs.rb

@@ -0,0 +1,75 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+require 'openwfe/workitem'
+require 'openwfe/participants/storeparticipants'
+
+require 'flowtestbase'
+
+
+class FlowTest35 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #    super
+    #    @engine.ac[:remote_definitions_allowed] = true
+    #end
+
+
+    #
+    # TEST 0
+
+    def test_local_0
+
+        #log_level_to_debug
+
+        li = OpenWFE::LaunchItem.new
+        li.wfdurl = "file:doc/res/defs/testdef.rb"
+
+        dotest(
+            li, 
+            """a
+b
+c""")
+    end
+
+
+    #
+    # TEST 1
+
+    #def xxxx_local_1
+    def test_local_1
+
+        li = OpenWFE::LaunchItem.new
+        li.wfdurl = "doc/res/defs/testdef.rb"
+
+        dotest(
+            li, 
+            """a
+b
+c""")
+    end
+
+
+    #
+    # TEST 2
+
+    def test_local_2
+
+        launch "file:doc/res/defs/testdef.rb"
+        sleep 0.300
+        assert_equal @tracer.to_s, "a\nb\nc"
+    end
+
+end
+

data/test/ft_36_subprocids.rb

@@ -0,0 +1,97 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest36 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestSubProcId0 < ProcessDefinition
+        concurrence do
+            subproc
+            subproc
+        end
+        process_definition :name => :subproc do
+            sequence do
+                #reval "puts fei"
+                check
+            end
+        end
+    end
+
+    class TestSubProcId1 < ProcessDefinition
+        concurrence do
+            subprocess :ref => "subproc"
+            subprocess :ref => :subproc
+        end
+        process_definition :name => :subproc do
+            sequence do
+                #reval "puts fei"
+                check
+            end
+        end
+    end
+
+    def test_subprocid_0
+
+        feis = {}
+
+        @engine.register_participant(:check) do |fexp, wi|
+            #puts fexp.fei.to_debug_s
+            feis[fexp.fei] = true
+        end
+
+        launch TestSubProcId0
+        launch TestSubProcId1
+
+        sleep 2
+
+        assert_equal 4, feis.keys.size
+    end
+
+
+    #
+    # TEST about Iterator
+
+    class TestIteratorSubId0 < ProcessDefinition
+        iterator :on_value => "a, b", :to_variable => "v" do
+            check
+        end
+    end
+
+    def test_iterator_subid_0
+
+        feis = {}
+
+        @engine.register_participant(:check) do |fexp, wi|
+            #puts fexp.fei.to_debug_s
+            feis[fexp.fei] = true
+        end
+
+        launch TestIteratorSubId0
+
+        sleep 0.350
+
+        assert_equal 2, feis.keys.size
+    end
+
+end
+

data/test/ft_37_pnames.rb

@@ -0,0 +1,70 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest37 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    DEF0 = '''
+<process-definition name="pnames" revision="0">
+    <sequence>
+        <participant ref="sps" />
+        <participant ref="sps_1" />
+    </sequence>
+</process-definition>
+'''.strip
+
+    class TestPnames1 < OpenWFE::ProcessDefinition
+        sequence do
+            participant :ref => "sps"
+            participant :ref => "sps_1"
+        end
+    end
+
+    def test_0
+
+        prepare
+
+        dotest DEF0, "sps\nsps_1"
+    end
+
+    def test_1
+
+        prepare
+
+        #dotest TestPnames1, "sps\nsps_1", true
+        dotest TestPnames1, "sps\nsps_1"
+    end
+
+    protected
+
+        def prepare
+
+            @engine.register_participant("sps") do |fexp, wi|
+                @tracer << "sps\n"
+            end
+            @engine.register_participant("sps_1") do |fexp, wi|
+                @tracer << "sps_1\n"
+            end
+        end
+
+end
+

data/test/ft_38_tag.rb

@@ -0,0 +1,127 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+require 'openwfe/def'
+
+
+class FlowTest38 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # test 0
+    #
+
+    class TestTag0 < OpenWFE::ProcessDefinition
+        concurrence do
+            sequence :tag => "seq0" do
+                _sleep "1s"
+                _print "hello"
+            end
+            _undo :ref => "seq0"
+            _print "blah"
+        end
+    end
+
+    def test_tag_0
+
+        #log_level_to_debug
+
+        dotest TestTag0, "blah"
+    end
+
+
+    #
+    # test 1
+    #
+
+    class TestTag1 < OpenWFE::ProcessDefinition
+        concurrence do
+            sequence :tag => "seq0" do
+                count
+                _sleep "1s"
+                _print "hello"
+            end
+            _redo :ref => "seq0"
+            _print "blah"
+        end
+    end
+
+    def test_tag_1
+
+        count = 0
+
+        @engine.register_participant :count do
+            count += 1
+        end
+
+        dotest TestTag1, "blah\nhello"
+
+        assert_equal 1, count
+    end
+
+
+    #
+    # test 2
+    #
+
+    class TestTag2 < OpenWFE::ProcessDefinition
+        sequence do
+            sequence :tag => "seq0" do
+                count
+                _print "hello"
+            end
+            _redo :ref => "seq0"
+            _print "blah"
+        end
+    end
+
+    def test_tag_2
+
+        count = 0
+
+        @engine.register_participant(:count) do
+            count += 1
+        end
+
+        dotest TestTag2, "hello\nblah", true
+
+        assert_equal 1, count
+    end
+
+
+    #
+    # test 3
+    #
+
+    class TestTag3 < OpenWFE::ProcessDefinition
+        sequence do
+            sequence :tag => "seq0" do
+                _print "1"
+                undo :ref => "seq0"
+                _print "2"
+            end
+            _print "3"
+        end
+    end
+
+    def test_tag_3
+
+        dotest TestTag3, "1\n3"
+    end
+
+end
+

data/test/ft_38b_tag.rb

@@ -0,0 +1,161 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'openwfe/participants'
+
+require 'flowtestbase'
+
+
+class FlowTest38b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # test 4
+    #
+
+    class TestTag4 < OpenWFE::ProcessDefinition
+        sequence do
+            sequence :tag => "seq0" do
+                peekin
+            end
+            peekout
+        end
+    end
+
+    def test_tag_4
+
+        #log_level_to_debug
+
+        @engine.register_participant :peekin do |fexp, wi|
+
+            fei = fexp.fei
+
+            assert_equal 0, @engine.get_variables.size
+
+            assert_equal 2, @engine.get_variables(fei.wfid).size
+            assert_equal 1, @engine.process_status(fei.wfid).tags.size
+            assert_equal "seq0", @engine.process_status(fei.wfid).tags.to_s
+            assert_not_nil @engine.get_variables(fei.wfid)["seq0"]
+
+            @tracer << "peekin\n"
+        end
+
+        @engine.register_participant :peekout do |fexp, wi|
+
+            fei = fexp.fei
+
+            assert_equal 1, @engine.get_variables(fei.wfid).size
+            assert_equal 0, @engine.process_status(fei.wfid).tags.size
+            assert_equal "", @engine.process_status(fei.wfid).tags.to_s
+
+            @tracer << "peekout\n"
+        end
+
+        dotest TestTag4, "peekin\npeekout"
+    end
+
+    # test 5 moved to ft_38c ...
+
+    #
+    # test 6
+    #
+
+    class TestTag6 < OpenWFE::ProcessDefinition
+
+        concurrence do
+            peek :tag => "A"
+            peek :tag => "B"
+        end
+    end
+
+    def test_6
+
+        @engine.register_participant :peek do |fexp, wi|
+
+            wfid = fexp.fei.parent_workflow_instance_id
+
+            #puts @engine.get_variables(wfid).keys.inspect
+            @tracer << @engine.process_status(wfid).tags.to_s
+        end
+
+        dotest TestTag6, [ 'AAB', 'BAB', 'ABAB' ]
+    end
+
+    #
+    # test 7 (milestone)
+    #
+
+    class TestTag7 < OpenWFE::ProcessDefinition
+        concurrence do
+            sequence do
+                participant0
+                participant1 :tag => "milestone"
+                participant2
+            end
+            sequence do
+                #wait :until => "'${milestone}' != ''", :frequency => "300"
+                wait :until => "${milestone} is set", :frequency => "300"
+                participant3
+            end
+        end
+    end
+
+    class OpenWFE::HashParticipant
+        def proceed_first
+            proceed first_workitem
+        end
+    end
+        #
+        # just added a shortcut method for testing purpose
+
+    def test_7
+
+        #log_level_to_debug
+
+        ps = (0..3).collect do |i|
+
+            @engine.register_participant(
+                "participant#{i}", OpenWFE::HashParticipant)
+        end
+
+        fei = launch TestTag7
+
+        sleep 0.350
+
+        assert_equal 1, ps[0].size
+        assert_equal 0, ps[1].size
+        assert_equal 0, ps[2].size
+        assert_equal 0, ps[3].size
+
+        ps[0].proceed_first
+
+        sleep 0.700 # why so much ? persistence...
+
+        assert_equal 0, ps[0].size
+        assert_equal 1, ps[1].size
+        assert_equal 0, ps[2].size
+        assert_equal 1, ps[3].size
+
+        @engine.cancel_process fei.wfid
+
+        sleep 0.500
+    end
+
+end
+