note
	description: "[
		Eiffel tests that can be executed by testing tool.
	]"
	author: "EiffelStudio test wizard"
	date: "$Date$"
	revision: "$Revision$"
	testing: "type/manual"

class
	TEST_PERSON

inherit
	EQA_TEST_SET

feature -- Test routines

	CREATE_PERSON
		local
			person: PERSON
		do
			create person.make("SOME_SURNAME", "SOME_FIRSTNAME")
		end

	CREATE_PERSON_NO_SURNAME
		local
			person: PERSON
			retried: BOOLEAN
		do
			if not retried then
				create person.make("", "SOME_FIRSTNAME")
				retried := True
				assert("CREATE_PERSON_NO_SURNAME", False)
			end
		rescue
			if not retried then
				retried := True
				retry
			end
		end

	CREATE_PERSON_NO_FIRSTNAME
		local
			person: PERSON
			retried: BOOLEAN
		do
			if not retried then
				create person.make("SOME_SURNAME", "")
				retried := True
				assert("CREATE_PERSON_NO_FIRSTNAME", False)
			end
		rescue
			if not retried then
				retried := True
				retry
			end
		end
end