ruote 0.9.18

data/test/ft_0.rb

@@ -0,0 +1,68 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest0 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_0
+        #log_level_to_debug
+        dotest(
+'''<process-definition name="n" revision="0">
+    <print>ok</print>
+</process-definition>''', "ok")
+    end
+
+    def test_1
+        dotest(
+'''<process-definition name="n" revision="0">
+</process-definition>''', '')
+    end
+
+    def test_2
+        #log_level_to_debug
+        dotest(
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set variable="x" value="y" />
+        <print>${x} ${v:x}</print>
+    </sequence>
+</process-definition>''', 'y y')
+    end
+
+    def test_3
+        #log_level_to_debug
+        dotest(
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <set field="x" value="y" />
+        <print>${f:x} ${field:x}</print>
+    </sequence>
+</process-definition>''', 'y y')
+    end
+
+    def test_dollar_notation_2
+        dotest(
+'''<process-definition name="n" revision="0">
+    <sequence>
+        <print>${f:x}X${field:x}</print>
+    </sequence>
+</process-definition>''', 'X')
+    end
+
+end
+

data/test/ft_0b_sequence.rb

@@ -0,0 +1,36 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest0b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_sequence
+        dotest(
+            '''
+<process-definition name="n" revision="0">
+    <sequence>
+        <print>a</print>
+        <print>b</print>
+    </sequence>
+</process-definition>
+            '''.strip, 
+            "a\nb")
+    end
+
+end
+

data/test/ft_0c_testname.rb

@@ -0,0 +1,33 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 25 14:27:48 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class TestTestName < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_name_of_test
+        dotest(
+            """
+<process-definition name='#{name_of_test}' revision='0'>
+    <print>#{name_of_test}</print>
+</process-definition>
+            """.strip, 
+            "name_of_test")
+    end
+
+end
+

data/test/ft_0d_participant.rb

@@ -0,0 +1,30 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest0d < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_participant
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <participant ref="test-alpha" />
+</process-definition>''', "test-alpha")
+    end
+
+end
+

data/test/ft_0e_multibody.rb

@@ -0,0 +1,34 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Nov  6 10:10:57 JST 2007
+#
+
+require 'flowtestbase'
+
+
+class FlowTest0e < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_multi_body
+
+        #log_level_to_debug
+
+        dotest(
+'''<process-definition name="n" revision="0">
+    <print>ok</print>
+    <print>nok</print>
+</process-definition>''', "ok")
+    end
+
+end
+

data/test/ft_10_loop.rb

@@ -0,0 +1,134 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'flowtestbase'
+
+
+$s = (0..9).to_a.join("\n").strip
+
+
+class FlowTest10 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_loop_0
+
+        #log_level_to_debug
+
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <print>${r:$i}</print>
+            <reval>$i = $i + 1</reval>
+            <if>
+                <equals value="${r:$i}" other-value="10" />
+                <break/>
+            </if>
+        </loop>
+    </sequence>
+</process-definition>''', 
+        $s)
+    end
+
+    def test_loop_1
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <print>${r:$i}</print>
+            <reval>$i = $i + 1</reval>
+            <if rtest="$i == 10">
+                <break/>
+            </if>
+        </loop>
+    </sequence>
+</process-definition>''', 
+        $s)
+    end
+
+    def test_loop_2
+        #log_level_to_debug
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <print>${r:$i}</print>
+            <reval>$i = $i + 1</reval>
+            <break if="${r:$i} == 10" />
+        </loop>
+    </sequence>
+</process-definition>''', 
+        $s)
+    end
+
+    def test_loop_3
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <print>${r:$i}</print>
+            <reval>$i = $i + 1</reval>
+            <break if="${r:$i == 10}" />
+        </loop>
+    </sequence>
+</process-definition>''', 
+        $s)
+    end
+
+    def test_loop_4
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <print>${r:$i}</print>
+            <reval>$i = $i + 1</reval>
+            <break rif="$i == 10" />
+        </loop>
+    </sequence>
+</process-definition>''', 
+        $s)
+    end
+
+    def test_loop_5
+
+        log_level_to_debug
+
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <!--
+            <reval>$i = $i + 1</reval>
+            <set field="f" value="${r:$i}" />
+            -->
+            <set field="f">
+                <reval>$i = $i + 1</reval>
+            </set>
+            <print>${r:$i}</print>
+            <break if="${f:f}" />
+        </loop>
+    </sequence>
+</process-definition>''', 
+        '1')
+    end
+
+end
+

data/test/ft_11_ppd.rb

@@ -0,0 +1,415 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'rubygems'
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest11 < 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
+                sequence do
+                    _print do "a" end
+                    _print { "b" }
+                    _print "c"
+                        #
+                        # all these notations for nesting a string
+                        # are allowed
+                        #
+                        # of course, the latter one is the nicest
+                end
+            end
+        end
+    end
+
+    def test_ppd_0
+
+        #log_level_to_debug
+
+        dotest TestDefinition0, "a\nb\nc"
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestDefinition1 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test1", :revision => "0" do
+                sequence do
+                    set :variable => "toto", :value => "nada"
+                    _print "toto:${toto}"
+                    set :field => "ftoto" do
+                        "_${toto}__${r:'123'.reverse}"
+                    end
+                    _print { "ftoto:${f:ftoto}" }
+                end
+            end
+        end
+    end
+
+    def test_ppd_1
+
+        dotest(
+            TestDefinition1,
+            """
+toto:nada
+ftoto:_nada__321
+            """.strip,
+            true)
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestDefinition2 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test2", :revision => "0" do
+                sequence do
+                    set :variable => "toto", :value => "nada"
+                    _if do
+                        equals :variable_value => "toto", :other_value => "nada"
+                        _print "toto:${toto}"
+                        _print "not ok"
+                    end
+                end
+            end
+        end
+    end
+
+    def test_ppd_2
+
+        dotest(
+            TestDefinition2,
+            "toto:nada")
+            #true)
+    end
+
+
+    #
+    # Test 3
+    #
+
+    class TestDefinition3 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test3", :revision => "0" do
+                sequence do
+                    subprocess :ref => "sub0", :var0 => "a"
+                    sub0 :var0 => "b"
+                end
+                process_definition :name => "sub0" do
+                    _print "var0 is '${var0}'"
+                end
+            end
+        end
+    end
+
+    def test_ppd_3
+
+        #puts
+        #puts TestDefinition3.do_make(ExpressionMap.new(nil, nil)).to_code_s
+        #puts
+        #puts TestDefinition3.do_make(ExpressionMap.new(nil, nil)).to_s
+
+        dotest TestDefinition3, "var0 is 'a'\nvar0 is 'b'"
+    end
+
+
+    #
+    # Test 4
+    #
+
+    class TestDefinition4 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test4", :revision => "0" do
+                sequence do
+                    sequence do
+                        _print "a"
+                    end
+                    sequence do
+                        _print "b"
+                    end
+                end
+            end
+        end
+    end
+
+    CODE4 = """
+process_definition :name => 'test4', :revision => '0' do
+    sequence do
+        sequence do
+            _print do
+                'a'
+            end
+        end
+        sequence do
+            _print do
+                'b'
+            end
+        end
+    end
+end
+    """.strip
+
+    def test_ppd_4
+
+        s = OpenWFE::ExpressionTree.to_code_s TestDefinition4.do_make
+
+        dotest(
+            TestDefinition4,
+            "a\nb")
+            #0.300)
+
+        assert_equal CODE4, s, "nested sequences test failed (4)"
+    end
+
+
+    #
+    # Test 5
+    #
+
+    class TestDefinition5 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test5", :revision => "0" do
+                sequence do
+                    sequence do
+                        _print { "a" }
+                    end
+                    sequence do
+                        _print { "b" }
+                    end
+                end
+            end
+        end
+    end
+
+    CODE5 = <<-EOS
+process_definition :name => 'test5', :revision => '0' do
+    sequence do
+        sequence do
+            _print do
+                'a'
+            end
+        end
+        sequence do
+            _print do
+                'b'
+            end
+        end
+    end
+end
+    EOS
+
+    def test_ppd_5
+
+        s = OpenWFE::ExpressionTree.to_code_s(TestDefinition5.do_make)
+
+        dotest TestDefinition5, "a\nb"
+
+        assert CODE5, s
+    end
+
+
+    #
+    # Test 6
+    #
+
+    class TestDefinition6 < OpenWFE::ProcessDefinition
+
+        def initialize (count)
+            super()
+            @count = count
+        end
+
+        def make
+            process_definition :name => "test6", :revision => "0" do
+                sequence do
+                    @count.times do |i|
+                        _print i
+                    end
+                end
+            end
+        end
+    end
+
+    def test_ppd_6
+
+        dotest(
+            TestDefinition6.new(3),
+            %w{ 0 1 2 }.join("\n"))
+    end
+
+
+    #
+    # Test 7
+    #
+
+    class TestDefinition7 < OpenWFE::ProcessDefinition
+        def make
+            _process_definition :name => "test7", :revision => "0" do
+                _sequence do
+                    _print "a"
+                    _print "b"
+                end
+            end
+        end
+    end
+
+    def test_ppd_7
+
+        dotest(
+            TestDefinition7,
+            %w{ a b }.join("\n"))
+    end
+
+
+    #
+    # Test 8
+    #
+
+    class TestDefinition8 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test8", :revision => "0" do
+                toto
+                process_definition :name => "toto" do
+                    _print "toto"
+                end
+            end
+        end
+    end
+
+    def test_ppd_8
+
+        dotest TestDefinition8, "toto"
+    end
+
+
+    #
+    # Test 9
+    #
+
+    class TestDefinition9 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test9", :revision => "0" do
+                _toto
+                process_definition :name => "toto" do
+                    _print "toto"
+                end
+            end
+        end
+    end
+
+    def test_ppd_9
+
+        dotest TestDefinition9, "toto"
+    end
+
+
+    #
+    # Test 10
+    #
+
+    class TestDefinition10 < OpenWFE::ProcessDefinition
+        def make
+            process_definition :name => "test10", :revision => "0" do
+                sequence do
+                    participant :ref => "toto_underscore"
+                    _toto_underscore
+                    toto_underscore
+                end
+            end
+        end
+    end
+
+    def test_ppd_10
+
+        @engine.register_participant(:toto_underscore) do |workitem|
+            @tracer << "toto\n"
+        end
+
+        dotest TestDefinition10, ([ 'toto' ] * 3).join("\n")
+    end
+
+
+    #
+    # Test 11
+    #
+
+    class TestDefinition11 < OpenWFE::ProcessDefinition
+        def make
+            sequence do
+                [ :b, :b, :b ].each do |p|
+                    participant p
+                end
+                participant "b"
+            end
+        end
+    end
+
+    def test_ppd_11
+
+        @engine.register_participant(:b) do |workitem|
+            @tracer << "b\n"
+        end
+
+        dotest TestDefinition11, ([ 'b' ] * 4).join("\n")
+    end
+
+    #
+    # Test 12
+    #
+
+    class TestDefinition12 < OpenWFE::ProcessDefinition
+        sequence do
+            _print "main"
+            sub_x
+        end
+        process_definition :name => "sub-x" do
+            _print "sub"
+        end
+    end
+
+    def test_prog_12
+
+        dotest TestDefinition12, "main\nsub"
+    end
+
+
+    #
+    # Test 13
+    #
+
+    class TestDefinition13 < OpenWFE::ProcessDefinition
+    end
+
+    def _test_prog_13
+
+        dotest TestDefinition13, ""
+    end
+
+end
+