Lines 248-258
subtest 'renew_account' => sub {
Link Here
|
248 |
for my $date ( '2016-03-31', '2016-11-30', dt_from_string() ) { |
248 |
for my $date ( '2016-03-31', '2016-11-30', dt_from_string() ) { |
249 |
my $dt = dt_from_string( $date, 'iso' ); |
249 |
my $dt = dt_from_string( $date, 'iso' ); |
250 |
Time::Fake->offset( $dt->epoch ); |
250 |
Time::Fake->offset( $dt->epoch ); |
251 |
my $a_month_ago = $dt->clone->subtract( months => 1 )->truncate( to => 'day' ); |
251 |
my $a_month_ago = $dt->clone->subtract( months => 1, end_of_month => 'limit' )->truncate( to => 'day' ); |
252 |
my $a_year_later = $dt->clone->add( months => 12 )->truncate( to => 'day' ); |
252 |
my $a_year_later = $dt->clone->add( months => 12, end_of_month => 'limit' )->truncate( to => 'day' ); |
253 |
my $a_year_later_minus_a_month = $dt->clone->add( months => 11 )->truncate( to => 'day' ); |
253 |
my $a_year_later_minus_a_month = $dt->clone->add( months => 11, end_of_month => 'limit' )->truncate( to => 'day' ); |
254 |
my $a_month_later = $dt->clone->add( months => 1 )->truncate( to => 'day' ); |
254 |
my $a_month_later = $dt->clone->add( months => 1 , end_of_month => 'limit' )->truncate( to => 'day' ); |
255 |
my $a_year_later_plus_a_month = $dt->clone->add( months => 13 )->truncate( to => 'day' ); |
255 |
my $a_year_later_plus_a_month = $dt->clone->add( months => 13, end_of_month => 'limit' )->truncate( to => 'day' ); |
256 |
my $patron_category = $builder->build( |
256 |
my $patron_category = $builder->build( |
257 |
{ source => 'Category', |
257 |
{ source => 'Category', |
258 |
value => { |
258 |
value => { |
259 |
- |
|
|