ruote 0.9.19 → 0.9.20

data/test/ft_44b_restore.rb

@@ -1,212 +0,0 @@
-
-#
-# Testing OpenWFEru (Ruote)
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest44b < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class TestCase44b0 < OpenWFE::ProcessDefinition
-    sequence do
-      set :field => "f", :value => "v"
-      save :to_field => "saved"
-      #pp_workitem
-      _print "${f:saved.f}"
-      restore :from_field => "saved"
-      _print "${f:saved.f}"
-      _print "${f:f}"
-    end
-  end
-
-  def test_0
-
-    dotest TestCase44b0, "v\n\nv"
-  end
-
-
-  #
-  # Test 1
-  #
-
-  class TestCase44b1 < OpenWFE::ProcessDefinition
-    sequence do
-      set :field => "f", :value => "field_value"
-      save :to_variable => "v"
-      #pp_workitem
-      set :field => "f", :value => "field_value_x"
-      _print "${f:f}"
-      restore :from_variable => "v"
-      _print "${f:f}"
-    end
-  end
-
-  def test_1
-
-    dotest TestCase44b1, "field_value_x\nfield_value"
-  end
-
-
-  #
-  # Test 2
-  #
-
-  class TestCase44b2 < OpenWFE::ProcessDefinition
-    sequence do
-      set :field => "f", :value => "field_value"
-      save :to_variable => "v"
-      restore :from_variable => :v, :to_field => :f1
-      #pp_workitem
-      _print "${f:f1.f}"
-    end
-  end
-
-  def test_2
-
-    dotest TestCase44b2, "field_value"
-  end
-
-
-  #
-  # Test 3
-  #
-
-  class TestCase44b3 < OpenWFE::ProcessDefinition
-    sequence do
-      set :field => "f0", :value => "value_a"
-      save :to_variable => "v"
-      set :field => "f0", :value => "value_aa"
-      set :field => "f1", :value => "value_b"
-      restore :from_variable => :v, :merge_lead => :current
-      #pp_workitem
-      _print "${f:f0}"
-      _print "${f:f1}"
-    end
-  end
-
-  def test_3
-
-    dotest TestCase44b3, "value_aa\nvalue_b"
-  end
-
-
-  #
-  # Test 4
-  #
-
-  class TestCase44b4 < OpenWFE::ProcessDefinition
-    sequence do
-      set :field => "f0", :value => "value_a"
-      save :to_variable => "v"
-      set :field => "f0", :value => "value_aa"
-      set :field => "f1", :value => "value_b"
-      restore :from_variable => :v, :merge_lead => :restored
-      #pp_workitem
-      _print "${f:f0}"
-      _print "${f:f1}"
-    end
-  end
-
-  def test_4
-
-    dotest TestCase44b4, "value_a\nvalue_b"
-  end
-
-  # tests about set_fields...
-
-  #
-  # Test 5
-  #
-
-  class Test44b5 < OpenWFE::ProcessDefinition
-    sequence do
-      set_fields :value => {
-        "customer" => { "name" => "Zigue", "age" => 34 },
-        "approved" => false }
-      _print "${f:customer.name} (${f:customer.age}) ${f:approved}"
-      #pp_fields
-    end
-  end
-
-  def test_5
-
-    dotest Test44b5, "Zigue (34) false"
-  end
-
-  #
-  # Test 6
-  #
-
-  class Test44b6 < OpenWFE::ProcessDefinition
-    set_fields :value => {
-      "customer" => { "name" => "Zigue", "age" => 34 },
-      "approved" => false }
-    sequence do
-      _print "${f:customer.name} (${f:customer.age}) ${f:approved}"
-    end
-  end
-
-  def test_6
-
-    dotest Test44b6, "Zigue (34) false"
-  end
-
-  #
-  # Test 7
-  #
-
-  class Test44b7 < OpenWFE::ProcessDefinition
-    set_fields do
-      {
-        "customer" => { "name" => "Zigue", "age" => 34 },
-        "approved" => false
-      }
-    end
-    sequence do
-      _print "${f:customer.name} (${f:customer.age}) ${f:approved}"
-    end
-  end
-
-  def _test_7
-
-    dotest Test44b7, "Zigue (34) false"
-  end
-
-  #
-  # Test 8
-  #
-
-  class Test44b8 < OpenWFE::ProcessDefinition
-    set_fields :value => {
-      "customer" => { "name" => "Zigue", "age" => 34 },
-      "approved" => false }, :merge_lead => :current
-    sequence do
-      _print "${f:customer.name} (${f:customer.age}) ${f:approved}"
-    end
-  end
-
-  def test_8
-
-    li = OpenWFE::LaunchItem.new Test44b8
-    li.approved = true
-    dotest li, "Zigue (34) true"
-  end
-
-end
-

data/test/ft_45_citerator.rb

@@ -1,214 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest45 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class TestCase45a0 < OpenWFE::ProcessDefinition
-    sequence do
-      concurrent_iterator :on_value => "1, 2", :to_variable => "v" do
-        _print "${r:fei.expid} - ${v}"
-      end
-      _print "done."
-    end
-  end
-
-  def test_0
-    dotest(
-      TestCase45a0,
-      [ """
-0.0.0.0 - 1
-0.0.0.1 - 2
-done.
-        """.strip,
-        """
-0.0.0.1 - 2
-0.0.0.0 - 1
-done.
-        """.strip
-      ])
-  end
-
-
-  #
-  # Test 1
-  #
-
-  class TestCase45a1 < OpenWFE::ProcessDefinition
-    sequence do
-      concurrent_iterator :on_value => "1, 2", :to_field => "f" do
-        _print "${r:fei.expid} - ${f:f}"
-      end
-      _print "done."
-    end
-  end
-
-  def test_1
-    dotest(
-      TestCase45a1,
-      [ """
-0.0.0.0 - 1
-0.0.0.1 - 2
-done.
-        """.strip,
-        """
-0.0.0.1 - 2
-0.0.0.0 - 1
-done.
-        """.strip
-      ])
-  end
-
-  #
-  # Test 2
-  #
-
-  class TestCase45a2 < OpenWFE::ProcessDefinition
-    sequence do
-      concurrent_iterator \
-        :on_value => "1, 2",
-        :to_field => "f",
-        :over_if => "${f:__ip__} == 0" do
-
-        _print "${r:fei.sub_instance_id} - ${f:f}"
-      end
-      _print "done."
-    end
-  end
-
-  # test 'parked' for now
-
-  def _test_2
-    dotest(
-      TestCase45a2,
-      """
-.0 - 1
-.1 - 2
-done.
-      """.strip)
-  end
-
-
-  #
-  # Test 3
-  #
-
-  class TestCase45a3 < OpenWFE::ProcessDefinition
-    sequence do
-      concurrent_iterator :on_value => "", :to_field => "f" do
-        _print "${r:fei.sub_instance_id} - ${f:f}"
-      end
-      _print "done."
-    end
-  end
-
-  def test_3
-    dotest TestCase45a3, "done."
-  end
-
-
-  #
-  # Test 4
-  #
-
-  class TestCase45a4 < OpenWFE::ProcessDefinition
-    sequence do
-      concurrent_iterator :on => "a, b, c", :to_field => "f" do
-        _print "${f:f}"
-      end
-      set :var => "v", :value => "1, 2"
-      concurrent_iterator :on_variable_value => "v", :to_field => "f" do
-        _print "${f:f}"
-      end
-      concurrent_iterator :on_var_value => "v", :to_field => "f" do
-        _print "${f:f}"
-      end
-      concurrent_iterator :on_var => "v", :to_field => "f" do
-        _print "${f:f}"
-      end
-      _print "done."
-    end
-  end
-
-  def test_4
-
-    dotest(
-      TestCase45a4,
-      %w{ a b c 1 2 1 2 1 2 }.join("\n") + "\ndone.")
-  end
-
-
-  #
-  # Test 5
-  #
-
-  class TestCase45a5 < OpenWFE::ProcessDefinition
-    sequence do
-      set :f => "f0", :value => "1, 2"
-      concurrent_iterator :on_f => "f0", :to_field => "f" do
-        _print "${f:f}"
-      end
-      concurrent_iterator :on_f => :f0, :to_field => "f" do
-        _print "${f:f}"
-      end
-      _print "done."
-    end
-  end
-
-  def test_5
-
-    dotest(
-      TestCase45a5,
-      %w{ 1 2 1 2 }.join("\n") + "\ndone.")
-  end
-
-
-  #
-  # Test 6
-  #
-
-  class Test6 < OpenWFE::ProcessDefinition
-    concurrent_iterator :on => "a, b, c, d", :to_field => "f" do
-      participant "${f:f}"
-    end
-  end
-
-  def test_6
-
-    @engine.register_participant ".", OpenWFE::NullParticipant
-
-    fei = launch Test6
-
-    sleep 0.350
-
-    #puts @engine.get_expression_storage
-    assert_equal 12, @engine.get_expression_storage.size
-
-    @engine.cancel_process fei
-
-    sleep 0.350
-
-    assert_equal 1, @engine.get_expression_storage.size
-  end
-
-end
-

data/test/ft_45b_citerator.rb

@@ -1,77 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest45b < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  DEF0 = <<-EOS
-<process-definition name="bug_20307" revision="0">
-  <concurrent-iterator on-value="1, 2, 3" to-field="x">
-  <sequence>
-    <sequence>
-    <participant ref="alpha" />
-    <if test="${f:stop_here}" >
-      <cancel-process />
-    </if>
-    </sequence>
-    <participant ref="bravo" />
-  </sequence>
-  </concurrent-iterator>
-</process-definition>
-  EOS
-
-  def test_0
-
-    @engine.register_participant :alpha do |wi|
-      #p [ :alpha, wi.fei.to_short_s ]
-      @tracer << "alpha\n"
-    end
-    @engine.register_participant :bravo do |wi|
-      #p [ :bravo, wi.fei.to_short_s ]
-      @tracer << "bravo\n"
-    end
-
-    dotest DEF0, ([ 'alpha' ] * 3 + [ 'bravo' ] * 3).join("\n")
-  end
-
-  def test_1
-
-    log_level_to_debug
-
-    @engine.register_participant :alpha do |wi|
-      @tracer << "alpha\n"
-      if wi.x == "2"
-        wi.stop_here = true
-        @tracer << "stop\n"
-      end
-    end
-    @engine.register_participant :bravo do |wi|
-      @tracer << "bravo\n"
-    end
-
-    @engine.launch DEF0
-      # cannot use dotest() as it waits for the 'terminate'
-      # signal which is not emitted when a process gets cancelled
-
-    sleep 0.400
-
-    assert_equal %w{ alpha alpha stop alpha }.join("\n"), @tracer.to_s
-  end
-
-end
-