note
	description: "Class that combines test case classes from GETEST and ISE's testing environment"
	author: "Comerge AG; JR"
	date: "$Date: 2009-03-27 13:06:20 +0100 (Fri, 27 Mar 2009) $"
	revision: "$Revision: 191 $"

deferred class
	CO_TEST_CASE

inherit
	TS_TEST_CASE
		rename
			initialize as initialize_test_case,
			count as test_count
		undefine
			set_up,
			tear_down,
			default_create
		redefine
			assert
		end

	EQA_TEST_SET
		rename
			on_prepare as set_up,
			on_clean as tear_down
		redefine
			assert
		end

feature -- Assertions

	assert (a_tag: STRING; a_condition: BOOLEAN)
			-- <Precursor>
		do
			if gobo_test then
				Precursor {TS_TEST_CASE} (a_tag, a_condition)
			else
				Precursor {EQA_TEST_SET} (a_tag, a_condition)
			end
		end

feature -- Environment

	gobo_test: BOOLEAN
			-- Are we running in gobo test ?
		local
			l_env: EXECUTION_ENVIRONMENT
		once
			create l_env
			Result := l_env.starting_environment_variables.has ("GOBO_TEST")
		end

end