note
	description: "Summary description for {TESTING_ECF}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	TESTING_ECF

inherit
	APPLICATION_ECF
		redefine
			make,
			process,
			set_is_console_application,
			set_executable_name,
			set_root_info
		end

create
	make

feature {NONE} -- Implementation

	make (a_name: STRING)
		do
			Precursor (a_name)
			is_console_application := False
			concurrency := "none"
			root_class := "ANY"
			root_feature := "default_create"
		end

feature -- Element change

	set_root_info (a_cluster: detachable STRING; a_class, a_feature: STRING)
		do
			--| always keep default root info for Testing
		end

	set_is_console_application (b: BOOLEAN)
		do
			is_console_application := False
		end

	set_executable_name (s: like executable_name)
		do
			-- Ignored
		end

feature -- Visitor

	process (v: ECF_VISITOR)
		do
			v.process_testing_ecf (Current)
		end

end