indexing
	description: "Test case for testing the shared hierarchy. "
	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_SHARED_HIERARCHY

inherit

    TS_TEST_CASE
    	undefine
    		name_of_id,
    		execute_i_th
    	end

    ELOG_SEVERITY_CONSTANTS
		export
			{NONE} all
		end

	ELOG_SHARED_HIERARCHY

feature -- Test

	test_shared_hierarchy is
            -- Test the shared hierarchy
        local
        	h1, h2: ELOG_SHARED_HIERARCHY
        	w1, w2: T_ELOG_SHARED_HIERARCHY_WORKER
        do
        	create w1
			w1.launch
			create w2
			w2.launch
			assert_equal ("hierarchy_shared1", w1.Log_hierarchy, w2.Log_hierarchy)
			assert_equal ("hierarchy_shared2", Log_hierarchy, w1.Log_hierarchy)
        	w1.join
        	w2.join

        	create h1
        	create h2
			assert_equal ("hierarchy_shared3", h1.log_hierarchy.logger ("a.b"), h2.log_hierarchy.logger ("a.b"))
			assert_equal ("hierarchy_shared4", h2.log_hierarchy.logger ("a.b"), log_hierarchy.logger ("a.b"))
			assert_equal ("hierarchy_shared5", h1.log_hierarchy, h2.log_hierarchy)
			assert_equal ("hierarchy_shared6", h2.log_hierarchy, log_hierarchy)
        end

end