3 # Copyright 2019 Koha Development team
5 # This file is part of Koha
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 use Test::More tests => 2;
27 use t::lib::TestBuilder;
30 my $schema = Koha::Database->new->schema;
31 my $builder = t::lib::TestBuilder->new;
33 subtest 'hidden_in_opac() tests' => sub {
37 $schema->storage->txn_begin;
39 my $item = $builder->build_sample_item({ itemlost => 2 });
42 # disable hidelostitems as it interteres with OpachiddenItems for the calculation
43 t::lib::Mocks::mock_preference( 'hidelostitems', 0 );
45 ok( !$item->hidden_in_opac, 'No rules passed, shouldn\'t hide' );
46 ok( !$item->hidden_in_opac({ rules => $rules }), 'Empty rules passed, shouldn\'t hide' );
48 # enable hidelostitems to verify correct behaviour
49 t::lib::Mocks::mock_preference( 'hidelostitems', 1 );
50 ok( $item->hidden_in_opac, 'Even with no rules, item should hide because of hidelostitems syspref' );
52 # disable hidelostitems
53 t::lib::Mocks::mock_preference( 'hidelostitems', 0 );
54 my $withdrawn = $item->withdrawn + 1; # make sure this attribute doesn't match
56 $rules = { withdrawn => [$withdrawn], itype => [ $item->itype ] };
58 ok( $item->hidden_in_opac({ rules => $rules }), 'Rule matching itype passed, should hide' );
62 $schema->storage->txn_rollback;
65 subtest 'pending_hold() tests' => sub {
69 $schema->storage->txn_begin;
71 my $dbh = C4::Context->dbh;
72 my $item = $builder->build_sample_item({ itemlost => 0 });
73 my $itemnumber = $item->itemnumber;
75 # disable AllowItemsOnHoldCheckout as it ignores pending holds
76 t::lib::Mocks::mock_preference( 'AllowItemsOnHoldCheckout', 0 );
77 $dbh->do("INSERT INTO tmp_holdsqueue (surname,borrowernumber,itemnumber) VALUES ('Clamp',42,$itemnumber)");
78 ok( $item->pending_hold, "Yes, we have a pending hold");
79 t::lib::Mocks::mock_preference( 'AllowItemsOnHoldCheckout', 1 );
80 ok( !$item->pending_hold, "We don't consider a pending hold if hold items can be checked out");
81 t::lib::Mocks::mock_preference( 'AllowItemsOnHoldCheckout', 0 );
82 $dbh->do("DELETE FROM tmp_holdsqueue WHERE itemnumber=$itemnumber");
83 ok( !$item->pending_hold, "We don't have a pending hold if nothing in the tmp_holdsqueue");