ruote 0.9.19 → 0.9.20

data/test/ft_2b_concurrence.rb

@@ -1,188 +0,0 @@
-
-#
-# 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

@@ -1,64 +0,0 @@
-
-#
-# 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

@@ -1,203 +0,0 @@
-
-#
-# 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
-