indexing
	description: "output to an appender, that breaks randomly."
	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_FAILSAFE

inherit
	ELOG_SEVERITY_CONSTANTS

	THREAD_CONTROL

create
	make

feature {NONE} -- Initialization

	make is
			-- creation procedure
		local
			h: ELOG_HIERARCHY
			a: ELOG_TEST_FAULTY_APPENDER
			i: INTEGER
		do
			create h.make (Information_severity)
			create a.make ("faulty appender", True)
			h.logger ("aoeu").add_appender (a)

			from
				i := 1
			until
				False
			loop
				h.logger ("aoeu").log_information (create {ELOG_SIMPLE_EVENT}.make ("message "+i.out))
				sleep (40_000_000) -- sleep for 40 ms
				i := i + 1
			end

			h.close_all
		end

feature -- Access

feature -- Basic operations

feature {NONE} -- Implementation

end