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

Bug 25808: (QA follow-up) Add regression test

Browse source 
This patch adds a basic regression test for the bug.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

JD amended patch: remove trailing space char

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Martin Renvoize 2021-01-14 14:40:31 +00:00 committed by Jonathan Druart
parent 6cdfa37e63
commit bdf1ec7b71
1 changed files with 52 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
t/db_dependent/SIP/ILS.t
View file

@ -20,14 +20,16 @@
use Modern::Perl;
use Test::More tests => 10;
use Test::More tests => 11;
use t::lib::TestBuilder;
use t::lib::Mocks;
use C4::Reserves;
use C4::Circulation;
use Koha::CirculationRules;
use Koha::Database;
use Koha::DateUtils;
BEGIN {
use_ok('C4::SIP::ILS');
@ -122,4 +124,53 @@ subtest cancel_hold => sub {
is( $item->biblio->holds->count(), 0, "Bib has 0 holds remaining");
is( $item->holds->count(), 0, "Item has 0 holds remaining");
};
subtest checkout => sub {
plan tests => 1;
my $library = $builder->build_object ({ class => 'Koha::Libraries' });
my $patron = $builder->build_object(
{
class => 'Koha::Patrons',
value => {
branchcode => $library->branchcode,
}
}
);
t::lib::Mocks::mock_userenv({ branchcode => $library->branchcode, flags => 1 });
my $item = $builder->build_sample_item({
library => $library->branchcode,
});
Koha::CirculationRules->set_rules(
{
categorycode => $patron->categorycode,
branchcode => $library->branchcode,
itemtype => $item->effective_itemtype,
rules => {
onshelfholds => 1,
reservesallowed => 3,
holds_per_record => 3,
issuelength => 5,
lengthunit => 'days',
renewalsallowed => 6,
}
}
);
AddIssue( $patron->unblessed, $item->barcode, undef, 0 );
my $checkout = $item->checkout;
ok( defined($checkout), "Checkout added");
is( $checkout->renewals, 0, "Correct renewals");
my $ils = C4::SIP::ILS->new({ id => $library->branchcode });
my $sip_patron = C4::SIP::ILS::Patron->new( $patron->cardnumber );
my $transaction = $ils->checkout($patron->cardnumber,$item->barcode,undef,undef);
is( $transaction->{screen_msg},"Item already checked out to you: renewing item.","We get a success message when issue is renewed");
is( $checkout->renewals, 1, "Renewals has been reduced");
};
$schema->storage->txn_rollback;