ruote 0.9.20 → 2.1.1

data/test/functional/ft_8_dollar.rb

@@ -1,53 +0,0 @@
-
-#
-# Testing Ruote (OpenWFEru)
-#
-# John Mettraux at openwfe.org
-#
-# Fri Feb 27 23:18:40 JST 2009
-#
-
-require File.dirname(__FILE__) + '/base'
-
-
-class FtDollarTest < Test::Unit::TestCase
-  include FunctionalBase
-
-  def test_field_default_value
-
-    pdef = OpenWFE.process_definition :name => 'test' do
-
-      set_fields :value => { 'a' => 'f:a', 'b' => 'f:b', 'd' => 2 }
-
-      sequence do
-
-        set :var => 'a', :val => 'v:a'
-        set :var => 'c', :val => 'v:c'
-
-        echo '${f:a}'
-        echo '${v:a}'
-
-        echo '${field:a}'
-        echo '${variable:a}'
-
-        echo '${vf:a}'
-        echo '${fv:a}'
-
-        echo '${vf:b}'
-        echo '${fv:b}'
-        echo '${vf:c}'
-        echo '${fv:c}'
-
-        echo '${r:1+2}'
-        echo '${ru:4+3}'
-
-        echo '${r:wi.d * 2}'
-        echo '${r:workitem.d * 3}'
-      end
-    end
-
-    assert_trace(
-      pdef, %w{ f:a v:a f:a v:a v:a f:a f:b f:b v:c v:c 3 7 4 6 }.join("\n"))
-  end
-end
-

data/test/functional/ft_9_register_participants.rb

@@ -1,119 +0,0 @@
-
-#
-# Testing Ruote (OpenWFEru)
-#
-# John Mettraux at openwfe.org
-#
-# Wed Mar 11 13:02:17 JST 2009
-#
-
-require File.dirname(__FILE__) + '/base'
-
-
-class FtRegisterParticipantsTest < Test::Unit::TestCase
-  include FunctionalBase
-
-  #
-  # some preparation...
-
-  PDEF0 = OpenWFE.process_definition 'test' do
-    sequence do
-      alpha
-      echo '${f:reply}'
-    end
-  end
-
-  class AaParticipant
-    include OpenWFE::LocalParticipant
-
-    def consume (workitem)
-      workitem.reply = 'alright'
-      reply_to_engine(workitem)
-    end
-  end
-
-  class BbParticipant
-    include OpenWFE::LocalParticipant
-
-    def initialize (opts)
-      @message = opts[:message]
-    end
-    def consume (workitem)
-      workitem.reply = @message
-      reply_to_engine(workitem)
-    end
-  end
-
-  class CcParticipant
-    include OpenWFE::LocalParticipant
-
-    def consume (workitem)
-      workitem.reply = 'clright'
-      reply_to_engine(workitem)
-    end
-  end
-
-  #
-  # the tests...
-
-  def test_register_block
-
-    @engine.register_participant 'alpha' do |workitem|
-      @tracer << "ok\n"
-    end
-
-    assert_trace(PDEF0, 'ok')
-  end
-
-  def test_register_class
-
-    @engine.register_participant 'alpha', AaParticipant
-
-    assert_trace(PDEF0, 'alright')
-  end
-
-  def test_register_class_with_options
-
-    @engine.register_participant(
-      'alpha', BbParticipant, { :message => 'blright' })
-
-    assert_trace(PDEF0, 'blright')
-  end
-
-  def test_register_instance
-
-    @engine.register_participant 'alpha', CcParticipant.new
-
-    assert_trace(PDEF0, 'clright')
-  end
-
-  #
-  # about bug #24471
-  #
-  def test_participant_with_underscore
-
-    pdef = OpenWFE.process_definition 'test' do
-      sequence do
-        a_process
-        b_process
-        c_process
-        #participant 'a-process' <-- error : no participant 'a-process'
-        #participant 'b-process' <-- error : no participant 'b-process'
-        participant 'c-process'
-      end
-    end
-
-    @engine.register_participant 'a_process' do |workitem|
-      @tracer << "a\n"
-    end
-    @engine.register_participant :b_process do |workitem|
-      @tracer << "b\n"
-    end
-    @engine.register_participant 'c-process' do |workitem|
-      @tracer << "c\n"
-    end
-
-    assert_trace(pdef, %w{ a b c c }.join("\n"))
-  end
-end
-

data/test/functional/rft_0_sleep.rb

@@ -1,76 +0,0 @@
-
-#
-# Testing Ruote (OpenWFEru)
-#
-# John Mettraux at openwfe.org
-#
-# Wed Feb  4 10:10:54 JST 2009
-#
-
-require File.dirname(__FILE__) + '/base'
-require File.dirname(__FILE__) + '/restart_base'
-
-
-class RftSleepTest < Test::Unit::TestCase
-  include FunctionalBase
-  include RestartBase
-
-  PDEF0 = OpenWFE.process_definition :name => 'test' do
-    sequence do
-      echo 'a'
-      _sleep '2s'
-      echo 'b'
-    end
-  end
-
-  def test_sleep_restarts_at_wakeup
-
-    in_memory_engine && return
-
-    @engine.launch(PDEF0)
-
-    sleep 1
-
-    @engine.stop
-
-    assert_equal 'a', @tracer.to_s
-
-    sleep 2
-
-    assert_equal 'a', @tracer.to_s
-
-    restart_engine
-
-    sleep 0.350
-
-    assert_equal "a\nb", @tracer.to_s
-
-    assert_engine_clean
-  end
-
-  def test_sleep_restarts_after_wakeup
-
-    in_memory_engine && return
-
-    @engine.launch(PDEF0)
-
-    sleep 0.500
-
-    @engine.stop
-
-    assert_equal 'a', @tracer.to_s
-
-    restart_engine
-
-    sleep 0.350
-
-    assert_equal 'a', @tracer.to_s
-
-    sleep 1.500
-
-    assert_equal "a\nb", @tracer.to_s
-
-    assert_engine_clean
-  end
-end
-

data/test/unit/ut_0_fei.rb

@@ -1,166 +0,0 @@
-
-#
-# Testing Ruote (OpenWFEru)
-#
-# John Mettraux at openwfe.org
-#
-# Mon Oct  9 22:19:44 JST 2006
-#
-
-require File.dirname(__FILE__) + '/../test_helper.rb'
-
-require 'openwfe/flowexpressionid'
-require 'openwfe/rudefinitions'
-
-
-class FeiTest < Test::Unit::TestCase
-
-  def test_equality
-
-    fei1 = new_fei()
-    fei2 = new_fei()
-
-    assert \
-      fei1.object_id != fei2.object_id, \
-      'feis are not two distinct feis'
-    assert \
-      fei1.hash == fei2.hash, \
-      'feis do not have the same hash'
-    assert \
-      fei1 == fei2, \
-      'feis are not equals (==)'
-    assert \
-      fei1.eql?(fei2), \
-      'feis are not equals (eql?)'
-  end
-
-  def test_inequality
-
-    fei1 = new_fei()
-
-    fei2 = new_fei()
-    fei2.expression_name = OpenWFE::EN_ENVIRONMENT
-
-    assert \
-      fei1.object_id != fei2.object_id, \
-      'feis are not two distinct feis'
-    assert \
-      fei1.hash != fei2.hash, \
-      'feis do have the same hash'
-    assert \
-      fei1 != fei2, \
-      'feis are equals (==)'
-    assert \
-      (not fei1.eql?(fei2)), \
-      'feis are equals (eql?)'
-  end
-
-  def test_in_hash
-    h = Hash.new()
-
-    fei1 = new_fei()
-    fei2 = new_fei()
-
-    h[fei1] = 'one'
-    h[fei2] = 'two'
-
-    #puts_hash(h)
-    #puts "fei1 :   #{fei1.to_debug_s}"
-    #puts "fei2 :   #{fei2.to_debug_s}"
-
-    assert \
-      h.size() == 1,
-      'h should have one entry'
-    assert \
-      h[fei1] == h[fei2],
-      'both keys should point to the same thing'
-
-    assert_equal 'two', h[fei1], 'value should be \'two\' (fei1)'
-    assert_equal 'two', h[fei2], 'value should be \'two\' (fei2)'
-  end
-
-  def test_dup
-
-    fei0 = new_fei()
-    fei1 = fei0.dup()
-
-    assert \
-      fei0 == fei1,
-      'feis should be equal'
-
-    fei1.expression_name = OpenWFE::EN_ENVIRONMENT
-
-    assert \
-      fei0 != fei1,
-      'feis should not be equal'
-  end
-
-  def test_parse_unparse
-    fei0 = new_fei()
-    s = fei0.to_s
-    fei1 = OpenWFE::FlowExpressionId.to_fei(s)
-    fei2 = OpenWFE::FlowExpressionId.from_s(s)
-
-    puts "\n#{s}\n#{fei1.to_s}" if fei0 != fei1
-
-    assert_equal fei0, fei1
-    assert_equal fei1, fei2
-  end
-
-  def test_parent_wfid
-
-    fei = new_fei
-
-    assert_equal '20080919-equestris', fei.parent_workflow_instance_id
-
-    fei.workflow_instance_id = '123456.0.0'
-
-    assert_equal '123456', fei.parent_workflow_instance_id
-  end
-
-  def test_initial_engine_id_deprecation
-
-    s0 = '(fei 0.9.16 this/that http://test/test.xml test 1.0 123456 do-test 0.0)'
-    s1 = '(fei 0.9.16 this http://test/test.xml test 1.0 123456 do-test 0.0)'
-
-    fei0 = OpenWFE::FlowExpressionId.from_s s0
-    fei1 = OpenWFE::FlowExpressionId.from_s s1
-
-    assert_equal fei0, fei1
-
-    fei0 = OpenWFE::FlowExpressionId.to_fei s0
-    fei1 = OpenWFE::FlowExpressionId.to_fei s1
-
-    assert_equal fei0, fei1
-
-    assert_equal s1, fei0.to_s
-    assert_equal s1, fei1.to_s
-  end
-
-  def test_web_s
-
-    s1 = '(fei 0.9.16 eng http://test/test.xml test 1.0 123456 do-test 0.0)'
-    fei1 = OpenWFE::FlowExpressionId.from_s s1
-
-    assert_equal(
-      [ '123456', '0.0' ],
-      OpenWFE::FlowExpressionId.split_web_s(fei1.to_web_s))
-  end
-
-  def test_from_h
-
-    fei = new_fei()
-    assert_equal fei, OpenWFE::FlowExpressionId.from_h(fei.to_h)
-  end
-
-  #protected
-  #def puts_hash (h)
-  #  puts
-  #  h.each do |k, v|
-  #    puts "   * '#{k.to_debug_s}' --> '#{v}'"
-  #  end
-  #  puts
-  #end
-
-end
-

data/test/unit/ut_10_lookup_attribute.rb

@@ -1,86 +0,0 @@
-
-#
-# Testing Ruote (OpenWFEru)
-#
-# John Mettraux at openwfe.org
-#
-# since Mon Oct  9 22:19:44 JST 2006
-#
-
-require File.dirname(__FILE__) + '/../test_helper.rb'
-
-require 'openwfe/utils'
-
-
-class LookupAttributeTest < Test::Unit::TestCase
-
-  def test_0
-
-    l0 = [
-      {'name'=>'companyA','DunsNr' => 'JGE4753'},
-      {'name'=>'companyB','DunsNr' => 'ZUTE8555'},
-      {'name'=>'companyC','DunsNr' => 'GTI6775'},
-      {'name'=>'companyD','DunsNr' => 'XUE6755'}
-    ]
-    h0 = { 'supplierList' => l0 }
-
-    do_lookup_test(
-      h0, 'supplierList', l0)
-    do_lookup_test(
-      h0, 'supplierList.1', {'name'=>'companyB','DunsNr' => 'ZUTE8555'})
-    do_lookup_test(
-      h0, 'supplierList.1.DunsNr', 'ZUTE8555')
-
-    do_has_attribute_test(
-      h0, 'supplierList.1.DunsNr', true)
-    do_has_attribute_test(
-      h0, 'supplierList.1.Whatever', false)
-    do_has_attribute_test(
-      h0, 'supplierList.whatever', false)
-    do_has_attribute_test(
-      h0, 'whatever', false)
-
-    h1 = { 'supplierList' => l0.to_s }
-    do_lookup_test(
-      h1, 'supplierList.1.DunsNr', nil)
-
-    do_has_attribute_test(
-      nil, 'whatever', false)
-    do_has_attribute_test(
-      {}, 'whatever', false)
-    do_has_attribute_test(
-      [], 'whatever', false)
-    do_has_attribute_test(
-      'string',  'whatever', false)
-
-    do_has_attribute_test(
-      [ nil, nil ], '1.name', false)
-  end
-
-  def test_1
-
-    h = { '0' => [ 'a', 'A' ], '1' => { 'b' => 'B'} }
-
-    do_lookup_test(h, '0', [ 'a', 'A' ])
-    do_lookup_test(h, '1.b', 'B')
-    do_has_attribute_test(h, '0', true)
-    do_has_attribute_test(h, '1.b', true)
-  end
-
-  protected
-
-  def do_lookup_test (container, expression, expected_value)
-
-    assert_equal(
-      expected_value,
-      OpenWFE::lookup_attribute(container, expression))
-  end
-
-  def do_has_attribute_test (container, expression, expected_boolean)
-
-    assert_equal(
-      expected_boolean,
-      OpenWFE::has_attribute?(container, expression))
-  end
-end
-