summaryrefslogtreecommitdiffstats
path: root/bank-eiffel/account.e
diff options
context:
space:
mode:
authormanuel <manuel@mausz.at>2011-05-23 20:37:54 +0200
committermanuel <manuel@mausz.at>2011-05-23 20:37:54 +0200
commit1daf62f05c19e6f96d16d3688055dfd20d89d2b8 (patch)
tree4e79c5894ee9f5c1d350565e6aae2f9dbd31deaa /bank-eiffel/account.e
parente03195a9325d2671208efc45f4a4d083664eafe2 (diff)
downloadfoop-1daf62f05c19e6f96d16d3688055dfd20d89d2b8.tar.gz
foop-1daf62f05c19e6f96d16d3688055dfd20d89d2b8.tar.bz2
foop-1daf62f05c19e6f96d16d3688055dfd20d89d2b8.zip
- add tests
- remove notes - fix minamount for subaccounts
Diffstat (limited to 'bank-eiffel/account.e')
-rw-r--r--bank-eiffel/account.e16
1 files changed, 8 insertions, 8 deletions
diff --git a/bank-eiffel/account.e b/bank-eiffel/account.e
index d0a3fc4..1fc62fb 100644
--- a/bank-eiffel/account.e
+++ b/bank-eiffel/account.e
@@ -1,9 +1,3 @@
1note
2 description: "Summary description for {ACCOUNT}."
3 author: ""
4 date: "$Date$"
5 revision: "$Revision$"
6
7class 1class
8 ACCOUNT 2 ACCOUNT
9 3
@@ -57,14 +51,15 @@ feature {NONE} -- Initialization
57 do 51 do
58 create authorized_signers.make(1) 52 create authorized_signers.make(1)
59 add_authorized_signer (an_authorized_signer) 53 add_authorized_signer (an_authorized_signer)
60 transfer_minamount := 2.0
61 balance := 0.0
62 creditline := a_credit_line 54 creditline := a_credit_line
63 interest_debit := an_interest_debit 55 interest_debit := an_interest_debit
64 interest_deposit := an_interest_deposit 56 interest_deposit := an_interest_deposit
65 interest_deposit_range := an_interest_deposit_range 57 interest_deposit_range := an_interest_deposit_range
66 interest_debit_range := an_interest_debit_range 58 interest_debit_range := an_interest_debit_range
67 creditline_range := a_credit_line_range 59 creditline_range := a_credit_line_range
60
61 set_default_transfer_minamount
62 balance := 0.0
68 end 63 end
69 64
70feature -- Basic operations 65feature -- Basic operations
@@ -146,6 +141,11 @@ feature {NONE} -- Implementation
146 transfer_minamount_assigned: transfer_minamount = a_transfer_minamount 141 transfer_minamount_assigned: transfer_minamount = a_transfer_minamount
147 end 142 end
148 143
144 set_default_transfer_minamount
145 do
146 set_transfer_minamount (2.0)
147 end
148
149 set_creditline (a_creditline: like creditline) 149 set_creditline (a_creditline: like creditline)
150 require 150 require
151 a_creditline_within_bounds: a_creditline >= creditline_range.min 151 a_creditline_within_bounds: a_creditline >= creditline_range.min