diff options
| author | Mark Wells <mark@freeside.biz> | 2016-04-26 13:06:37 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2016-04-26 13:06:37 -0700 |
| commit | f774310747c6370e06233b7b5d8bb8713124f0f8 (patch) | |
| tree | 893f3fe4374dceaf8f50931fd6d3eb194ba8cf8d /FS/t | |
| parent | a2a952b55cc50eb2b72d1edb6b84fd03acb46b03 (diff) | |
fix basic prorate test
Diffstat (limited to 'FS/t')
| -rwxr-xr-x | FS/t/suite/01-order_pkg.t | 2 | ||||
| -rwxr-xr-x | FS/t/suite/02-bill_customer.t | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/FS/t/suite/01-order_pkg.t b/FS/t/suite/01-order_pkg.t index 1511350..ab5a2dd 100755 --- a/FS/t/suite/01-order_pkg.t +++ b/FS/t/suite/01-order_pkg.t @@ -16,7 +16,7 @@ my $form = $FS->form('OrderPkgForm'); # behavior visible). my %params = ( - pkgpart => 5, + pkgpart => 2, quantity => 1, start => 'on_date', start_date => '03/20/2016', diff --git a/FS/t/suite/02-bill_customer.t b/FS/t/suite/02-bill_customer.t index 0afffaa..e3f6406 100755 --- a/FS/t/suite/02-bill_customer.t +++ b/FS/t/suite/02-bill_customer.t @@ -23,8 +23,9 @@ ok($error eq '', "billed on $date") or diag($error); my $cust_bill = $return[0]; isa_ok($cust_bill, 'FS::cust_bill'); -# $60/month * (30 days - 19 days)/30 days = $42 -ok( $cust_bill->charged == 42.00, 'prorated first month correctly' ); +# Apr 1 - Mar 20 = 12 days +# 12/31 * $30 = 11.61 recurring, + 20.00 setup +ok( $cust_bill->charged == 31.61, 'prorated first month correctly' ); # the package bill date should now be 2016-04-01 my @lineitems = $cust_bill->cust_bill_pkg; |