ruote 0.9.19 → 0.9.20

data/test/ft_54b_listen.rb

@@ -1,66 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-require 'openwfe/participants/participants'
-
-
-class FlowTest54b < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    sequence do
-      listen :to => "^channel_.$", :upon => :reply
-      _print "ok"
-    end
-  end
-
-  def test_0
-
-    #log_level_to_debug
-
-    launch Test0
-
-    sleep 0.350
-
-    assert_equal @tracer.to_s, ""
-
-    wi = OpenWFE::InFlowWorkItem.new
-    wi.participant_name = "channel_z"
-
-    r = @engine.reply wi
-    assert r
-
-    sleep 0.350
-
-    #
-    # "post test", checking that engine replies 'false' when
-    # nobody consumed the message
-
-    assert_equal @tracer.to_s, "ok"
-
-    wi = OpenWFE::InFlowWorkItem.new
-    wi.participant_name = "channel_unknown"
-
-    r = @engine.reply wi
-    assert (not r)
-  end
-
-end
-

data/test/ft_54c_listen.rb

@@ -1,99 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-require 'openwfe/participants/participants'
-
-
-class FlowTest54c < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    concurrence do
-
-      listen :to => "^channel_.$", :once => false do
-        _print "apply"
-      end
-
-      sequence do
-        _sleep "300"
-        participant :ref => "channel_z"
-        channel_z
-      end
-    end
-  end
-
-  def test_0
-
-    @engine.register_participant :channel_z do
-      @tracer << "z\n"
-    end
-
-    #log_level_to_debug
-
-    outputs = [
-      %w{ z apply z apply }.join("\n"),
-      %w{ z z apply apply }.join("\n")
-    ]
-
-    dotest Test0, outputs, 0.850, true
-  end
-
-  #
-  # Test 1
-  #
-
-  class Test1 < OpenWFE::ProcessDefinition
-    concurrence do
-      listen :to => "channel9", :once => false do
-        listen9
-      end
-      sequence do
-        _sleep "300"
-        channel9
-      end
-    end
-  end
-
-  def test_1
-
-    #log_level_to_debug
-
-    @engine.register_participant "channel9", OpenWFE::NullParticipant
-    @engine.register_participant "listen9", OpenWFE::NullParticipant
-
-    fei = launch Test1
-
-    sleep 0.700
-
-    #puts @engine.get_expression_storage
-    assert_equal 8, @engine.get_expression_storage.size
-
-    #puts @engine.get_expression_storage
-
-    @engine.cancel_process fei
-
-    sleep 0.700
-
-    #puts @engine.get_expression_storage
-    assert_equal 1, @engine.get_expression_storage.size
-  end
-
-end
-

data/test/ft_55_ptimeout.rb

@@ -1,58 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'pending'
-require 'openwfe/def'
-
-
-class FlowTest55 < Test::Unit::TestCase
-  include FlowTestBase
-  include PendingJobsMixin
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    concurrence :count => 1 do
-      sequence do
-        participant :ref => "channel_z", :timeout => "1s"
-        _print "cancelled?"
-      end
-      _print "concurrence done"
-    end
-  end
-
-  def test_0
-
-    #scheduler = @engine.get_scheduler
-    #log_level_to_debug
-
-    @engine.register_participant :channel_z, OpenWFE::NullParticipant
-
-    #p scheduler.at_job_count
-    assert_no_jobs_left
-
-    dotest Test0, "concurrence done"
-
-    sleep 0.350 # give some time for the timeout unschedule
-
-    #p scheduler.at_job_count
-    #p scheduler.instance_variable_get(:@non_cron_jobs)
-    assert_no_jobs_left
-  end
-
-end
-

data/test/ft_56_timeout.rb

@@ -1,59 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'pending'
-require 'openwfe/def'
-
-
-class FlowTest56 < Test::Unit::TestCase
-  include FlowTestBase
-  include PendingJobsMixin
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    sequence do
-      _timeout :after => "1s" do
-        sequence do
-          _print "ok"
-          _sleep "2s"
-          _print "not ok"
-        end
-      end
-      _print "done"
-    end
-  end
-
-  def test_0
-
-    assert_no_jobs_left
-
-    dotest Test0, "ok\ndone"
-
-    sleep 0.350 # skip one scheduler beat
-
-    #s = @engine.get_scheduler
-    #class << s
-    #  attr_reader :pending_jobs
-    #end
-    #p s.pending_jobs.collect { |j| [ j.job_id, j.class.name ] }
-
-    assert_no_jobs_left
-  end
-
-end
-

data/test/ft_57_a.rb

@@ -1,148 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'pending'
-require 'openwfe/def'
-
-
-class FlowTest57 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    sequence do
-      _set :field => "list" do
-        _a """
-          <array>
-            <string>a</string>
-            <string>b</string>
-            <string>c</string>
-            <null/>
-            <true/>
-          </array>
-        """
-      end
-      _print "${r:wi.list.join('|')}"
-      _print "-"
-      _set :field => "list" do
-        _attribute """
----
-- a
-- b
-- 3
-        """
-      end
-      _print "${r:wi.list.join('|')}"
-    end
-  end
-
-  def test_0
-
-    dotest(
-      Test0,
-      """
-a|b|c||true
--
-a|b|3
-      """.strip)
-  end
-
-  def test_1
-
-    dotest(
-      """
-<process-definition name='57_b' revision='1'>
-  <sequence>
-    <set field='list'>
-      <a>
----
-- c
-- d
-- e
-      </a>
-    </set>
-    <print>${r:wi.list.join('|')}</print>
-  </sequence>
-</process-definition>
-      """,
-      "c|d|e")
-  end
-
-  def test_2
-
-    dotest(
-      """
-<process-definition name='57_c' revision='2'>
-  <sequence>
-    <set field='list'>
-      <a>
-      <array>
-        <string>a</string>
-        <number>2</number>
-        <string>c</string>
-        <false/>
-      </array>
-      </a>
-    </set>
-    <print>${r:wi.list.join('|').strip}</print>
-  </sequence>
-</process-definition>
-      """,
-      "a|2|c|false")
-  end
-
-  #
-  # Test 3
-  #
-
-  class Test3 < OpenWFE::ProcessDefinition
-    sequence do
-      _set :field => "other" do
-        reval { "77" }
-      end
-      _print "${f:other}"
-    end
-  end
-
-  def test_3
-
-    dotest Test3, "77"
-  end
-
-  #
-  # Test 4
-  #
-
-  class Test4 < OpenWFE::ProcessDefinition
-    sequence do
-      set :v => "v0", :val => "ToTo"
-      set :field => "other" do
-        a '[1,2,3,false,"toto","${v0}"]'
-      end
-      _print "${f:other}"
-    end
-  end
-
-  def test_4
-
-    require 'json'
-
-    dotest Test4, "123falsetotoToTo"
-  end
-end
-

data/test/ft_58_ejournal.rb

@@ -1,154 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Fri Jun 29 23:12:53 JST 2007
-#
-
-require 'rubygems'
-
-require 'openwfe/def'
-
-require 'flowtestbase'
-
-require 'openwfe/engine/file_persisted_engine'
-require 'openwfe/expool/errorjournal'
-
-
-
-class FlowTest58 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def teardown
-  #end
-
-  #def setup
-  #end
-
-
-  #
-  # TEST 0
-
-  class Test0 < OpenWFE::ProcessDefinition
-    sequence do
-      participant :alpha
-      participant :nada
-      participant :bravo
-    end
-  end
-
-  def test_0
-
-    ejournal = @engine.get_error_journal
-
-    @engine.register_participant(:alpha) do |wi|
-      @tracer << "alpha\n"
-    end
-
-    li = OpenWFE::LaunchItem.new Test0
-    fei = launch li
-
-    sleep 0.300
-
-    assert File.exist?("work/ejournal/#{fei.parent_wfid}.ejournal") \
-      if @engine.is_a?(OpenWFE::FilePersistedEngine)
-
-    errors = ejournal.get_error_log fei
-
-    #require 'pp'; pp ejournal
-    #puts "/// error journal of class #{ejournal.class.name}"
-
-    assert_equal 1, errors.length
-
-    assert ejournal.has_errors?(fei)
-    assert ejournal.has_errors?(fei.wfid)
-
-    assert_equal 1, ejournal.get_error_logs.size
-    assert_equal fei.wfid, ejournal.get_error_logs.keys.first
-
-    # OK, let's fix the root and replay
-
-    @engine.register_participant(:nada) do |wi|
-      @tracer << "nada\n"
-    end
-    @engine.register_participant(:bravo) do |wi|
-      @tracer << "bravo\n"
-    end
-
-    # fix done
-
-    assert_equal "alpha", @tracer.to_s
-
-    @engine.replay_at_error errors.first
-
-    sleep 0.300
-
-    assert_equal "alpha\nnada\nbravo", @tracer.to_s
-
-    errors = ejournal.get_error_log fei
-
-    assert_equal 0, errors.length
-
-    assert ( ! ejournal.has_errors?(fei))
-  end
-
-  #
-  # TEST 1
-
-  # Testing that the changes to the workitem are taken into account
-
-  class Test1 < OpenWFE::ProcessDefinition
-    sequence do
-      participant :nada
-      _print "it's ${f:weather}"
-    end
-  end
-
-  def test_1
-
-    ejournal = @engine.get_error_journal
-
-    li = OpenWFE::LaunchItem.new Test1
-    li.weather = "sunny"
-
-    fei = launch li
-
-    sleep 0.300
-
-    errors = ejournal.get_error_log fei
-
-    #require 'pp'; pp ejournal
-    #puts "/// error journal of class #{ejournal.class.name}"
-
-    assert_equal 1, errors.length
-
-    assert ejournal.has_errors?(fei)
-    assert ejournal.has_errors?(fei.wfid)
-
-    #
-    # fix
-
-    @engine.register_participant :nada do
-      # do nothing
-    end
-
-    #
-    # replay
-
-    error = errors.first
-
-    assert_equal "sunny", error.workitem.weather
-
-    error.workitem.weather = "rainy"
-
-    @engine.replay_at_error error
-
-    sleep 0.300
-
-    assert_trace "it's rainy"
-  end
-
-end
-