use strict;
use warnings;
-use Test::More tests => 20;
+use Test::More;
use Test::Exception;
use Class::MOP;
'Class::MOP::Method::Wrapped' );
::isa_ok( BankAccount->meta->get_method('withdraw'),
'Class::MOP::Method' );
+
+ CheckingAccount->meta->add_method( foo => sub { 'foo' } );
+ CheckingAccount->meta->add_before_method_modifier( foo => sub { 'wrapped' } );
+ ::isa_ok( CheckingAccount->meta->get_method('foo'),
+ 'Class::MOP::Method::Wrapped' );
}
my $savings_account = BankAccount->new( balance => 250 );
}
'... withdrew from savings successfully';
is( $savings_account->balance, 200,
- '... got the right savings balance after withdrawl' );
+ '... got the right savings balance after withdrawal' );
dies_ok {
$savings_account->withdraw(250);
}
}
'... withdrew from checking successfully';
is( $checking_account->balance, 50,
- '... got the right checkings balance after withdrawl' );
+ '... got the right checkings balance after withdrawal' );
is( $savings_account->balance, 350,
- '... got the right savings balance after checking withdrawl (no overdraft)'
+ '... got the right savings balance after checking withdrawal (no overdraft)'
);
lives_ok {
}
'... withdrew from checking successfully';
is( $checking_account->balance, 0,
- '... got the right checkings balance after withdrawl' );
+ '... got the right checkings balance after withdrawal' );
is( $savings_account->balance, 200,
- '... got the right savings balance after overdraft withdrawl' );
+ '... got the right savings balance after overdraft withdrawal' );
+done_testing;