indexing
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	NODE_TEST

create
	make

feature -- Creation

	make (test_str: STRING) is
			--
		do
			str := test_str
		end

feature -- Basic Operations

	test_name (node: XML_NODE) : BOOLEAN is
			--
		do
			if node.node_type.is_equal ("XML_ELEMENT") or node.node_type.is_equal ("XML_ATTRIBUTE") then
				if str.is_equal ("*") or str.is_equal (node.name.name) then
					Result := True
				end
			end
		end

	test_node (node: XML_NODE) : BOOLEAN is
			--
		do
			Result := True
		end

	test_text (node: XML_NODE) : BOOLEAN is
			--
		do
			Result := node.node_type.is_equal ("XML_TEXT")
		end


feature {NONE} -- Access

	str: STRING

end