projects
/
gitmo/moose-presentations.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Test deposit() before testing withdraw()
[gitmo/moose-presentations.git]
/
moose-class
/
exercises
/
t
/
lib
/
MooseClass
/
Tests.pm
diff --git
a/moose-class/exercises/t/lib/MooseClass/Tests.pm
b/moose-class/exercises/t/lib/MooseClass/Tests.pm
index
4fdf477
..
9fc3a8f
100644
(file)
--- a/
moose-class/exercises/t/lib/MooseClass/Tests.pm
+++ b/
moose-class/exercises/t/lib/MooseClass/Tests.pm
@@
-683,6
+683,12
@@
sub account_tests {
my $base_amount = shift || 0;
$person->deposit(50);
+
+ is(
+ $person->balance, 50 + $base_amount,
+ "balance is 50 + $base_amount",
+ );
+
eval { $person->withdraw( 75 + $base_amount ) };
like(
$@, qr/\QBalance cannot be negative/,