ruote 0.9.18

data/test/ft_38c_tag.rb

@@ -0,0 +1,100 @@
+
+#
+# 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 FlowTest38c < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # test 5
+    #
+
+    class TestTag5 < OpenWFE::ProcessDefinition
+
+        sequence do
+            sub0
+        end
+
+        process_definition :name => "sub0" do
+            sequence :tag => "seq0" do
+                peekin
+            end
+        end
+    end
+
+    def test_tag_5
+
+        @engine.register_participant :peekin do |fexp, wi|
+
+            wfid = fexp.fei.parent_workflow_instance_id
+
+            assert_equal 3, @engine.get_variables(wfid).size
+                # :next_sub_id and one [sub] process definition
+
+            assert_equal 0, @engine.process_status(wfid).tags.size
+            assert_equal "", @engine.process_status(wfid).tags.to_s
+
+            @tracer << "peekin\n"
+        end
+
+        dotest TestTag5, "peekin"
+    end
+
+
+    #
+    # test 5b
+    #
+
+    class TestTag5b < OpenWFE::ProcessDefinition
+
+        sequence do
+            sub0
+        end
+
+        process_definition :name => "sub0" do
+            sequence :tag => "/seq0" do
+                peekin
+            end
+        end
+    end
+
+    def test_5b
+
+        @engine.register_participant :peekin do |fexp, wi|
+
+            wfid = fexp.fei.parent_workflow_instance_id
+
+            assert_equal 4, @engine.get_variables(wfid).size
+                # :next_sub_id and one [sub] process definition (and the tag)
+
+            assert_equal 1, @engine.process_status(wfid).tags.size
+            assert_equal "seq0", @engine.process_status(wfid).tags.to_s
+
+            @tracer << "peekin\n"
+        end
+
+        dotest TestTag5b, "peekin"
+    end
+
+end
+

data/test/ft_39_reserve.rb

@@ -0,0 +1,63 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest39 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestReserve39a0 < OpenWFE::ProcessDefinition
+        reserve :mutex => :toto do
+            _print "ok"
+        end
+    end
+
+    def test_0
+
+        dotest TestReserve39a0, "ok", true
+    end
+
+    #
+    # Test 1
+    #
+    
+    # became obsolete
+
+    #
+    # Test 2
+    #
+
+    # moved to ft_39b_reserve.rb
+
+    #
+    # Test 3
+    #
+
+    class TestReserve39a3 < OpenWFE::ProcessDefinition
+        reserve :mutex => :toto do
+        end
+    end
+
+    def test_3
+        dotest TestReserve39a3, "", true
+    end
+
+end
+

data/test/ft_39b_reserve.rb

@@ -0,0 +1,84 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest39b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestReserve39b0 < OpenWFE::ProcessDefinition
+        #
+        # doesn't prove it enough though...
+        #
+        concurrence do
+            reserve :mutex => :toto do
+                sequence do
+                    test_alpha
+                    test_bravo
+                end
+            end
+            reserve :mutex => :toto do
+                sequence do
+                    test_charly
+                    test_delta
+                end
+            end
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        dotest(
+            TestReserve39b0, 
+            [ %w{ test-charly test-delta test-alpha test-bravo }.join("\n"),
+              %w{ test-alpha test-bravo test-charly test-delta }.join("\n") ])
+    end
+
+    #
+    # Test 1
+    #
+
+    class TestReserve39b1 < OpenWFE::ProcessDefinition
+        concurrence do
+            reserve :mutex => :toto do
+                test_b
+            end
+            sequence do
+                reserve :mutex => :toto do
+                    test_c
+                end
+                reserve :mutex => :toto do
+                    test_d
+                end
+            end
+        end
+    end
+
+    def test_1
+        
+        dotest TestReserve39b1, "test-b\ntest-c\ntest-d"
+            #
+            # currently the only combination produced, could change
+            # with later versions of Ruby... Hopefully :)
+    end
+
+end
+

data/test/ft_3_equals.rb

@@ -0,0 +1,170 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest3 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_equals_0
+        dotest(
+'''<process-definition name="equals_0" revision="0">
+    <sequence>
+        <equals value="a" other-value="a" />
+        <print>${field:__result__}</print>
+    </sequence>
+</process-definition>''', 
+            "true")
+    end
+
+    def test_equals_1
+        dotest(
+'''<process-definition name="equals_1" revision="0">
+    <sequence>
+        <equals value="a" other-value="b" />
+        <print>${field:__result__}</print>
+    </sequence>
+</process-definition>''', 
+            "false")
+    end
+
+    def test_if_0
+        dotest(
+'''<process-definition name="if_0" revision="0">
+    <if>
+        <equals value="a" other-value="a" />
+        <print>ok</print>
+    </if>
+</process-definition>''', 
+            "ok")
+    end
+
+    def test_if_1
+        dotest(
+'''<process-definition name="if_1" revision="0">
+    <if>
+        <equals value="a" other-value="a" />
+        <print>ok</print>
+        <print>nok</print>
+    </if>
+</process-definition>''', 
+            "ok")
+    end
+
+    def test_if_2
+        dotest(
+'''<process-definition name="if_2" revision="0">
+    <if>
+        <equals value="a" other-value="b" />
+        <print>nok</print>
+    </if>
+</process-definition>''', 
+            "")
+    end
+
+    def test_if_3
+        dotest(
+'''<process-definition name="if_3" revision="0">
+    <if>
+        <equals value="a" other-value="b" />
+        <print>nok</print>
+        <print>ok</print>
+    </if>
+</process-definition>''', "ok")
+    end
+
+    def test_equals_0
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <set field="a" value="true" />
+        <print>${f:a}</print>
+        <if>
+            <equals field-value="a" other-value="true" />
+            <print>true</print>
+            <print>bad test_equals_0</print>
+        </if>
+    </sequence>
+</process-definition>''', 
+"""true
+true""")
+    end
+
+    def test_equals_1
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <set variable="a" value="true" />
+        <print>${a}</print>
+        <if>
+            <equals variable-value="a" other-value="true" />
+            <print>true</print>
+            <print>bad test_equals_1</print>
+        </if>
+    </sequence>
+</process-definition>''', 
+            "true\ntrue")
+    end
+
+    def test_equals_2
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <set variable="a" value="true" />
+
+        <equals variable="a" other-value="true" />
+        <print>${f:__result__}</print>
+
+        <equals variable="a" value="true" />
+        <print>${f:__result__}</print>
+    </sequence>
+</process-definition>''', 
+            "true\ntrue")
+    end
+
+    def test_equals_3
+
+        #log_level_to_debug
+
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <if test="3 > 2">
+            <print>ok0</print>
+        </if>
+        <if test="3 > a">
+            <print>bad</print>
+            <print>ok1</print>
+        </if>
+        <if test="3>a">
+            <print>bad</print>
+            <print>ok2</print>
+        </if>
+        <if test="3 &gt; 2">
+            <print>ok3</print>
+            <print>bad</print>
+        </if>
+        <if test="1 &lt; 2.0">
+            <print>ok4</print>
+            <print>bad</print>
+        </if>
+    </sequence>
+</process-definition>''', 
+            (0..4).collect { |i| "ok#{i}" }.join("\n"))
+    end
+
+end
+

data/test/ft_3b_lookup_vf.rb

@@ -0,0 +1,83 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Wed Jan  9 22:52:06 JST 2008
+#
+
+require 'flowtestbase'
+
+
+class FlowTest3b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    class Def0 < OpenWFE::ProcessDefinition
+        sequence do
+
+            # variable
+
+            set :v => "v0", :val => "val0"
+
+            equals :variable => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :variable_value => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :var_value => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :v_value => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :var => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :v => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :v => "v0", :other_val => "val0"
+            _print "${f:__result__}"
+
+            equals :val => "val0", :other_val => "val0"
+            _print "${f:__result__}"
+
+            # field
+
+            set :f => "f0", :val => "f_val0"
+
+            equals :field_value => "f0", :other_value => "f_val0"
+            _print "${f:__result__}"
+
+            equals :f_value => "f0", :other_value => "f_val0"
+            _print "${f:__result__}"
+
+            equals :field => "f0", :other_value => "f_val0"
+            _print "${f:__result__}"
+
+            equals :field => "f0", :value => "f_val0"
+            _print "${f:__result__}"
+
+            equals :f => "f0", :other_value => "f_val0"
+            _print "${f:__result__}"
+
+            # damn, I could use a Rufus subprocess... but it's 11pm...
+            # copy, paste is just fine for a test...
+        end
+    end
+
+    def test_0
+
+        dotest Def0, ([ "true" ] * 13).join("\n")
+    end
+
+end
+