ruote 0.9.18

data/test/ft_84_updateexp.rb

@@ -0,0 +1,198 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Mar  9 20:43:02 JST 2008
+#
+
+require 'flowtestbase'
+
+require 'openwfe/def'
+require 'openwfe/participants/storeparticipants'
+require 'openwfe/storage/yamlcustom'
+
+
+class FlowTest84 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < OpenWFE::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 = 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 < OpenWFE::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 = 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
+
+    #
+    # TEST 2
+
+    class TestDefinition2 < OpenWFE::ProcessDefinition
+       sequence do
+           participant "alpha"
+           participant "alpha"
+           participant "charly"
+       end
+    end
+
+    def test_2
+
+        #log_level_to_debug
+
+        %w{ alpha bravo charly }.each do |pname|
+            @engine.register_participant pname, OpenWFE::HashParticipant
+        end
+
+        fei = launch TestDefinition2
+
+        sleep 0.350
+
+        ps = @engine.process_stack fei.wfid, true
+
+        s3fei = ps.find { |fexp| fexp.fei.expid == "0.0.1" }.fei
+
+        # update happens here
+
+        @engine.update_raw_expression s3fei, ["bravo", {}, []]
+
+        ps = @engine.process_stack fei.wfid, true
+
+        #p ps.representation
+
+        assert_equal(
+            ["process-definition", {"name"=>"Test", "revision"=>"2"}, [["sequence", {}, [["participant", {}, ["alpha"]], ["bravo", {}, []], ["participant", {}, ["charly"]]]]]],
+            ps.representation)
+
+        wi = @engine.get_participant("alpha").first_workitem
+        @engine.get_participant("alpha").forward(wi)
+
+        sleep 0.350
+
+        wi = @engine.get_participant("bravo").first_workitem
+        @engine.get_participant("bravo").forward(wi)
+
+        sleep 0.350 
+
+        ps = @engine.process_stack fei.wfid, true
+
+        #puts
+        #ps.each do |fexp|
+        #    puts "== #{fexp.fei.to_short_s}"
+        #    p [ fexp.raw_representation, fexp.raw_rep_updated ]
+        #end
+        #puts
+
+        assert_equal(
+            ["process-definition", {"name"=>"Test", "revision"=>"2"}, [["sequence", {}, [["participant", {}, ["alpha"]], ["bravo", {"ref"=>"bravo"}, []], ["participant", {}, ["charly"]]]]]],
+            ps.representation)
+
+        # just to be sure
+
+        assert_equal 0, ps.find_all { |fexp| fexp.fei.expid == '0.0.1' }.size
+            # making sure the 2nd participant is over
+
+        #@engine.cancel_process fei
+        #sleep 0.350
+
+        purge_engine
+    end
+
+end
+

data/test/ft_85_dolhash.rb

@@ -0,0 +1,43 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Mar 20 09:23:03 JST 2008
+#
+
+require 'flowtestbase'
+
+require 'openwfe/def'
+
+
+class FlowTest85 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        participant "toto", :arg0 => "0", :arg1 => [ 1, 2 ]
+    end
+
+    def test_0
+
+        @engine.register_participant "toto" do |fexp, workitem|
+            #p fexp.raw_representation
+            #p workitem.attributes
+            @tracer << workitem.params["arg1"].inspect
+        end
+
+        dotest TestDefinition0, "[1, 2]"
+    end
+
+end
+

data/test/ft_86_dollar_fv.rb

@@ -0,0 +1,68 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon May  5 09:28:28 JST 2008
+#
+
+require 'rubygems'
+
+require 'flowtestbase'
+
+require 'openwfe/def'
+
+
+class FlowTest86 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < OpenWFE::ProcessDefinition
+
+        set_fields :value => {
+            "a" => "f:a",
+            "b" => "f:b",
+        }
+
+        sequence do
+
+            set :var => "a", :val => "v:a"
+            set :var => "c", :val => "v:c"
+
+            _print "${f:a}"
+            _print "${v:a}"
+
+            _print "${field:a}"
+            _print "${variable:a}"
+
+            _print "${vf:a}"
+            _print "${fv:a}"
+
+            _print "${vf:b}"
+            _print "${fv:b}"
+            _print "${vf:c}"
+            _print "${fv:c}"
+
+            _print "${r:1+2}"
+            _print "${ru:4+3}"
+        end
+    end
+
+    def test_0
+
+        dotest(
+            Test0, 
+            %w{ f:a v:a f:a v:a v:a f:a f:b f:b v:c v:c 3 7 }.join("\n"))
+    end
+
+
+end
+

data/test/ft_87_define.rb

@@ -0,0 +1,74 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon May  5 09:28:28 JST 2008
+#
+
+require 'rubygems'
+
+require 'flowtestbase'
+
+require 'openwfe/def'
+
+
+class FlowTest87 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < OpenWFE::ProcessDefinition
+
+        sequence do
+            sub0
+            sub1
+            sub2
+            sub3
+        end
+
+        process_definition :name => "sub0" do
+            _print "sub0"
+        end
+        define :name => "sub1" do
+            _print "sub1"
+        end
+        process_definition "sub2" do
+            _print "sub2"
+        end
+        define "sub3" do
+            _print "sub3"
+        end
+    end
+
+    def test_0
+
+        dotest Test0, %w{ sub0 sub1 sub2 sub3 }.join("\n")
+    end
+
+    #
+    # TEST 1
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            "bad 0"
+            _print "ok"
+            "bad 1"
+            _print "over"
+        end
+    end
+
+    def test_1
+
+        dotest Test1, "ok\nover"
+    end
+
+end
+

data/test/ft_8_forget.rb

@@ -0,0 +1,44 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 25 14:27:48 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest8 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_forget_0
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <concurrence
+            count="1"
+        >
+            <forget>
+                <print>a</print>
+            </forget>
+            <sequence>
+                <sleep for="500" />
+                <print>b</print>
+            </sequence>
+        </concurrence>
+        <print>c</print>
+    </sequence>
+</process-definition>''', 
+            "a\nc")
+    end
+
+end
+

data/test/ft_9_cursor.rb

@@ -0,0 +1,145 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest9 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_cursor_0
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <cursor>
+        <print>a</print>
+        <print>b</print>
+    </cursor>
+</process-definition>''', 
+"""a
+b""")
+    end
+
+    def test_cursor_1
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <cursor>
+        <print>a</print>
+        <print>b</print>
+        <cancel />
+        <print>c</print>
+    </cursor>
+</process-definition>''', 
+"""a
+b""")
+    end
+
+    def test_cursor_2
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <cursor>
+        <print>a</print>
+        <print>b</print>
+        <skip step="2" />
+        <print>c</print>
+    </cursor>
+</process-definition>''', 
+"""a
+b""")
+    end
+
+    def test_cursor_2b
+        #
+        # ZigZag test
+        #
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <cursor>
+        <print>a</print>
+        <skip step="3" />
+        <print>b</print>
+        <skip step="2" />
+        <back step="2"/>
+        <print>c</print>
+    </cursor>
+</process-definition>''', 
+"""a
+b
+c""")
+    end
+
+    def test_cursor_3
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <cursor>
+        <print>a</print>
+        <skip step="2" />
+        <print>b</print>
+        <print>c</print>
+    </cursor>
+</process-definition>''', 
+"""a
+c""")
+    end
+
+    def test_cursor_4
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <cursor>
+            <print>a</print>
+            <set field="__cursor_command__" value="skip 2" />
+            <print>b</print>
+            <print>c</print>
+        </cursor>
+        <print>d</print>
+    </sequence>
+</process-definition>''', 
+"""a
+c
+d""")
+    end
+
+    def test_cursor_5
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <cursor>
+        <print>a</print>
+        <skip>2</skip>
+        <print>b</print>
+        <print>c</print>
+    </cursor>
+</process-definition>''', 
+"""a
+c""")
+    end
+
+    class TestCursor6 < OpenWFE::ProcessDefinition
+        cursor do
+            _print "a"
+            skip "2"
+            _print "b"
+            _print "c"
+            skip 2
+            _print "d"
+        end
+    end
+
+    def test_cursor_6
+        dotest(TestCursor6, "a\nc")
+    end
+
+end
+