From ae13f6c8d6b3f9bda476e06768a24042d89c8b0b Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Tue, 26 Apr 2016 13:06:37 -0700
Subject: [PATCH] fix basic prorate test

---
 FS/t/suite/01-order_pkg.t     | 2 +-
 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 1511350c4..ab5a2ddc6 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 0afffaa70..e3f6406f4 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;
-- 
2.11.0