bank-eiffel/retireeaccount.e


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

class
	RETIREEACCOUNT

inherit
	ACCOUNT
		redefine
			set_default_transfer_minamount
		end
		
create
	make

feature {NONE} -- Implementation

	set_default_transfer_minamount
		do
			set_transfer_minamount (1.0)
		end

invariant
	authorized_signers_only_one: authorized_signers.count = 1
	authorized_signers_attached: authorized_signers.linear_representation /= Void
	authorized_signers_only_retirees:
		(attached authorized_signers.linear_representation as signers) implies signers.for_all(
			agent (person: PERSON): BOOLEAN
				do
					Result := attached {RETIREE} person
				end)
end