#
# Testing OpenWFEru (Ruote)
#
# John Mettraux at openwfe.org
#
# Mon Oct  9 22:19:44 JST 2006
#

require 'openwfe/def'

require 'flowtestbase'


class FlowTest36 < Test::Unit::TestCase
  include FlowTestBase

  #def teardown
  #end

  #def setup
  #end

  #
  # TEST 0

  class TestSubProcId0 < OpenWFE::ProcessDefinition
    concurrence do
      subproc
      subproc
    end
    process_definition :name => :subproc do
      sequence do
        #reval "puts fei"
        check
      end
    end
  end

  class TestSubProcId1 < OpenWFE::ProcessDefinition
    concurrence do
      subprocess :ref => 'subproc'
      subprocess :ref => :subproc
    end
    process_definition :name => :subproc do
      sequence do
        #reval "puts fei"
        check
      end
    end
  end

  def test_subprocid_0

    feis = {}

    @engine.register_participant(:check) do |fexp, wi|
      #puts fexp.fei.to_debug_s
      feis[fexp.fei] = true
    end

    launch TestSubProcId0
    launch TestSubProcId1

    sleep 2

    assert_equal 4, feis.keys.size
  end


  #
  # TEST about Iterator

  class TestIteratorSubId0 < OpenWFE::ProcessDefinition
    iterator :on_value => 'a, b', :to_variable => 'v' do
      check
    end
  end

  def test_iterator_subid_0

    feis = {}

    @engine.register_participant(:check) do |fexp, wi|
      #puts fexp.fei.to_debug_s
      feis[fexp.fei] = true
    end

    launch TestIteratorSubId0

    sleep 0.350

    assert_equal 2, feis.keys.size
  end

end