1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
#!/usr/bin/perl
=head2 DESCRIPTION
Tests the effect of ordering and activating two sync_bill_date packages
either both before or both after noon, less than an hour apart. Ref RT#42108
and #72928.
Correct: The packages should always end up with the same next bill date,
and should be billed for a full period, except in the case where the first
package starts at midnight and the rounding mode is "always round down".
=cut
use strict;
use Test::More tests => 27;
use FS::Test;
use Date::Parse 'str2time';
use Date::Format 'time2str';
use Test::MockTime qw(set_fixed_time);
use FS::cust_main;
use FS::cust_pkg;
use FS::Conf;
my $FS= FS::Test->new;
foreach my $prorate_mode (1, 2, 3) {
diag("prorate_round_day = $prorate_mode");
# Create a package def with the sync_bill_date option.
my $error;
my $old_part_pkg = $FS->qsearchs('part_pkg', { pkgpart => 5 });
my $part_pkg = $old_part_pkg->clone;
BAIL_OUT("existing pkgpart 5 is not a flat monthly package")
unless $part_pkg->freq eq '1' and $part_pkg->plan eq 'flat';
$error = $part_pkg->insert(
options => { $old_part_pkg->options,
'sync_bill_date' => 1,
'prorate_round_day' => $prorate_mode, }
);
BAIL_OUT("can't configure package: $error") if $error;
my $pkgpart = $part_pkg->pkgpart;
# Create a clean customer with no other packages.
foreach my $hour (0, 8, 16) {
diag("$hour:00");
my $location = FS::cust_location->new({
address1 => '123 Example Street',
city => 'Sacramento',
state => 'CA',
country => 'US',
zip => '94901',
});
my $cust = FS::cust_main->new({
agentnum => 1,
refnum => 1,
last => 'Customer',
first => 'Sync bill date',
invoice_email => 'newcustomer@fake.freeside.biz',
payby => 'BILL',
bill_location => $location,
ship_location => $location,
});
$error = $cust->insert;
BAIL_OUT("can't create test customer: $error") if $error;
my @pkgs;
# Create and bill the first package.
set_fixed_time(str2time("2016-03-10 $hour:00"));
$pkgs[0] = FS::cust_pkg->new({ pkgpart => $pkgpart });
$error = $cust->order_pkg({ 'cust_pkg' => $pkgs[0] });
BAIL_OUT("can't order package: $error") if $error;
$error = $cust->bill_and_collect;
# Check the amount billed.
my ($cust_bill_pkg) = $pkgs[0]->cust_bill_pkg;
my $recur = $part_pkg->base_recur;
ok( $cust_bill_pkg->recur == $recur, "first package recur is $recur" )
or diag("first package recur is ".$cust_bill_pkg->recur);
# Create and bill the second package.
set_fixed_time(str2time("2016-03-10 $hour:01"));
$pkgs[1] = FS::cust_pkg->new({ pkgpart => $pkgpart });
$error = $cust->order_pkg({ 'cust_pkg' => $pkgs[1] });
BAIL_OUT("can't order package: $error") if $error;
$error = $cust->bill_and_collect;
# Check the amount billed.
if ( $prorate_mode == 3 and $hour == 0 ) {
# special case: a start date of midnight won't be rounded down but any
# later start date will, so the second package will be one day short.
$recur = sprintf('%.2f', $recur * 30/31);
}
($cust_bill_pkg) = $pkgs[1]->cust_bill_pkg;
ok( $cust_bill_pkg->recur == $recur, "second package recur is $recur" )
or diag("second package recur is ".$cust_bill_pkg->recur);
my @next_bill = map { time2str('%Y-%m-%d', $_->replace_old->get('bill')) } @pkgs;
ok( $next_bill[0] eq $next_bill[1],
"both packages will bill again on $next_bill[0]" )
or diag("first package bill date is $next_bill[0], second package is $next_bill[1]");
}
}
|
