X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2Ft%2Fsuite%2F02-bill_customer.t;h=3fa908e96ab27fae0474639430f264d8a8b7d78e;hp=e3f6406f45bcfe852b5af9b07f587c458c7528c3;hb=14c989e0aea38668f27dc0492f8e6749bf0cd98c;hpb=a057e75a089baf5c36c3523b5014ada747a925a6 diff --git a/FS/t/suite/02-bill_customer.t b/FS/t/suite/02-bill_customer.t index e3f6406f4..3fa908e96 100755 --- a/FS/t/suite/02-bill_customer.t +++ b/FS/t/suite/02-bill_customer.t @@ -23,9 +23,10 @@ ok($error eq '', "billed on $date") or diag($error); my $cust_bill = $return[0]; isa_ok($cust_bill, 'FS::cust_bill'); -# 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' ); +# Apr 1 - Mar 20 = 12 days = 288 hours +# Apr 1 - Mar 1 = 31 days - 1 hour (DST) = 743 hours +# 288/743 * $30 = $11.63 recur + $20.00 setup +ok( $cust_bill->charged == 31.63, 'prorated first month correctly' ); # the package bill date should now be 2016-04-01 my @lineitems = $cust_bill->cust_bill_pkg;