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

class
	TEST_ACCOUNT

inherit
	EQA_TEST_SET

feature -- Test routines

	CREATE_EDIT_ACCOUNT
		local
			person1: PERSON
			person2: PERSON
			account: ACCOUNT
		do
			create person1.make ("SOME_SURNAME_1", "SOME_FIRSTNAME_1")
			create person2.make ("SOME_SURNAME_2", "SOME_FIRSTNAME_2")

			create account.make (person1, 0.01, 0.02, -50.0, <<0.01, 0.022>>, <<0.01, 0.02>>, <<-100, -50>>)
			account.add_authorized_signer (person2)


			--assert ("not_implemented", False)
		end

	ADVANCE
		local
			person1: PERSON
			account: ACCOUNT
			b : REAL_64
		do
			create person1.make ("SOME_SURNAME_1", "SOME_FIRSTNAME_1")
			create account.make (person1, 0.01, 0.02, -50.0, <<0.01, 0.022>>, <<0.01, 0.02>>, <<-100, -50>>)

			account.deposit (100.0, person1)
			account.advance
			
			assert("balance not correct", account.get_balance = 101.0)
		end

end