#
# Testing OpenWFEru (Ruote)
#
# John Mettraux at openwfe.org
#
# Thu Sep 13 17:46:20 JST 2007
#

require 'openwfe/def'

require 'flowtestbase'


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

  #def teardown
  #end

  #def setup
  #end

  #
  # TEST 0

  class Test0 < OpenWFE::ProcessDefinition
    sequence do
      set :v => '//topvar', :val => 'top'
      set :v => 'localvar', :val => 'local'
      toto
    end
  end

  def test_0

    #log_level_to_debug

    @engine.register_participant 'toto', OpenWFE::NullParticipant

    fei = launch Test0

    sleep 0.350

    assert_equal @engine.lookup_variable('topvar'), 'top'
    assert_equal @engine.lookup_variable('topvar', fei.wfid), 'top'
    assert_equal @engine.lookup_variable('localvar', fei.wfid), 'local'

    @engine.cancel_process(fei.wfid)

    sleep 0.350
  end

end