openwferu 0.9.16 → 0.9.17

data/test/ft_80_spname.rb

@@ -0,0 +1,95 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Fri Jan  4 15:00:26 JST 2008
+#
+# Fighting bug #16791
+# http://rubyforge.org/tracker/index.php?func=detail&aid=16791&group_id=2609&atid=10023
+#
+
+require 'flowtestbase'
+#require 'openwfe/def'
+#require 'openwfe/worklist/storeparticipant'
+
+#include OpenWFE
+
+
+class FlowTest80 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Def0 < OpenWFE::ProcessDefinition
+        sequence do
+            subprocess :ref => "last_step"
+            last_step
+        end
+        process_definition :name => "last_step" do
+            _print "last_step"
+        end
+    end
+
+    def test_0
+        dotest Def0, ([ "last_step" ] * 2).join("\n")
+    end
+
+    TEST0B = %{
+        <process-definition name="def" revision="0b">
+            <sequence>
+                <subprocess ref="last_step" />
+                <last_step />
+            </sequence>
+            <process-definition name="last_step">
+                <print>last_step</print>
+            </process-definition>
+        </process-definition>
+    }.strip
+
+    def test_0b
+        dotest TEST0B, ([ "last_step" ] * 2).join("\n")
+    end
+
+    #
+    # Test 1
+    #
+    # Checking with participants
+    #
+
+    class Def1 < OpenWFE::ProcessDefinition
+        sequence do
+            mister_alpha
+            participant :ref => :mister_alpha
+            participant :ref => "mister_alpha"
+            #participant :ref => "mister-alpha"
+            mister_bravo
+            #participant :ref => :mister_bravo
+            #participant :ref => "mister_bravo"
+            participant :ref => "mister-bravo"
+        end
+    end
+
+    def test_1
+
+        @engine.register_participant :mister_alpha do
+            @tracer << "alpha\n"
+        end
+        @engine.register_participant "mister-bravo" do
+            @tracer << "bravo\n"
+        end
+
+        dotest Def1, ([ "alpha" ] * 3 + [ "bravo" ] * 2).join("\n")
+    end
+
+end
+

data/test/ft_81_exp.rb

@@ -0,0 +1,64 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Sat Jan  5 22:57:53 JST 2008
+#
+
+require 'flowtestbase'
+#require 'openwfe/def'
+#require 'openwfe/worklist/storeparticipant'
+
+#include OpenWFE
+
+
+class FlowTest81 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Def0 < OpenWFE::ProcessDefinition
+
+        sequence do
+
+            exp :name => "p0"
+            exp :name => "sub0"
+
+            exp :name => "sequence" do
+                p0
+                sub0
+            end
+
+            set :var => "a", :value => { "ref" => "p0" }
+            exp :name => "participant", :variable_attributes => "a"
+
+            exp :default => "p0"
+            exp :name => " ", :default => "p0"
+        end
+
+        process_definition :name => "sub0" do
+            _print "sub0"
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant :p0 do
+            @tracer << "p0\n"
+        end
+
+        dotest Def0, %w{ p0 sub0 p0 sub0 p0 p0 p0 }.join("\n")
+    end
+
+end
+

data/test/ft_82_trecu.rb

@@ -0,0 +1,48 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Sat Feb 16 19:07:42 JST 2008
+#
+
+require 'flowtestbase'
+#require 'openwfe/def'
+#require 'openwfe/worklist/storeparticipant'
+
+#include OpenWFE
+
+
+class FlowTest82 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            #_print "${r:fei.wfname}"
+            _print do
+                reval "$i += 1"
+            end
+            subprocess :ref => "Test", :unless => "${r:$i} == 3"
+        end
+    end
+
+    def test_0
+
+        $i = 0
+
+        dotest Test0, "1\n2\n3"
+    end
+
+end
+

data/test/ft_83_badpause.rb

@@ -0,0 +1,62 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Sat Feb 16 19:07:42 JST 2008
+#
+
+require 'flowtestbase'
+#require 'openwfe/def'
+#require 'openwfe/worklist/storeparticipant'
+
+#include OpenWFE
+
+
+class FlowTest83 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        concurrence do
+            _loop do
+                alpha
+            end
+            _loop do
+                alpha
+            end
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant :alpha do
+            sleep 0.002
+        end
+
+        fei = @engine.launch Test0
+
+        sleep 0.350
+
+        1000.times do |i|
+            print "."
+            ps = @engine.process_status fei
+            assert ( ! ps.paused?)
+            #p ps.expressions.size
+        end
+
+        #dotest Test0, "1\n2\n3"
+    end
+
+end
+

data/test/ft_84_updateexp.rb

@@ -0,0 +1,125 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Mar  9 20:43:02 JST 2008
+#
+
+require 'flowtestbase'
+
+require 'openwfe/def'
+require 'openwfe/worklist/storeparticipant'
+require 'openwfe/storage/yamlcustom'
+
+
+class FlowTest84 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < ProcessDefinition
+       sequence do
+           set :var => "v0", :val => "val0"
+           store_p
+       end
+    end
+
+    def test_0
+
+        #sp = @engine.register_participant("store_p", OpenWFE::YamlParticipant)
+        sp = @engine.register_participant("store_p", OpenWFE::HashParticipant)
+
+        fei = @engine.launch TestDefinition0
+
+        sleep 0.350
+
+        s = @engine.process_stack fei, true
+
+        env = s.find { |fexp| fexp.is_a?(OpenWFE::Environment) }
+        par = s.find { |fexp| fexp.is_a?(OpenWFE::ParticipantExpression) }
+
+        #
+        # testing update on env
+
+        assert_equal "val0", @engine.lookup_variable("v0", fei)
+
+        @engine.update_expression_data(
+            env.fei, { "v0" => "val0b", "v1" => "val1" })
+
+        assert_equal "val0b", @engine.lookup_variable("v0", fei)
+        assert_equal "val1", @engine.lookup_variable("v1", fei)
+
+        #
+        # testing update on participant expression
+
+        assert [ 1, 2 ], par.applied_workitem.attributes
+
+        @engine.update_expression_data par.fei, { 'f0' => 'val0' }
+
+        s = @engine.process_stack fei
+        par = s.find { |fexp| fexp.is_a?(OpenWFE::ParticipantExpression) }
+
+        assert_equal 'val0', par.applied_workitem.attributes['f0']
+
+        @engine.cancel_process fei.wfid
+
+        sleep 0.350
+    end
+
+    #
+    # TEST 1
+
+    class TestDefinition1 < ProcessDefinition
+       sequence do
+           participant "alpha"
+           participant "bravo"
+       end
+    end
+
+    def test_1
+
+        %w{ alpha bravo charly }.each do |pname|
+            @engine.register_participant pname, OpenWFE::HashParticipant
+        end
+
+        fei = @engine.launch TestDefinition1
+
+        sleep 0.350
+
+        assert 1, @engine.get_participant("alpha").size
+        assert 0, @engine.get_participant("bravo").size
+        assert 0, @engine.get_participant("charly").size
+
+        ps = @engine.process_stack fei.wfid, true
+        #puts ps.collect { |fexp| fexp.to_yaml }.join("\n")
+
+        ebravo = ps.find { |fexp| fexp.fei.expid == '0.0.1' }
+        scharly = ebravo.to_yaml.gsub /bravo/, "charly"
+
+        @engine.update_expression(YAML.load(scharly))
+
+        wi = @engine.get_participant("alpha").first_workitem
+        @engine.get_participant("alpha").forward(wi)
+
+        sleep 0.350
+
+        assert 0, @engine.get_participant("alpha").size
+        assert 0, @engine.get_participant("bravo").size
+        assert 1, @engine.get_participant("charly").size
+
+        @engine.cancel_process fei.wfid
+
+        sleep 0.350
+    end
+
+end
+

data/test/ft_9b_cursor.rb

@@ -0,0 +1,105 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Nov 22 11:53:13 JST 2007
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest9b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < ProcessDefinition
+        cursor do
+            set :v => "v0", :val => "x"
+            _print "${v0}"
+        end
+    end
+
+    def test_0
+
+        dotest Test0, "x"
+    end
+
+    #
+    # Test 1
+    #
+
+    class Test1 < ProcessDefinition
+        cursor do
+            my_participant
+        end
+    end
+
+    def test_1
+
+        @engine.register_participant :my_participant do |fexp, wi|
+            #puts fexp.to_s
+            #puts fexp.environment_id.to_s
+            @tracer << "ok0\n" if fexp.environment_id.expid != fexp.fei.expid
+            @tracer << "ok1\n" if fexp.environment_id.expid == "0.0"
+            @tracer << "ok2\n" if fexp.environment_id.wfid + ".0" == fexp.fei.wfid
+        end
+
+        dotest Test1, "ok0\nok1\nok2"
+    end
+
+    #
+    # Test 2
+    #
+
+    #class Test2 < ProcessDefinition
+    #    cursor do
+    #        my_participant
+    #    end
+    #end
+    class MyParticipant
+        include LocalParticipant
+
+        def initialize (tracer)
+            @tracer = tracer
+        end
+        def consume (workitem)
+            @tracer << "consume\n"
+            @workitem = workitem
+        end
+        def cancel (cancelitem)
+            @tracer << @workitem.fei.sub_instance_id
+            @tracer << " cancel\n"
+        end
+    end
+
+    def test_2
+
+        log_level_to_debug
+
+        @engine.register_participant :my_participant, MyParticipant.new(@tracer)
+
+        fei = @engine.launch Test1
+
+        sleep 0.350
+
+        @engine.cancel_process fei
+
+        sleep 0.350
+
+        assert_equal "consume\n.0 cancel", @tracer.to_s
+    end
+
+end
+