note
	description: "Root class for validity test."
	legal: "See notice at end of class."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class 
	TEST_ROOT

create

	make

feature {NONE} -- Initialization

	make (argv: ARRAY [STRING])
			-- Create test.
		local
			log: SCREEN_LOG
			reader: TEST_DATA_READER [VALIDITY_TEST]
			col: DATE_COLUMN
			f: PLAIN_TEXT_FILE
			s: TEST_SUITE
			drv: SIMPLE_TEST_DRIVER
		do
			create log.make
			log.set_format ("ascii")
			if argv.count /= 2 then
				Io.error.put_string ("Please specify test data file!%N")
			else
				create f.make_with_name (argv.item (1))
				if not f.exists or else not f.is_readable then
					Io.error.put_string ("Cannot open file!%N")
				else
					create reader.make_with_result_column (f, 1)
					create col
					reader.set_column (col, 1)
					reader.set_log (log)
					reader.build_suite
					if reader.is_suite_generated then
						s := reader.suite
						create drv.make (log)
						drv.enable_timing_display
						drv.extend (s)
						drv.execute
						drv.evaluate
					else
						Io.error.put_string ("No test suite generated!%N")
					end
				end
			end
		end

note
	copyright:	"Copyright (c) 1984-2019, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"

end