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

Bug 31447: Add unit tests

Browse source 
To test prove t/db_dependent/Circulation.t

Sponsored-by: Koha-Suomi Oy

Signed-off-by: David Nind <david@davidnind.com>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Emmi Takkinen 2022-11-03 14:40:40 +02:00 committed by Tomas Cohen Arazi
parent a02813fb5b
commit c7a995d28f
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 41 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
t/db_dependent/Circulation.t
View file

@ -18,7 +18,7 @@
use Modern::Perl; use Modern::Perl;
use utf8; use utf8;
use Test::More tests => 63; use Test::More tests => 64;
use Test::Exception; use Test::Exception;
use Test::MockModule; use Test::MockModule;
use Test::Deep qw( cmp_deeply ); use Test::Deep qw( cmp_deeply );
@ -5693,6 +5693,46 @@ subtest "GetSoonestRenewDate tests" => sub {
); );
}; };
subtest "CanBookBeIssued + needsconfirmation message" => sub {
plan tests => 4;
my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
my $library = $builder->build_object( { class => 'Koha::Libraries' } );
my $biblio = $builder->build_object({ class => 'Koha::Biblios' });
my $biblioitem = $builder->build_object({ class => 'Koha::Biblioitems', value => { biblionumber => $biblio->biblionumber }});
my $item = $builder->build_object({ class => 'Koha::Items' , value => { biblionumber => $biblio->biblionumber }});
my $hold = $builder->build_object({ class => 'Koha::Holds', value => {
biblionumber => $item->biblionumber,
branchcode => $library->branchcode,
itemnumber => undef,
itemtype => undef,
priority => 1,
found => undef,
suspend => 0,
item_group_id => $item->item_group
}});
my ( $error, $needsconfirmation, $alerts, $messages );
( $error, $needsconfirmation, $alerts, $messages ) = CanBookBeIssued( $patron, $item->barcode );
is($needsconfirmation->{resbranchcode}, $hold->branchcode, "Branchcodes match when hold exists.");
$hold->priority(0)->store();
$hold->found("W")->store();
( $error, $needsconfirmation, $alerts, $messages ) = CanBookBeIssued( $patron, $item->barcode );
is($needsconfirmation->{resbranchcode}, $hold->branchcode, "Branchcodes match when hold is waiting.");
$hold->found("T")->store();
( $error, $needsconfirmation, $alerts, $messages ) = CanBookBeIssued( $patron, $item->barcode );
is($needsconfirmation->{resbranchcode}, $hold->branchcode, "Branchcodes match when hold is being transferred.");
$hold->found("P")->store();
( $error, $needsconfirmation, $alerts, $messages ) = CanBookBeIssued( $patron, $item->barcode );
is($needsconfirmation->{resbranchcode}, $hold->branchcode, "Branchcodes match when hold is being processed.");
};
$schema->storage->txn_rollback; $schema->storage->txn_rollback;
C4::Context->clear_syspref_cache(); C4::Context->clear_syspref_cache();
$branches = Koha::Libraries->search(); $branches = Koha::Libraries->search();