openwferu 0.9.5 → 0.9.6

data/test/ft_15_iterator.rb

@@ -9,7 +9,6 @@
 
 require 'openwfe/expressions/raw_prog'
 require 'openwfe/participants/participants'
-require 'openwfe/participants/enoparticipant'
 require 'flowtestbase'
 
 

data/test/ft_19_csv.rb

@@ -7,7 +7,7 @@
 
 require 'flowtestbase'
 require 'openwfe/expressions/raw_prog'
-require 'openwfe/participants/csvparticipant'
+require 'openwfe/participants/csvparticipants'
 
 include OpenWFE
 

data/test/ft_20_cron.rb

@@ -7,7 +7,7 @@
 
 require 'flowtestbase'
 require 'openwfe/expressions/raw_prog'
-require 'openwfe/participants/csvparticipant'
+require 'openwfe/participants/csvparticipants'
 
 include OpenWFE
 

data/test/ft_21_cron.rb

@@ -7,7 +7,7 @@
 
 require 'flowtestbase'
 require 'openwfe/expressions/raw_prog'
-require 'openwfe/participants/csvparticipant'
+require 'openwfe/participants/csvparticipants'
 
 include OpenWFE
 

data/test/ft_27_getflowpos.rb

@@ -0,0 +1,89 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+require 'openwfe/worklist/storeparticipant'
+
+require 'flowtestbase'
+
+
+class FlowTest27 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            _process_definition :name => "27_gfp", :revision => "0" do
+                _sequence do
+                    store_p
+                end
+            end
+        end
+    end
+
+    #def xxxx_gfp_0
+    def test_gfp_0
+
+        #sp = @engine.register_participant("store_p", OpenWFE::YamlParticipant)
+        sp = @engine.register_participant("store_p", OpenWFE::HashParticipant)
+
+        fei = @engine.launch(TestDefinition0)
+
+        l = @engine.get_expression_pool.get_flow_position(fei.wfid)
+
+        #l.each do |fexp|
+        #    puts "   - #{fexp.fei.to_debug_s}"
+        #end
+
+        assert \
+            l.size == 3, 
+            "get_flow_position() returned #{l.size} elements"
+
+        wi = sp.first_workitem
+
+        sp.forward(wi)
+
+        assert sp.size == 0
+    end
+
+
+    #def xxxx_gfp_0b
+    def test_gfp_0b
+
+        sp = @engine.register_participant("store_p", OpenWFE::YamlParticipant)
+
+        fei = @engine.launch(TestDefinition0)
+
+        l = @engine.get_flow_position(fei.wfid)
+            #
+            # shortcut version
+
+        #l.each do |fexp|
+        #    puts "   - #{fexp.fei.to_debug_s}"
+        #end
+
+        assert l.size == 3
+
+        wi = sp.first_workitem
+
+        sp.forward(wi)
+
+        assert sp.size == 0
+    end
+
+end
+

data/test/ft_28_fileparticipant.rb

@@ -0,0 +1,65 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'find'
+require 'fileutils'
+
+require 'openwfe/def'
+require 'openwfe/listeners/listeners'
+require 'openwfe/participants/participants'
+
+require 'flowtestbase'
+
+
+class FlowTest28 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            _sequence do
+                _participant :fp
+                _print "done"
+            end
+        end
+    end
+
+    #def xxxx_fp_0
+    def test_fp_0
+
+        FileUtils.mkdir("./work/in") unless File.exist? "./work/in"
+
+        @engine.register_participant("fp", OpenWFE::FileParticipant)
+        @engine.add_workitem_listener(OpenWFE::FileListener, "500")
+
+        fei = @engine.launch(TestDefinition0)
+
+        sleep 0.1
+
+        Find.find("./work/out/") do |path|
+            next unless path.match ".*\.yaml$"
+            FileUtils.mv(path, "./work/in/")
+        end
+
+        sleep 0.7
+
+        assert_equal \
+            engine.get_expression_storage.size, 1
+    end
+
+end
+

data/test/ft_29_httprb.rb

@@ -0,0 +1,95 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+require 'openwfe/workitem'
+require 'openwfe/worklist/storeparticipant'
+
+require 'flowtestbase'
+
+
+class FlowTest29 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    DEFHOST = "http://openwferu.rubyforge.org/defs"
+
+    #
+    # TEST 0
+
+    #def xxxx_httprb_0
+    def test_httprb_0
+
+        li = OpenWFE::LaunchItem.new
+        li.wfdurl = "#{DEFHOST}/testdef.rb"
+
+        dotest(
+            li, 
+            """a
+b
+c""")
+    end
+
+
+    #
+    # TEST 1
+
+    class MainDefinition1 < OpenWFE::ProcessDefinition
+        def make
+            sequence do
+                _print "A"
+                subprocess :ref => "#{DEFHOST}/testdef.rb"
+                _print "C"
+            end
+        end
+    end
+
+    #def xxxx_httprb_1
+    def test_httprb_1
+        dotest(
+            MainDefinition1, 
+            """A
+a
+b
+c
+C""")
+    end
+
+
+    #
+    # TEST 2
+
+    class MainDefinition2 < OpenWFE::ProcessDefinition
+        def make
+            sequence do
+                _print "-1"
+                subprocess :ref => "#{DEFHOST}/testdef.xml"
+                _print "3"
+            end
+        end
+    end
+
+    #def xxxx_httprb_2
+    def test_httprb_2
+        dotest(
+            MainDefinition2, 
+            """-1
+0
+1
+2
+3""")
+    end
+
+end
+

data/test/ft_30_socketlistener.rb

@@ -0,0 +1,197 @@
+
+#
+# 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
+        def make
+            _print "${f:message}"
+        end
+    end
+
+    #def xxxx_sl_0
+    def test_sl_0
+
+        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.$")
+
+        trace = @tracer.to_s
+
+        assert_equal trace, "ok"
+    end
+
+
+    #
+    # TEST 1
+
+    #def xxxx_sl_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.close_write
+
+        reply = socket.gets
+        socket.close
+
+        #puts ">>>#{reply}<<<"
+        assert (reply.match "^.fei .*0.$")
+
+        trace = @tracer.to_s
+
+        assert_equal trace, "ok1"
+    end
+
+
+    #
+    # TEST 2
+
+    #def xxxx_sl_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.close_write
+
+        reply = socket.gets
+        socket.close
+
+        #puts ">>>#{reply}<<<"
+        assert (reply.match "^.fei .*0.$")
+
+        trace = @tracer.to_s
+
+        assert_equal trace, "ok2"
+    end
+
+
+    #
+    # TEST 3
+
+    #def xxxx_sl_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
+
+        assert_equal @tracer.to_s, trace
+    end
+
+    def send_li (li)
+
+        socket = TCPSocket.new("localhost", 7007)
+
+        socket.puts(YAML.dump(li))
+        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
+