Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 21181: Unit tests

Browse source 
Signed-off-by: Claire Gravely <claire.gravely@bsz-bw.de>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Nick Clemens 2019-04-24 01:21:56 +00:00 committed by Martin Renvoize
parent 7e559e5963
commit ab417c290a
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F
1 changed files with 39 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
t/db_dependent/Reserves/CancelExpiredReserves.t
View file

@ -1,7 +1,7 @@
#!/usr/bin/perl
use Modern::Perl;
use Test::More tests => 2;
use Test::More tests => 3;
use t::lib::Mocks;
use t::lib::TestBuilder;
@ -161,6 +161,44 @@ subtest 'Test handling of waiting reserves by CancelExpiredReserves' => sub {
CancelExpiredReserves();
my $count2 = Koha::Holds->search->count;
is( $count2, 1, 'Also the waiting expired hold should be cancelled now');
};
subtest 'Test handling of in transit reserves by CancelExpiredReserves' => sub {
plan tests => 2;
my $builder = t::lib::TestBuilder->new();
t::lib::Mocks::mock_preference( 'ExpireReservesMaxPickUpDelay', 1 );
my $expdate = dt_from_string->add( days => -2 );
my $reserve = $builder->build({
source => 'Reserve',
value => {
expirationdate => '2018-01-01',
found => 'T',
cancellationdate => undef,
suspend => 0,
suspend_until => undef
}
});
my $count = Koha::Holds->search->count;
CancelExpiredReserves();
is(Koha::Holds->search->count, $count-1, "Transit hold is cancelled if ExpireReservesMaxPickUpDelay set");
t::lib::Mocks::mock_preference( 'ExpireReservesMaxPickUpDelay', 0 );
my $reserve2 = $builder->build({
source => 'Reserve',
value => {
expirationdate => '2018-01-01',
found => 'T',
cancellationdate => undef,
suspend => 0,
suspend_until => undef
}
});
CancelExpiredReserves();
is(Koha::Holds->search->count, $count-1, "Transit hold is cancelled if ExpireReservesMaxPickUpDelay unset");
};
$schema->storage->txn_rollback;