|
Lines 263-278
subtest 'is_going_to_expire' => sub {
Link Here
|
| 263 |
|
263 |
|
| 264 |
|
264 |
|
| 265 |
subtest 'renew_account' => sub { |
265 |
subtest 'renew_account' => sub { |
| 266 |
plan tests => 36; |
266 |
plan tests => 48; |
| 267 |
|
267 |
|
| 268 |
for my $date ( '2016-03-31', '2016-11-30', dt_from_string() ) { |
268 |
for my $date ( '2016-03-31', '2016-11-30', '2019-01-31', dt_from_string() ) { |
| 269 |
my $dt = dt_from_string( $date, 'iso' ); |
269 |
my $dt = dt_from_string( $date, 'iso' ); |
| 270 |
Time::Fake->offset( $dt->epoch ); |
270 |
Time::Fake->offset( $dt->epoch ); |
| 271 |
my $a_month_ago = $dt->clone->subtract( months => 1, end_of_month => 'limit' )->truncate( to => 'day' ); |
271 |
my $a_month_ago = $dt->clone->subtract( months => 1, end_of_month => 'limit' )->truncate( to => 'day' ); |
| 272 |
my $a_year_later = $dt->clone->add( months => 12, end_of_month => 'limit' )->truncate( to => 'day' ); |
272 |
my $a_year_later = $dt->clone->add( months => 12, end_of_month => 'limit' )->truncate( to => 'day' ); |
| 273 |
my $a_year_later_minus_a_month = $dt->clone->add( months => 11, end_of_month => 'limit' )->truncate( to => 'day' ); |
273 |
my $a_year_later_minus_a_month = $a_month_ago->clone->add( months => 12, end_of_month => 'limit' )->truncate( to => 'day' ); |
| 274 |
my $a_month_later = $dt->clone->add( months => 1 , end_of_month => 'limit' )->truncate( to => 'day' ); |
274 |
my $a_month_later = $dt->clone->add( months => 1 , end_of_month => 'limit' )->truncate( to => 'day' ); |
| 275 |
my $a_year_later_plus_a_month = $dt->clone->add( months => 13, end_of_month => 'limit' )->truncate( to => 'day' ); |
275 |
my $a_year_later_plus_a_month = $a_month_later->clone->add( months => 12, end_of_month => 'limit' )->truncate( to => 'day' ); |
| 276 |
my $patron_category = $builder->build( |
276 |
my $patron_category = $builder->build( |
| 277 |
{ source => 'Category', |
277 |
{ source => 'Category', |
| 278 |
value => { |
278 |
value => { |
| 279 |
- |
|
|