indexing
	description: "Test case for testing the buffer appender. "
	library: "elogger"
	copyright: "Copyright (c) 2006, AXA Rosenberg, and others (see copyright.txt)"
	author: "Ulrich Weiss, and others"
	license: "Eiffel Forum License v2 (see forum.txt)"
	date: "$Date: $"
	revision: "$Revision: $"
	archive: "$Archive: $"

deferred class TEST_ELOG_BUFFER_APPENDER

inherit

    TS_TEST_CASE
    	undefine
    		name_of_id,
    		execute_i_th
    	end

    ELOG_SEVERITY_CONSTANTS
		export
			{NONE} all
		end

feature -- Test

	test_buffer_appender is
            -- Test the buffer appender
        local
        	h: ELOG_HIERARCHY
        	a: ELOG_BUFFER_APPENDER
        	e: ELOG_EVENT
        do
			create h.make (Warning_severity)
			create a.make ("bufferappender", True)
			h.root.add_appender (a)
			a.append (create {ELOG_SIMPLE_EVENT}.make ("This"))
			a.append (create {ELOG_SIMPLE_EVENT}.make ("is"))
			a.append (create {ELOG_SIMPLE_EVENT}.make ("a"))
			a.append (create {ELOG_SIMPLE_EVENT}.make ("test!"))
			e := a.buffer.remove
			assert_strings_equal ("buffer1", "This", e.message)
			e := a.buffer.remove
			assert_strings_equal ("buffer2", "is", e.message)
			e := a.buffer.remove
			assert_strings_equal ("buffer3", "a", e.message)
			e := a.buffer.remove
			assert_strings_equal ("buffer4", "test!", e.message)
			e := a.buffer.remove
			assert ("buffer5", e = Void)
        end

end