initial commit from pause
[amortization] / t / basic.t
1 #!/usr/bin/perl
2
3 use Test::More tests => 7;
4
5 BEGIN { use_ok('Finance::Amortization') }
6
7 my $am = Finance::Amortization->new(principal => 10000, rate => 0.12,
8         periods => 12 * 5);
9
10 isa_ok($am, 'Finance::Amortization');
11
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');
17