#
# Testing OpenWFE
#
# John Mettraux at openwfe.org
#
# Sun Oct 29 16:18:25 JST 2006
#

require 'test/unit'

require 'openwfe/engine/engine'
require 'openwfe/participants/participants'

#
# testing misc things
#

class ParticipantTest < Test::Unit::TestCase

    def setup
        @engine = OpenWFE::Engine.new
    end

    def teardown
        @engine.stop
    end

    def test_lookup_participant

        @engine.register_participant :toto, NullParticipant

        p = @engine.get_participant "toto"
        assert_kind_of NullParticipant, p

        p = @engine.get_participant :toto
        assert_kind_of NullParticipant, p

        assert_equal 1, @engine.get_participant_map.size
    end

    def test_unregister_participant

        assert ( ! @engine.unregister_participant(:nada))

        @engine.register_participant :toto, NullParticipant

        assert_equal 1, @engine.get_participant_map.size

        assert @engine.unregister_participant(:toto)

        assert_equal 0, @engine.get_participant_map.size

        @engine.register_participant "user_.*", NullParticipant

        assert_equal 1, @engine.get_participant_map.size

        assert @engine.unregister_participant("user_.*")

        assert_equal 0, @engine.get_participant_map.size
    end

end