indexing
	description: "Example of the file 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: $"

class ELOG_TEST_FILE_APPENDER

inherit

    ELOG_SEVERITY_CONSTANTS

    ELOG_SHARED_INTERNAL_LOGGER

create
	make

feature -- Initialization

	make is
            -- Test the rolling file appender
            -- write files and then check there contents.
        local
        	h: ELOG_HIERARCHY
        	logger: ELOG_LOGGER
        	a: ELOG_FILE_APPENDER
        	fname: STRING
        do
			create h.make (Warning_severity)
			logger := h.logger ("test")

			-- make sure the files do not exist yet
			fname := "rollingappender.log"

			-- Create new rolling appender with file size 5 and 6 rolls
			create a.make (fname, False, True)
			logger.add_appender (a)
			logger.log_fatal (create {ELOG_SIMPLE_EVENT}.make ("test1"))
			logger.log_warning (create {ELOG_SIMPLE_EVENT}.make ("test2"))
			logger.log_fatal (create {ELOG_SIMPLE_EVENT}.make ("test3"))
			h.close_all
        end

end