Main Koha release repository
https://koha-community.org
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
98 lines
2.4 KiB
98 lines
2.4 KiB
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
|
|
use C4::Reserves;
|
|
use Koha::DateUtils;
|
|
|
|
use t::lib::Mocks;
|
|
use t::lib::TestBuilder;
|
|
|
|
use Test::More tests => 5;
|
|
|
|
use_ok('C4::Reserves');
|
|
|
|
my $schema = Koha::Database->new->schema;
|
|
$schema->storage->txn_begin;
|
|
my $builder = t::lib::TestBuilder->new();
|
|
|
|
t::lib::Mocks::mock_preference('ExpireReservesOnHolidays', 0);
|
|
|
|
my $today = dt_from_string();
|
|
my $reserve_reservedate = $today->clone;
|
|
$reserve_reservedate->subtract(days => 30);
|
|
|
|
my $reserve1_expirationdate = $today->clone;
|
|
$reserve1_expirationdate->add(days => 1);
|
|
|
|
# Reserve not expired
|
|
my $reserve1 = $builder->build({
|
|
source => 'Reserve',
|
|
value => {
|
|
reservedate => $reserve_reservedate,
|
|
expirationdate => $reserve1_expirationdate,
|
|
cancellationdate => undef,
|
|
priority => 0,
|
|
found => 'W',
|
|
},
|
|
});
|
|
|
|
CancelExpiredReserves();
|
|
my $r1 = Koha::Holds->find($reserve1->{reserve_id});
|
|
ok($r1, 'Reserve 1 should not be canceled.');
|
|
|
|
my $reserve2_expirationdate = $today->clone;
|
|
$reserve2_expirationdate->subtract(days => 1);
|
|
|
|
# Reserve expired
|
|
my $reserve2 = $builder->build({
|
|
source => 'Reserve',
|
|
value => {
|
|
reservedate => $reserve_reservedate,
|
|
expirationdate => $reserve2_expirationdate,
|
|
cancellationdate => undef,
|
|
priority => 0,
|
|
found => 'W',
|
|
},
|
|
});
|
|
|
|
CancelExpiredReserves();
|
|
my $r2 = Koha::Holds->find($reserve2->{reserve_id});
|
|
is($r2, undef,'reserve 2 should be canceled.');
|
|
|
|
# Reserve expired on holiday
|
|
my $reserve3 = $builder->build({
|
|
source => 'Reserve',
|
|
value => {
|
|
reservedate => $reserve_reservedate,
|
|
expirationdate => $reserve2_expirationdate,
|
|
branchcode => 'LIB1',
|
|
cancellationdate => undef,
|
|
priority => 0,
|
|
found => 'W',
|
|
},
|
|
});
|
|
|
|
Koha::Caches->get_instance()->flush_all();
|
|
my $holiday = $builder->build({
|
|
source => 'SpecialHoliday',
|
|
value => {
|
|
branchcode => 'LIB1',
|
|
day => $today->day,
|
|
month => $today->month,
|
|
year => $today->year,
|
|
title => 'My holiday',
|
|
isexception => 0
|
|
},
|
|
});
|
|
|
|
CancelExpiredReserves();
|
|
my $r3 = Koha::Holds->find($reserve3->{reserve_id});
|
|
ok($r3,'Reserve 3 should not be canceled.');
|
|
|
|
t::lib::Mocks::mock_preference('ExpireReservesOnHolidays', 1);
|
|
CancelExpiredReserves();
|
|
$r3 = Koha::Holds->find($reserve3->{reserve_id});
|
|
is($r3, undef,'Reserve 3 should be canceled.');
|
|
|
|
$schema->storage->txn_rollback;
|
|
|