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

require 'test/unit'
require 'ru/ruutils'
require 'ru/expressionmap'
require 'ru/fe_define'

#
# testing misc things
#

class MiscTest < Test::Unit::TestCase

    #def setup
    #end

    #def teardown
    #end

    def test_starts_with
        assert \
            OpenWFEru::starts_with("//a", "//")
        assert \
            (not OpenWFEru::starts_with("/a", "//"))
    end

    def test_expression_map

        em = OpenWFEru::ExpressionMap.new('expressionmap', {})

        assert \
            em.get_class('process-definition') == OpenWFEru::DefineExpression,
            "class of 'process-definition' should be DefineExpression"
        assert \
            em.is_definition?('process-definition'),
            "process-definition should be considered as a definition"
    end

end