Commit | Line | Data |
ad1ac1bd |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
703d9522 |
6 | use Test::More tests => 24; |
ad1ac1bd |
7 | use Test::Exception; |
8 | |
9 | BEGIN { |
10 | use_ok('Moose'); |
11 | } |
12 | |
13 | { |
14 | package BankAccount; |
15 | use Moose; |
16 | |
81dc201f |
17 | has 'balance' => (isa => 'Num', is => 'rw', default => 0); |
ad1ac1bd |
18 | |
19 | sub deposit { |
20 | my ($self, $amount) = @_; |
21 | $self->balance($self->balance + $amount); |
22 | } |
23 | |
24 | sub withdraw { |
25 | my ($self, $amount) = @_; |
26 | my $current_balance = $self->balance(); |
27 | ($current_balance >= $amount) |
28 | || confess "Account overdrawn"; |
29 | $self->balance($current_balance - $amount); |
30 | } |
31 | |
c235cd98 |
32 | package CheckingAccount; |
ad1ac1bd |
33 | use Moose; |
34 | |
bc1e29b5 |
35 | extends 'BankAccount'; |
ad1ac1bd |
36 | |
cc65ead0 |
37 | has 'overdraft_account' => (isa => 'BankAccount', is => 'rw'); |
ad1ac1bd |
38 | |
39 | before 'withdraw' => sub { |
40 | my ($self, $amount) = @_; |
41 | my $overdraft_amount = $amount - $self->balance(); |
e9bb8a31 |
42 | if ($self->overdraft_account && $overdraft_amount > 0) { |
ad1ac1bd |
43 | $self->overdraft_account->withdraw($overdraft_amount); |
44 | $self->deposit($overdraft_amount); |
45 | } |
46 | }; |
47 | } |
48 | |
ad1ac1bd |
49 | my $savings_account = BankAccount->new(balance => 250); |
50 | isa_ok($savings_account, 'BankAccount'); |
51 | |
52 | is($savings_account->balance, 250, '... got the right savings balance'); |
53 | lives_ok { |
54 | $savings_account->withdraw(50); |
55 | } '... withdrew from savings successfully'; |
56 | is($savings_account->balance, 200, '... got the right savings balance after withdrawl'); |
57 | |
58 | $savings_account->deposit(150); |
59 | is($savings_account->balance, 350, '... got the right savings balance after deposit'); |
60 | |
703d9522 |
61 | { |
62 | my $checking_account = CheckingAccount->new( |
63 | balance => 100, |
64 | overdraft_account => $savings_account |
65 | ); |
66 | isa_ok($checking_account, 'CheckingAccount'); |
67 | isa_ok($checking_account, 'BankAccount'); |
68 | |
69 | is($checking_account->overdraft_account, $savings_account, '... got the right overdraft account'); |
70 | |
71 | is($checking_account->balance, 100, '... got the right checkings balance'); |
72 | |
73 | lives_ok { |
74 | $checking_account->withdraw(50); |
75 | } '... withdrew from checking successfully'; |
76 | is($checking_account->balance, 50, '... got the right checkings balance after withdrawl'); |
77 | is($savings_account->balance, 350, '... got the right savings balance after checking withdrawl (no overdraft)'); |
78 | |
79 | lives_ok { |
80 | $checking_account->withdraw(200); |
81 | } '... withdrew from checking successfully'; |
82 | is($checking_account->balance, 0, '... got the right checkings balance after withdrawl'); |
83 | is($savings_account->balance, 200, '... got the right savings balance after overdraft withdrawl'); |
84 | } |
ad1ac1bd |
85 | |
703d9522 |
86 | { |
87 | my $checking_account = CheckingAccount->new( |
88 | balance => 100 |
89 | # no overdraft account |
90 | ); |
91 | isa_ok($checking_account, 'CheckingAccount'); |
92 | isa_ok($checking_account, 'BankAccount'); |
93 | |
94 | is($checking_account->overdraft_account, undef, '... no overdraft account'); |
95 | |
96 | is($checking_account->balance, 100, '... got the right checkings balance'); |
97 | |
98 | lives_ok { |
99 | $checking_account->withdraw(50); |
100 | } '... withdrew from checking successfully'; |
101 | is($checking_account->balance, 50, '... got the right checkings balance after withdrawl'); |
102 | |
103 | dies_ok { |
104 | $checking_account->withdraw(200); |
105 | } '... withdrawl failed due to attempted overdraft'; |
106 | is($checking_account->balance, 50, '... got the right checkings balance after withdrawl failure'); |
107 | } |
ad1ac1bd |
108 | |
ad1ac1bd |
109 | |