indexing
	description: "Tests the endpoint message element"
	license: "MIT license (see ../../license.txt)"
	author: "Beat Strasser <beat@stradax.net>"
	date: "$Date$"
	revision: "$Revision$"

deferred class
	TEST_MESSAGE_ELEMENT

inherit
	TS_TEST_CASE

feature -- Test

	test_make is
			-- Test make
		local
			el, tsig: P2P_MESSAGE_ELEMENT
			tnamespace, tname, ttype, tcontent: STRING
		do
			tnamespace := "tnamespace"
			tname := "tname"
			ttype := "ttype"
			tcontent := "tcontent"
			create tsig.make_required (tnamespace, "tcontentsig")
			create el.make (tnamespace, tname, ttype, tsig, tcontent)
			assert_equal ("namespace", tnamespace, el.namespace)
			assert_equal ("name", tname, el.name)
			assert_equal ("type", ttype, el.type)
			assert_equal ("signature", tsig, el.signature)
			assert_equal ("content", tcontent, el.content)
		end

	test_make_string is
			-- Test make_string
		local
			el, tsig: P2P_MESSAGE_ELEMENT
			tnamespace, tname, tcontent: STRING
		do
			tnamespace := "tnamespace"
			tname := "tname"
			tcontent := "tcontent"
			create tsig.make_required (tnamespace, "tcontentsig")
			create el.make_string (tnamespace, tname, tsig, tcontent)
			assert_equal ("namespace", tnamespace, el.namespace)
			assert_equal ("name", tname, el.name)
			assert_equal ("type", el.type_textplain_utf8, el.type)
			assert_equal ("signature", tsig, el.signature)
			assert_equal ("content", tcontent, el.content)
		end

	test_make_xml is
			-- Test make_xml
		local
			el, tsig: P2P_MESSAGE_ELEMENT
			tnamespace, tname, tcontent: STRING
		do
			tnamespace := "tnamespace"
			tname := "tname"
			tcontent := "tcontent"
			create tsig.make_required (tnamespace, "tcontentsig")
			create el.make_xml (tnamespace, tname, tsig, tcontent)
			assert_equal ("namespace", tnamespace, el.namespace)
			assert_equal ("name", tname, el.name)
			assert_equal ("type", el.type_textxml_utf8, el.type)
			assert_equal ("signature", tsig, el.signature)
			assert_equal ("content", tcontent, el.content)
		end

	test_make_required is
			-- Test make_required
		local
			el: P2P_MESSAGE_ELEMENT
			tnamespace, tcontent: STRING
		do
			tnamespace := "tnamespace"
			tcontent := "tcontent"
			create el.make_required (tnamespace, tcontent)
			assert_equal ("namespace", tnamespace, el.namespace)
			assert_same ("name", Void, el.name)
			assert_same ("type", Void, el.type)
			assert_same ("signature", Void, el.signature)
			assert_equal ("content", tcontent, el.content)
		end

	test_setters is
			-- Test make_required
		local
			el, tsig: P2P_MESSAGE_ELEMENT
			tnamespace, tname, ttype, tcontent: STRING
		do
			create el.make_required ("tnamespaceold", "tcontentold")
			tcontent := "tcontent"
			tnamespace := "tnamespace"
			tname := "tname"
			create tsig.make_required (tnamespace, tcontent)
			ttype := "ttype"
			el.set_content (tcontent)
			assert_equal ("content", tcontent, el.content)
			el.set_name (tname)
			assert_same ("name", tname, el.name)
			el.set_namespace (tnamespace)
			assert_equal ("namespace", tnamespace, el.namespace)
			el.set_signature (tsig)
			assert_same ("signature", tsig, el.signature)
			el.set_type (ttype)
			assert_same ("type", ttype, el.type)
		end

	test_constants is
			-- Test constants
		local
			el: P2P_MESSAGE_ELEMENT
		do
			create el.make_required ("tnamespace", "tcontent")
			assert_equal ("type_textplain_utf8", "text/plain;charset=UTF-8", el.type_textplain_utf8)
			assert_equal ("type_textxml_utf8", "text/xml;charset=UTF-8", el.type_textxml_utf8)
		end

end