pd.if.org Git - amortization/blob - 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