ruote 0.9.19 → 0.9.20

data/test/ft_50_xml_attribute.rb

@@ -1,152 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-# Pat at geobliki.com
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-require 'openwfe/orest/xmlcodec'
-require 'rutest_utils'
-
-
-class FlowTest50 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # A Test by Pat Cappelaere
-  #
-
-  PAT_XML = <<END
-<?xml version="1.0" encoding="UTF-8"?>
-<sps:GetFeasibilityRequestResponse xmlns:gml="http://www.opengis.net/gml"
-xmlns:sps="http://www.opengis.net/sps" xmlns="">
-  <sps:Feasibility status="feasible" id="106">
-  <DOY>106</DOY>
-  <UTC>2007-04-16 09:20:00</UTC>
-  <SZA>27.41</SZA>
-  <TYPE>NADIR</TYPE>
-  <PATH>52</PATH>
-  <ROW>186</ROW>
-  <COST>2600.85</COST>
-  <![CDATA[
-    <blah/>boum
-  ]]>
-  <sps:LatestResponseTime>
-    <gml:TimeInstant>
-    <gml:timePosition>2007-04-16T09:20:00Z</gml:timePosition>
-    </gml:TimeInstant>
-  </sps:LatestResponseTime>
-  </sps:Feasibility>
-</sps:GetFeasibilityRequestResponse>
-END
-
-  class TestXmlAttribute50a0 < OpenWFE::ProcessDefinition
-    sequence do
-      geo_0
-      geo_1
-    end
-  end
-
-  def test_0
-
-    doc0 = nil
-    doc1 = nil
-
-    @engine.register_participant :geo_0 do |fei, workitem|
-      doc0 = REXML::Document.new(PAT_XML)
-      workitem.attributes['xml'] = doc0
-      @tracer << "0\n"
-    end
-
-    @engine.register_participant :geo_1 do |fei, workitem|
-      doc1 = workitem.attributes['xml']
-      @tracer << "1\n"
-    end
-
-    dotest(TestXmlAttribute50a0, "0\n1")
-
-    assert_equal doc0.to_s, doc1.to_s
-  end
-
-  #def test_1 # moved to test/clone_test.rb
-  #  doc0 = REXML::Document.new PAT_XML
-  #  doc1 = OpenWFE::fulldup(doc0)
-  #  assert_not_equal doc0.object_id, doc1.object_id
-  #  assert_equal doc0.to_s, doc1.to_s
-  #end
-
-  #
-  # Against bug #10150
-  #
-  #def test_2
-  #  workitem = OpenWFE::InFlowWorkItem.new
-  #  workitem.fei = new_fei
-  #  workitem.result = REXML::Document.new PAT_XML
-  #  s = OpenWFE::XmlCodec::encode workitem
-  #  #puts s
-  #  w = OpenWFE::XmlCodec::decode s
-  #  w.attributes.delete '___map_type'
-  #  #puts workitem.to_s
-  #  #puts
-  #  #puts w.to_s
-  #  assert_equal workitem.to_s, w.to_s
-  #end
-
-  def test_3
-
-    workitem = OpenWFE::InFlowWorkItem.new
-    workitem.fei = new_fei
-
-    workitem.result = REXML::Document.new(
-      PAT_XML, :compress_whitespace=>:all, :ignore_whitespace_nodes=>:all)
-
-    workitem.result = workitem.result.root
-
-    s = OpenWFE::XmlCodec::encode workitem
-
-    #puts s
-
-    w = OpenWFE::XmlCodec::decode s
-    w.attributes.delete '___map_type'
-
-    workitem.attributes.delete '___map_type'
-
-    #puts workitem.to_s
-    #puts
-    #puts w.to_s
-
-    assert_equal workitem.to_s, w.to_s
-  end
-
-   def test_4
-
-    doc0 = nil
-    doc1 = nil
-
-    @engine.register_participant :geo_0 do |fei, workitem|
-      doc0 = REXML::Document.new(PAT_XML).root
-      workitem.attributes['xml'] = doc0
-      @tracer << "0\n"
-    end
-
-    @engine.register_participant :geo_1 do |fei, workitem|
-      doc1 = workitem.attributes['xml']
-      @tracer << "1\n"
-    end
-
-    dotest(TestXmlAttribute50a0, "0\n1")
-
-    assert_equal doc0.to_s, doc1.to_s
-   end
-
-end
-

data/test/ft_51_stack.rb

@@ -1,55 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest51 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  #COUNT = 400 :)
-  #COUNT = 500 :(
-  COUNT = 450
-    #
-    # before svn639, it broke with a too deep stack with a sequence
-    # of 450 elements
-
-  class TestCondition51a0 < OpenWFE::ProcessDefinition
-    sequence do
-      COUNT.times do
-        toto
-      end
-      _print "${f:__result__}"
-    end
-  end
-
-  def test_0
-
-    count = 0
-
-    @engine.register_participant :toto do |workitem|
-      count += 1
-      workitem.__result__ = count
-    end
-
-    dotest(TestCondition51a0, "#{COUNT}")
-  end
-
-end
-

data/test/ft_52_obs_participant.rb

@@ -1,123 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest52 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class TestObsParticipant52a0 < OpenWFE::ProcessDefinition
-    participant :ref => :toto
-  end
-
-  def test_0
-
-    @engine.get_expression_pool.add_observer :apply do |evt, fe, workitem|
-      @tracer << "#{evt} #{fe.fei.expression_name}\n" \
-        if fe.fei.expression_name == "participant"
-    end
-    @engine.get_expression_pool.add_observer :reply_to_parent do |evt, fe, workitem|
-      @tracer << "#{evt} #{fe.fei.expression_name}\n" \
-        if fe.fei.expression_name == "participant"
-    end
-
-    @engine.register_participant :toto do |workitem|
-      @tracer << "toto\n"
-    end
-
-    dotest(
-      TestObsParticipant52a0,
-      """
-apply participant
-toto
-reply_to_parent participant
-      """.strip)
-  end
-
-
-  #
-  # Test 1
-  #
-
-  class TestObsParticipant52a1 < OpenWFE::ProcessDefinition
-    sequence do
-      toto
-      sub0
-    end
-    process_definition :name => "sub0" do
-    end
-  end
-
-  def test_1
-    @engine.get_expression_pool.add_observer :apply do |evt, fe, workitem|
-      @tracer << "#{evt} #{fe.fei.expression_name}\n"
-    end
-    @engine.register_participant :toto do
-      #nothing
-    end
-    dotest(
-      TestObsParticipant52a1,
-      """
-apply process-definition
-apply sequence
-apply toto
-apply sub0
-apply process-definition
-      """.strip)
-  end
-
-
-  #
-  # Test 2
-  #
-
-  class TestObsParticipant52a2 < OpenWFE::ProcessDefinition
-    sequence do
-      alpha
-      bravo
-    end
-  end
-
-  def test_2
-
-    @engine.get_participant_map.add_observer :dispatch do |evt, msg, wi|
-      @tracer << "#{evt} #{msg} #{wi.fei.expression_name}\n"
-    end
-
-    @engine.register_participant :alpha do |workitem|
-      @tracer << "alpha\n"
-    end
-    @engine.register_participant :bravo do |workitem|
-      @tracer << "bravo\n"
-    end
-
-    dotest(
-      TestObsParticipant52a2,
-      """
-dispatch before_consume alpha
-alpha
-dispatch after_consume alpha
-dispatch before_consume bravo
-bravo
-dispatch after_consume bravo
-      """.strip)
-  end
-
-end
-

data/test/ft_53_null_noop_participant.rb

@@ -1,62 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-require 'openwfe/participants/participants'
-
-
-class FlowTest53 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    sequence do
-      _print "a"
-      participant :ref => :null, :timeout => "1s"
-      _print "b"
-    end
-  end
-
-  def test_0
-
-    @engine.register_participant :null, OpenWFE::NullParticipant
-
-    dotest Test0, "a\nb"
-  end
-
-
-  #
-  # Test 1
-  #
-
-  class Test1 < OpenWFE::ProcessDefinition
-    sequence do
-      _print "a"
-      participant :ref => :noop
-      _print "b"
-    end
-  end
-
-  def test_1
-
-    @engine.register_participant :noop, OpenWFE::NoOperationParticipant
-
-    dotest Test1, "a\nb"
-  end
-
-end
-

data/test/ft_54_listen.rb

@@ -1,288 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-require 'openwfe/participants/participants'
-
-
-class FlowTest54 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    concurrence do
-
-      listen :to => "^channel_.$" do
-        _print "ok"
-      end
-
-      sequence do
-
-        _sleep "500"
-          #
-          # just making sure that the participant is evaluated
-          # after the listen [registration]
-
-        participant :ref => "channel_z"
-      end
-    end
-  end
-
-  def test_0
-
-    @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
-
-    dotest Test0, "ok"
-  end
-
-
-  #
-  # Test 1
-  #
-
-  class Test1 < OpenWFE::ProcessDefinition
-    concurrence do
-
-      listen :to => "^channel_.$", :where => "${f:f0} == alpha" do
-        _print "alpha"
-      end
-
-      sequence do
-
-        _sleep "500"
-          #
-          # just making sure that the participant is evaluated
-          # after the listen [registration]
-
-        participant :ref => "channel_z"
-        set :field => "f0", :value => "alpha"
-        participant :ref => "channel_z"
-      end
-    end
-  end
-
-  def test_1
-
-    log_level_to_debug
-
-    @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
-
-    dotest Test1, "alpha"
-  end
-
-
-  #
-  # Test 2
-  #
-
-  class Test2 < OpenWFE::ProcessDefinition
-    concurrence do
-
-      listen :to => "^channel_.$" do
-        #
-        # upon apply by default
-
-        _print "apply"
-      end
-      listen :to => "^channel_.$", :upon => "reply" do
-        _print "reply"
-      end
-
-      sequence do
-
-        _sleep "500"
-
-        participant :ref => "channel_z"
-
-        participant :ref => "channel_z"
-          #
-          # listeners are 'once' by default, check that
-      end
-    end
-  end
-
-  def test_2
-
-    @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
-
-    dotest Test2, [ "apply\nreply", "reply\napply" ]
-  end
-
-
-  #
-  # Test 3 (moved to ft_54c_listen.rb)
-  #
-
-
-  #
-  # Test 4
-  #
-
-  class Test4 < OpenWFE::ProcessDefinition
-    concurrence do
-
-      #listen :to => "^channel_.$", :rwhere => "self.fei.wfid == '${r:workitem.fei.wfid}'" do
-      listen :to => "^channel_.$", :where => "${r:fei.wfid} == ${r:workitem.fei.wfid}" do
-        _print "ok"
-      end
-
-      sequence do
-        _sleep "500"
-        participant :ref => "channel_z"
-      end
-    end
-  end
-
-  def test_4
-
-    log_level_to_debug
-
-    @engine.register_participant :channel_z do
-      @tracer << "z\n"
-    end
-
-    dotest Test4, "z\nok"
-  end
-
-
-  #
-  # Test 5
-  #
-
-  class Test5 < OpenWFE::ProcessDefinition
-    concurrence do
-
-      #listen :to => :channel_z do
-      receive :on => :channel_z do
-        _print "ok"
-      end
-
-      sequence do
-        _sleep "500"
-        channel_zz
-        channel_z
-      end
-    end
-  end
-
-  def test_5
-
-    @engine.register_participant :channel_z do
-      @tracer << "z\n"
-    end
-    @engine.register_participant :channel_zz do
-      @tracer << "zz\n"
-    end
-
-    dotest Test5, "zz\nok\nz"
-  end
-
-
-  #
-  # Test 6 : merge => false (default)
-  #
-
-  class Test6 < OpenWFE::ProcessDefinition
-    concurrence do
-
-      sequence do
-
-        set :field => "truck", :value => "v_truck_0"
-        set :field => "car", :value => "v_car_0"
-
-        listen :to => "^channel_.$" do
-          sequence do
-            _print "${f:truck}"
-            _print "${f:ferryboat}"
-            _print "${f:car}"
-          end
-        end
-      end
-
-      sequence do
-
-        _sleep "500"
-          #
-          # just making sure that the participant is evaluated
-          # after the listen [registration]
-
-        set :field => "truck", :value => "v_truck_1"
-        set :field => "ferryboat", :value => "v_ferryboat_1"
-
-        participant :ref => "channel_z"
-      end
-    end
-  end
-
-  def test_6
-
-    log_level_to_debug
-
-    @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
-
-    dotest Test6, "v_truck_1\nv_ferryboat_1"
-  end
-
-
-  #
-  # Test 6b : merge => true
-  #
-
-  class Test6b < OpenWFE::ProcessDefinition
-    concurrence do
-
-      sequence do
-
-        set :field => "truck", :value => "v_truck_0"
-        set :field => "car", :value => "v_car_0"
-
-        listen :to => "^channel_.$", :merge => true do
-          sequence do
-            _print "${f:truck}"
-            _print "${f:ferryboat}"
-            _print "${f:car}"
-          end
-        end
-      end
-
-      sequence do
-
-        _sleep "500"
-          #
-          # just making sure that the participant is evaluated
-          # after the listen [registration]
-
-        set :field => "truck", :value => "v_truck_1"
-        set :field => "ferryboat", :value => "v_ferryboat_1"
-
-        participant :ref => "channel_z"
-      end
-    end
-  end
-
-  def test_6b
-
-    log_level_to_debug
-
-    @engine.register_participant :channel_z, OpenWFE::NoOperationParticipant
-
-    dotest Test6b, "v_truck_1\nv_ferryboat_1\nv_car_0"
-  end
-
-end
-