ruote 0.9.18

data/test/ft_2b_concurrence.rb

@@ -0,0 +1,188 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest2b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    def prepare
+        [ "alpha", "bravo", "charly" ].each do |name|
+
+            @engine.register_participant(name) do |workitem|
+
+                workitem.attributes[name] = true
+                workitem.attributes["key"] = name
+            end
+        end
+
+        #@engine.register_participant("display_workitem") do |workitem|
+        #    puts
+        #    puts
+        #end
+    end
+
+    #
+    # TEST 0
+
+    def test_con_0
+
+        prepare()
+
+        dotest(
+            '''
+<process-definition name="2b_con" revision="0">
+    <sequence>
+        <concurrence
+            merge="lowest"
+            merge-type="mix"
+        >
+            <participant ref="alpha" />
+            <participant ref="bravo" />
+            <participant ref="charly" />
+        </concurrence>
+        <!--
+        <print>${r:workitem.to_s}</print>
+        <reval>puts "---r:" + workitem.key.to_s</reval>
+        -->
+        <print>${f:key}</print>
+    </sequence>
+</process-definition>''', 
+            "charly")
+    end
+
+    #
+    # TEST 1
+
+    class TestDefinition1 < OpenWFE::ProcessDefinition
+
+        def initialize (merge, merge_type)
+            super()
+            @merge = merge
+            @merge_type = merge_type
+        end
+
+        def make
+            _process_definition :name => "2b_con", :revision => "1" do
+                _sequence do
+                    _concurrence :merge => @merge, :merge_type => @merge_type do
+                        [ "alpha", "bravo", "charly" ].each do |pname|
+                            _participant pname
+                        end
+                    end
+                    #_reval "puts workitem.to_s"
+                    #_reval "puts '${f:key}|${f:alpha}|${f:bravo}|${f:charly}'"
+                    _print "${f:key}\n${f:alpha}\n${f:bravo}\n${f:charly}"
+                end
+            end
+        end
+    end
+
+    def test_con_1
+
+        #log_level_to_debug
+
+        prepare
+
+        dotest(
+            TestDefinition1.new("lowest", "mix"), 
+            %w{ charly true true true }.join("\n"))
+    end
+
+    def test_con_1b
+
+        prepare
+
+        dotest(
+            TestDefinition1.new("highest", "mix"), 
+            %w{ alpha true true true }.join("\n"))
+    end
+
+    def test_con_1c
+
+        prepare
+
+        dotest(
+            TestDefinition1.new("lowest", "override"), 
+            [ 'charly', '', '', 'true' ].join("\n"))
+    end
+
+    def test_con_1d
+
+        prepare
+
+        dotest(
+            TestDefinition1.new("highest", "override"), 
+            %w{ alpha true }.join("\n"))
+    end
+
+    def test_rawprog
+
+        #puts TestDefinition1.new("lowest", "mix").make.to_s
+
+        assert_equal(
+            "<process-definition name='2b_con' revision='1'>"+
+            "<sequence>"+
+            "<concurrence merge='lowest' merge-type='mix'>"+
+            "<participant>"+
+            "alpha"+
+            "</participant>"+
+            "<participant>"+
+            "bravo"+
+            "</participant>"+
+            "<participant>"+
+            "charly"+
+            "</participant>"+
+            "</concurrence>"+
+            "<print>"+
+            "${f:key}\n${f:alpha}\n${f:bravo}\n${f:charly}"+
+            "</print>"+
+            "</sequence>"+
+            "</process-definition>", 
+            OpenWFE::ExpressionTree.to_s(
+                TestDefinition1.new("lowest", "mix").make))
+    end
+
+
+    #
+    # TEST 2
+
+    class Isolate01 < OpenWFE::ProcessDefinition
+        N = 3
+        sequence do
+            #concurrence :merge_type => :isolate do
+            concurrence :merge_type => "isolate" do
+                N.times do |x|
+                    set :field => "f", :value => "#{x}"
+                end
+            end
+            #pp_workitem
+            N.times do |x|
+                _print "${r:wi.attributes['#{x}']['f']}"
+            end
+        end
+    end
+
+    def test_2
+
+        dotest Isolate01, "0\n1\n2"
+    end
+
+end
+

data/test/ft_2c_concurrence.rb

@@ -0,0 +1,64 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest2c < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #def xxxx_con_0
+    def test_con_0
+        dotest(
+            '''<process-definition name="con" revision="0">
+    <concurrence>
+        <print>a</print>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', 
+            [ '''a
+b''', 
+              '''b
+a''' 
+            ])
+    end
+
+
+    #
+    # TEST 1
+
+    class TestCon2c1 < OpenWFE::ProcessDefinition
+        sequence do
+            concurrence :count => "1", :remaining => "forget" do
+                _print "a"
+                sequence do
+                    _sleep "500"
+                    _print "b"
+                end
+            end
+            _print "c"
+        end
+    end
+
+    def test_con_1
+        dotest(
+            TestCon2c1, 
+            "a\nc\nb",
+            2)
+    end
+
+end
+

data/test/ft_30_socketlistener.rb

@@ -0,0 +1,203 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'yaml'
+require 'socket'
+
+require 'openwfe/def'
+require 'openwfe/listeners/socketlisteners'
+require 'openwfe/participants/socketparticipants'
+
+require 'flowtestbase'
+
+
+class FlowTest30 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < ProcessDefinition
+        _print "${f:message}"
+    end
+
+    def test_0
+
+        log_level_to_debug
+
+        sl = OpenWFE::SocketListener.new(
+            "socket_listener", @engine.application_context, 7008)
+
+        @engine.add_workitem_listener(sl)
+
+        li = LaunchItem.new(TestDefinition0.do_make)
+        li.message = "ok"
+        s = YAML.dump(li)
+
+        socket = TCPSocket.new("localhost", 7008)
+        socket.puts(s)
+        socket.close_write
+
+        reply = socket.gets
+        socket.close
+
+        #puts ">>>#{reply}<<<"
+        assert (reply.match "^.fei .*0.$")
+
+        sleep 0.200
+
+        trace = @tracer.to_s
+
+        assert_equal trace, "ok"
+    end
+
+
+    #
+    # TEST 1
+
+    def test_sl_1
+
+        @engine.add_workitem_listener(OpenWFE::SocketListener)
+
+        li = LaunchItem.new(TestDefinition0.do_make)
+        li.message = "ok1"
+        s = YAML.dump(li)
+
+        socket = TCPSocket.new("localhost", 7007)
+        socket.puts(s)
+        socket.puts
+        socket.close_write
+
+        reply = socket.gets
+        socket.close
+
+        #puts ">>>#{reply}<<<"
+        assert (reply.match "^.fei .*0.$")
+
+        sleep 0.100
+
+        trace = @tracer.to_s
+
+        assert_equal trace, "ok1"
+    end
+
+
+    #
+    # TEST 2
+
+    def test_sl_2
+
+        @engine.add_workitem_listener(OpenWFE::SocketListener)
+
+        li = LaunchItem.new(TestDefinition0.do_make)
+        li.message = "ok2"
+        s = YAML.dump(li)
+
+        socket = TCPSocket.new("localhost", 7007)
+        socket.puts("XmlEncoder 777")
+        socket.puts
+        socket.puts(s)
+        socket.puts
+        socket.close_write
+
+        assert (not socket.closed?)
+
+        sleep 0.100
+
+        reply = socket.gets
+        socket.close
+
+        #puts ">>>#{reply}<<<"
+        assert_not_nil reply.match("^.fei .*0.$")
+
+        sleep 0.100
+
+        trace = @tracer.to_s
+
+        assert_equal trace, "ok2"
+    end
+
+
+    #
+    # TEST 3
+
+    def test_sl_3
+
+        @engine.add_workitem_listener(OpenWFE::SocketListener)
+
+        li = LaunchItem.new(TestDefinition0.do_make)
+
+        trace = ""
+
+        1.upto(4) do |i|
+            trace << "#{i}\n"
+            li.message = i
+            send_li(li)
+        end
+        1.upto(3) do |i|
+            trace << "#{i}\n"
+            li.message = i
+            send_li_sp(li)
+        end
+        1.upto(3) do |i|
+            trace << "#{i}\n"
+            li.message = i
+            send_li_xsp(li)
+        end
+        1.upto(3) do |i|
+            trace << "#{i}\n"
+            li.message = i
+            send_li_ssp(li)
+        end
+        1.upto(3) do |i|
+            trace << "#{i}\n"
+            li.message = i
+            send_li_sxsp(li)
+        end
+
+        trace = trace.strip
+
+        sleep 0.300
+
+        assert_equal @tracer.to_s, trace
+    end
+
+    def send_li (li)
+        socket = TCPSocket.new("localhost", 7007)
+        socket.puts(YAML.dump(li))
+        socket.puts
+        socket.close_write
+        reply = socket.gets
+        socket.close
+    end
+    def send_li_sp (li)
+        sp = OpenWFE::SocketParticipant.new("localhost", 7007)
+        sp.consume(li)
+    end
+    def send_li_xsp (li)
+        sp = OpenWFE::XmlSocketParticipant.new("localhost", 7007)
+        sp.consume(li)
+    end
+
+    def send_li_ssp (li)
+        OpenWFE::SocketParticipant.dispatch("localhost", 7007, li)
+    end
+
+    def send_li_sxsp (li)
+        OpenWFE::XmlSocketParticipant.dispatch("localhost", 7007, li)
+    end
+end
+