ruote 0.9.18

data/test/ft_18_pname.rb

@@ -0,0 +1,56 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest18 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        def make
+            _process_definition :name => "test0", :revision => "0" do
+                p_toto
+            end
+        end
+    end
+
+    def test_0
+
+        dotest(
+            TestDefinition0,
+            "toto")
+    end
+
+
+    #
+    # Test 1
+    #
+
+    def test_1
+
+        dotest(\
+"""<process-definition name='test1' revision='0'>
+    <p-toto/>
+</process-definition>""", "toto")
+    end
+
+end
+

data/test/ft_1_unset.rb

@@ -0,0 +1,175 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest1 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_unset_0
+        dotest(
+            '''
+<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="x" value="y" />
+        <print>set ${x} ${v:x}</print>
+        <unset variable="x" />
+        <print>unset ${x} ${v:x}</print>
+    </sequence>
+</process-definition>
+            '''.strip, 
+            "set y y\nunset")
+            #true)
+    end
+
+    def test_unset_2
+        dotest(
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set field="x" value="y" />
+        <print>set ${f:x}</print>
+        <unset field="x" />
+        <print>unset ${field:x}</print>
+    </sequence>
+</process-definition>''', 
+            "set y\nunset")
+    end
+
+    def test_unset_2
+        dotest(
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="//x" value="y" />
+        <print>set ${x}</print>
+        <unset variable="x" />
+        <print>unset ${x}</print>
+    </sequence>
+</process-definition>''', 
+            "set y\nunset y")
+    end
+
+    def test_unset_3
+        dotest(
+            '''
+<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="//x" value="y" />
+        <print>set ${x}</print>
+        <unset variable="//x" />
+        <print>unset ${x}</print>
+    </sequence>
+</process-definition>
+            '''.strip, 
+            "set y\nunset")
+            #true)
+    end
+
+    def test_unset_4
+        dotest(
+            '''
+<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="/x" value="y" />
+        <print>set ${x}</print>
+        <unset variable="x" />
+        <print>unset ${x}</print>
+    </sequence>
+</process-definition>
+            '''.strip, 
+            "set y\nunset")
+            #true)
+    end
+
+    def test_unset_5
+        dotest(
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="/x" value="y" />
+        <print>set ${x}</print>
+        <print>unset ${x}</print>
+    </sequence>
+    <process-definition name="sub0">
+        <unset variable="x" />
+    </process-definition>
+</process-definition>''', 
+            "set y\nunset y")
+    end
+
+    def test_set_a0
+        dotest(
+'''<process-definition name="set_a0" revision="0">
+    <sequence>
+        <set variable="x">y</set>
+        <print>${x}</print>
+    </sequence>
+</process-definition>''', 
+            'y')
+    end
+
+    def test_set_a1
+        dotest(
+'''<process-definition name="set_a1" revision="0">
+    <sequence>
+        <set variable="x">
+            <equals value="a" other-value="a" />
+        </set>
+        <print>${x}</print>
+    </sequence>
+</process-definition>''', 
+            'true')
+    end
+
+    def test_set_a1f
+        dotest(
+'''<process-definition name="set_a1f" revision="0">
+    <sequence>
+        <set variable="x">
+            <equals value="a" other-value="${x}" />
+        </set>
+        <print>${x}</print>
+    </sequence>
+</process-definition>''', 
+            'false')
+    end
+
+    def test_set_with_nested_string_0
+        dotest(
+'''<process-definition name="set_a1f" revision="0">
+    <sequence>
+        <set variable="x">
+            ${r:"1234".reverse}
+        </set>
+        <print>${x}</print>
+    </sequence>
+</process-definition>''', 
+            '4321')
+    end
+
+    def test_set_with_nested_string_1
+        dotest(
+'''<process-definition name="set_a1f" revision="0">
+    <sequence>
+        <set field="x">
+            ${r:"1234".reverse}
+        </set>
+        <print>${f:x}</print>
+    </sequence>
+</process-definition>''', 
+            '4321')
+    end
+
+end
+

data/test/ft_1b_unset.rb

@@ -0,0 +1,39 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest1b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_unset_6
+        dotest(\
+'''<process-definition name="unset_6" revision="0">
+    <sequence>
+        <set variable="/x" value="y" />
+        <print>set ${x}</print>
+        <sub0/>
+        <print>unset ${x}</print>
+    </sequence>
+    <process-definition name="sub0">
+        <unset variable="/x" />
+    </process-definition>
+</process-definition>''', 'set y
+unset')
+    end
+
+end
+

data/test/ft_20_cron.rb

@@ -0,0 +1,53 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest20 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        process_definition :name => "rs0", :revision => "0" do
+            concurrence :count => 1 do
+                cron :tab => "* * * * *", :name => "cron" do
+                    participant :cron_event
+                end
+                sequence do
+                    _print "before"
+                    _sleep :for => "61s"
+                    _print "after"
+                end
+            end
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant(:cron_event) do |fexp, wi|
+            @tracer << "#{fexp.class.name}\n"
+        end
+
+        dotest(
+            TestDefinition0, 
+            %w{ before OpenWFE::ParticipantExpression after }.join("\n"))
+            #62)
+    end
+
+end
+

data/test/ft_21_cron.rb

@@ -0,0 +1,87 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest21 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        cron :tab => "* * * * *", :name => "cron" do
+            participant :cron_event
+        end
+    end
+
+    #
+    # this one tests whether a cron event is removed when his process
+    # terminates, as should be.
+    #
+    def test_0
+
+        #log_level_to_debug
+
+        @engine.register_participant(:cron_event) do
+            puts "    :(    cron_event at #{Time.now.to_s}"
+            @tracer << "cron_event"
+        end
+
+        #puts "start at #{Time.now.to_s}"
+        #dotest TestDefinition0, "", 62
+
+        fei = launch TestDefinition0
+
+        sleep 0.350
+
+        assert_equal "", @tracer.to_s
+        assert_not_nil @engine.process_status(fei)
+
+        @engine.cancel_process fei
+
+        sleep 0.350
+
+        assert_nil @engine.process_status(fei)
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+    #
+    # Test 1
+    #
+
+    class TestDefinition1 < OpenWFE::ProcessDefinition
+        concurrence :count => 1 do
+            cron :every => "1s500" do
+                participant :cron_event
+            end
+            _sleep "7s"
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        @engine.register_participant(:cron_event) do
+            @tracer << "x"
+        end
+
+        dotest TestDefinition1, [ "xxxx", "xxxxx" ]
+    end
+
+end
+

data/test/ft_21b_cron_pause.rb

@@ -0,0 +1,82 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Sun Mar 23 13:26:15 JST 2008
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest21b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        cron :tab => "* * * * * *", :name => "cron" do
+            participant :cron_event
+        end
+    end
+
+    #
+    # this one tests whether a cron event is removed when his process
+    # terminates, as should be.
+    #
+    def test_0
+
+        #log_level_to_debug
+
+        counter = 0
+
+        @engine.register_participant(:cron_event) do
+            counter += 1
+        end
+
+        #puts "start at #{Time.now.to_s}"
+        #dotest TestDefinition0, "", 62
+
+        fei = launch TestDefinition0
+
+        sleep 0.350
+
+        assert_equal "", @tracer.to_s
+        assert_not_nil @engine.process_status(fei)
+
+        sleep 3
+
+        @engine.pause_process fei.wfid
+
+        assert_equal 3, counter
+
+        sleep 3
+
+        assert_equal 3, counter
+        assert_equal 0, @engine.process_status(fei).errors.size
+
+        @engine.resume_process fei.wfid
+
+        sleep 3
+
+        assert_equal 6, counter
+
+        @engine.cancel_process fei.wfid
+
+        sleep 0.350
+
+        assert_nil @engine.process_status(fei)
+    end
+
+end
+