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_EDIT_PERSON
		local
			person: PERSON
		do
			create person.make("SOME_SURNAME_1", "SOME_FIRSTNAME_1")
			assert("CREATE_EDIT_PERSON_FIRSTNAME_1", person.firstname.is_equal("SOME_FIRSTNAME_1"))
			assert("CREATE_EDIT_PERSON_SURNAME_1", person.surname.is_equal("SOME_SURNAME_1"))

			person.firstname := "SOME_FIRSTNAME_2"
			assert("CREATE_EDIT_PERSON_FIRSTNAME_2", person.firstname.is_equal("SOME_FIRSTNAME_2"))
			person.surname := "SOME_SURNAME_2"
			assert("CREATE_EDIT_PERSON_SURNAME_2", person.surname.is_equal("SOME_SURNAME_2"))
		end

	CREATE_EDIT_PERSON_EMPTY_SURNAME
		local
			person: PERSON
			retry_count: INTEGER
			doretry: BOOLEAN
		do
			if retry_count = 0 then
				doretry := True
				create person.make("", "SOME_FIRSTNAME")
				doretry := False
				assert("CREATE_EDIT_PERSON_EMPTY_SURNAME_1", False)
			elseif retry_count = 1 then
				create person.make(void, "SOME_FIRSTNAME")
				doretry := False
				assert("CREATE_EDIT_PERSON_EMPTY_SURNAME_2", False)
			elseif retry_count = 2 then
				doretry := False
				create person.make("SOME_SURNAME", "SOME_FIRSTNAME")
				doretry := True
				person.surname := ""
				doretry := False
				assert("CREATE_EDIT_PERSON_EMPTY_SURNAME_3", False)
			elseif retry_count = 3 then
				doretry := False
				create person.make("SOME_SURNAME", "SOME_FIRSTNAME")
				doretry := True
				person.surname := void
				doretry := False
				assert("CREATE_EDIT_PERSON_EMPTY_SURNAME_4", False)
			else
				doretry := False
			end
		rescue
			if doretry then
				retry_count := retry_count + 1
				retry
			end
		end

	CREATE_EDIT_PERSON_EMPTY_FIRSTNAME
		local
			person: PERSON
			retry_count: INTEGER
			doretry: BOOLEAN
		do
			if retry_count = 0 then
				doretry := True
				create person.make("SOME_SURNAME", "")
				doretry := False
				assert("CREATE_EDIT_PERSON_EMPTY_FIRSTNAME_1", False)
			elseif retry_count = 1 then
				create person.make("SOME_SURNAME", void)
				doretry := False
				assert("CREATE_EDIT_PERSON_EMPTY_FIRSTNAME_2", False)
			elseif retry_count = 2 then
				doretry := False
				create person.make("SOME_SURNAME", "SOME_FIRSTNAME")
				doretry := True
				person.firstname := ""
				doretry := False
				assert("CREATE_EDIT_PERSON_EMPTY_FIRSTNAME_3", False)
			elseif retry_count = 3 then
				doretry := False
				create person.make("SOME_SURNAME", "SOME_FIRSTNAME")
				doretry := True
				person.firstname := void
				doretry := False
				assert("CREATE_EDIT_PERSON_EMPTY_FIRSTNAME_4", False)
			else
				doretry := False
			end
		rescue
			if doretry then
				retry_count := retry_count + 1
				retry
			end
		end
end