ruote 0.9.18

data/test/ft_27_getflowpos.rb

@@ -0,0 +1,147 @@
+
+#
+# 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 FlowTest27 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        def make
+            _process_definition :name => "27_gfp", :revision => "0" do
+                _sequence do
+                    store_p
+                end
+            end
+        end
+    end
+
+    def test_gfp_0
+
+        #sp = @engine.register_participant("store_p", OpenWFE::YamlParticipant)
+        sp = @engine.register_participant "store_p", OpenWFE::HashParticipant
+
+        fei = launch TestDefinition0
+
+        sleep 0.350
+
+        l = @engine.process_stack fei.wfid
+
+        #print_exp_list l
+
+        assert_equal 3, l.size
+
+        ps = @engine.list_process_status
+        #puts
+        #puts ps[fei.parent_wfid].to_s
+        #puts
+
+        assert_equal 0, ps[fei.parent_wfid].errors.size
+        assert_equal 1, ps[fei.parent_wfid].expressions.size
+        assert_kind_of OpenWFE::ParticipantExpression, ps[fei.parent_wfid].expressions[0]
+
+        assert_not_nil ps[fei.parent_wfid].launch_time
+
+        ps = @engine.list_process_status fei.wfid[0, 4]
+
+        assert_equal 0, ps[fei.parent_wfid].errors.size
+        assert_equal 1, ps[fei.parent_wfid].expressions.size
+        assert_kind_of OpenWFE::ParticipantExpression, ps[fei.parent_wfid].expressions[0]
+
+        #
+        # resume process
+
+        wi = sp.first_workitem
+
+        sp.forward(wi)
+
+        #@engine.wait_for fei
+        wait_for fei
+
+        assert_equal 0, sp.size
+    end
+
+
+    #
+    # TEST 0b
+
+    class Gfp27b < OpenWFE::ProcessDefinition
+        sequence do
+            store_p
+            _print "pass"
+        end
+    end
+
+    def test_gfp_0b
+
+        log_level_to_debug
+
+        sp = @engine.register_participant "store_p", OpenWFE::YamlParticipant
+
+        #fei = @engine.launch TestDefinition0
+        fei = launch Gfp27b
+
+        sleep 0.350
+
+        #l = @engine.get_process_stack(fei.wfid)
+        l = @engine.process_stack fei
+            #
+            # shortcut version
+
+        #print_exp_list l
+
+        assert_equal 3, l.size
+
+        l = @engine.list_processes
+        assert_equal 1, l.size
+
+        l = @engine.list_processes(
+            :consider_subprocesses => false, :wfid_prefix => "nada")
+        assert_equal 0, l.size
+
+        l = @engine.list_workflows(
+            :consider_subprocesses => false, :wfid_prefix => fei.wfid[0, 3])
+        assert_equal 1, l.size
+
+        l = @engine.process_stack fei, true # unapplied exps as well
+        #print_exp_list l
+        assert_equal 5, l.size
+
+        #
+        # resume flow and terminate it
+
+        wi = sp.first_workitem
+
+        assert_not_nil wi
+
+        sp.forward wi
+
+        #@engine.wait_for fei
+        wait_for fei
+
+        assert_equal 0, sp.size
+    end
+
+end
+

data/test/ft_28_fileparticipant.rb

@@ -0,0 +1,63 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'find'
+require 'fileutils'
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'openwfe/listeners/listeners'
+require 'openwfe/participants/participants'
+
+require 'flowtestbase'
+
+
+class FlowTest28 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        sequence do
+            participant :fp
+            _print "done"
+        end
+    end
+
+    def test_0
+
+        FileUtils.mkdir("./work/in") unless File.exist? "./work/in"
+
+        @engine.register_participant "fp", OpenWFE::FileParticipant
+        @engine.add_workitem_listener OpenWFE::FileListener, "500"
+
+        fei = launch TestDefinition0
+
+        sleep 0.350
+
+        Find.find("./work/out/") do |path|
+            next unless path.match ".*\.yaml$"
+            FileUtils.mv path, "./work/in/"
+        end
+
+        sleep 2.000
+
+        assert_equal 1, engine.get_expression_storage.size
+    end
+
+end
+

data/test/ft_29_httprb.rb

@@ -0,0 +1,106 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'openwfe/workitem'
+require 'openwfe/participants/storeparticipants'
+
+require 'flowtestbase'
+
+
+class FlowTest29 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    def setup
+        super
+        @engine.ac[:remote_definitions_allowed] = true
+    end
+
+    DEFHOST = "http://openwferu.rubyforge.org/defs"
+
+    #
+    # TEST 0
+
+    def test_httprb_0
+
+        li = OpenWFE::LaunchItem.new
+        li.wfdurl = "#{DEFHOST}/testdef.rb"
+
+        dotest li, %w{ a b c }.join("\n")
+    end
+
+
+    #
+    # TEST 1
+
+    class MainDefinition1 < OpenWFE::ProcessDefinition
+        sequence do
+            _print "A"
+            subprocess :ref => "#{DEFHOST}/testdef.rb"
+            _print "C"
+        end
+    end
+
+    def test_httprb_1
+
+        dotest MainDefinition1, %w{ A a b c C }.join("\n")
+    end
+
+
+    #
+    # TEST 2
+
+    class MainDefinition2 < OpenWFE::ProcessDefinition
+        def make
+            sequence do
+                _print "-1"
+                subprocess :ref => "#{DEFHOST}/testdef.xml"
+                _print "3"
+            end
+        end
+    end
+
+    def test_httprb_2
+
+        dotest MainDefinition2, %w{ -1 0 1 2 3 }.join("\n")
+    end
+
+
+    #
+    # TEST 3
+
+    def test_httprb_3
+
+        @engine.ac.delete(:remote_definitions_allowed)
+            #
+            # relocking
+
+        li = OpenWFE::LaunchItem.new
+        li.wfdurl = "#{DEFHOST}/testdef.rb"
+
+        e = nil
+
+        begin
+            dotest(li, "")
+        rescue Exception => e
+        end
+
+        #puts e
+
+        assert_not_nil e
+        assert_equal e.to_s, ":remote_definitions_allowed is set to false"
+    end
+
+end
+

data/test/ft_2_concurrence.rb

@@ -0,0 +1,135 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest2 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    # test_con_0 got moved to ft_2c_concurrence.rb
+
+    def test_con_1
+
+        #log_level_to_debug
+
+        dotest(
+'''<process-definition name="ft_2_concurrence" revision="1">
+    <concurrence
+        count="1"
+    >
+        <print>a</print>
+        <sequence>
+            <sleep for="10s" />
+            <print>b</print>
+        </sequence>
+    </concurrence>
+</process-definition>''', 
+            "a", 
+            true)
+    end
+
+    def test_con_2
+
+        #log_level_to_debug
+
+        dotest(
+'''<process-definition name="ft_2_concurrence" revision="2">
+    <concurrence over-if="true">
+        <sequence>
+            <sleep for="1s"/>
+            <print>a</print>
+        </sequence>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', 
+            "b",
+            true)
+    end
+
+    def test_con_3
+
+        #log_level_to_debug
+
+        dotest(
+'''<process-definition name="ft_2_concurrence" revision="3">
+    <concurrence over-if="${over}">
+        <print>a</print>
+        <set variable="over" value="true" />
+    </concurrence>
+</process-definition>''', 
+            "a",
+            true)
+    end
+
+    def test_con_4
+
+        #log_level_to_debug
+
+        dotest(
+'''<process-definition name="ft_2_concurrence" revision="4">
+    <concurrence over-if="${nada}">
+        <sequence>
+            <sleep for="1s"/>
+            <print>a</print>
+        </sequence>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', 
+            "b\na",
+            true)
+    end
+
+    def test_con_5
+
+        #log_level_to_debug
+
+        dotest(
+'''<process-definition name="ft_2_concurrence" revision="5">
+    <concurrence over-if="false">
+        <sequence>
+            <sleep for="1s"/>
+            <print>a</print>
+        </sequence>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', 
+            "b\na",
+            true)
+    end
+
+    class TestDefinition6 < OpenWFE::ProcessDefinition
+        sequence do
+            concurrence :over_if => "1 == 1" do
+                sequence do
+                    _sleep :for => "350"
+                    _print "a"
+                end
+                _print "b"
+            end
+            _print "c"
+        end
+    end
+
+    def test_con_6
+
+        dotest TestDefinition6, "b\nc"
+    end
+
+end
+