indexing description: "test backup appender (using file appender with illegal file target). " 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_BACKUP_APPENDER inherit TS_TEST_CASE undefine name_of_id, execute_i_th end ELOG_SEVERITY_CONSTANTS feature -- Basic operations test_backup_appender is -- test backup appender setting in case of failure -- this test must be uncommented, because we do not -- want to see the exception all the time. local -- h: ELOG_HIERARCHY -- a: ELOG_FILE_APPENDER -- b: ELOG_BUFFER_APPENDER -- e: ELOG_EVENT -- i: INTEGER do -- create h.make (Warning_severity) -- create a.make ("\\some_illegal\file.txt", True) -- create b.make ("buffer appender") -- a.set_backup_appender (b, True) -- h.root.add_appender (a) -- from -- i := 1 -- until -- i > 4 -- loop -- h.root.log_warning (create {ELOG_SIMPLE_EVENT}.make ("message "+i.out)) -- i := i+1 -- end -- b.wait (False) -- e := b.buffer.remove -- assert_strings_equal ("buffer1", "message 1", e.message) -- e := b.buffer.remove -- assert_strings_equal ("buffer2", "message 2", e.message) -- e := b.buffer.remove -- assert_strings_equal ("buffer3", "message 3", e.message) -- e := b.buffer.remove -- assert_strings_equal ("buffer4", "message 4", e.message) -- e := b.buffer.remove -- assert ("buffer5", e = Void) end end