3 use Test::More tests => 7;
5 BEGIN { use_ok('Finance::Amortization') }
7 my $am = Finance::Amortization->new(principal => 10000, rate => 0.12,
10 isa_ok($am, 'Finance::Amortization');
12 is($am->periods(), 60, 'periods');
13 is($am->principal, '10000.00', 'principal');
14 is($am->rate, 0.01, 'rate');
15 is($am->balance(1), 9877.56, 'balance 1');
16 is($am->interest(1), '100.00', 'interest 1');