View | Details | Raw Unified | Return to bug 11999
Collapse All | Expand All

(-)a/t/db_dependent/Reserves.t (-3 / +39 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 62;
20
use Test::More tests => 63;
21
use Test::MockModule;
21
use Test::MockModule;
22
use Test::Warn;
22
use Test::Warn;
23
23
Lines 61-67 my $frameworkcode = q//; Link Here
61
t::lib::Mocks::mock_preference('ReservesNeedReturns', 1);
61
t::lib::Mocks::mock_preference('ReservesNeedReturns', 1);
62
62
63
# Somewhat arbitrary field chosen for age restriction unit tests. Must be added to db before the framework is cached
63
# Somewhat arbitrary field chosen for age restriction unit tests. Must be added to db before the framework is cached
64
$dbh->do("update marc_subfield_structure set kohafield='biblioitems.agerestriction' where tagfield='521' and tagsubfield='a' and frameworkcode=?", undef, $frameworkcode);
64
$dbh->do(q|
65
    INSERT INTO marc_subfield_structure (frameworkcode, tagfield, tagsubfield, kohafield)
66
    VALUES ('', '521', 'a', 'biblioitems.agerestriction')
67
    ON DUPLICATE KEY UPDATE kohafield = VALUES(kohafield)
68
|);
65
my $cache = Koha::Caches->get_instance;
69
my $cache = Koha::Caches->get_instance;
66
$cache->clear_from_cache("MarcStructure-0-$frameworkcode");
70
$cache->clear_from_cache("MarcStructure-0-$frameworkcode");
67
$cache->clear_from_cache("MarcStructure-1-$frameworkcode");
71
$cache->clear_from_cache("MarcStructure-1-$frameworkcode");
Lines 1035-1040 subtest 'MoveReserve additional test' => sub { Link Here
1035
1039
1036
};
1040
};
1037
1041
1042
1043
subtest 'check maxreserve test' => sub {
1044
1045
    plan tests => 2;
1046
1047
    t::lib::Mocks::mock_preference('maxreserves', 1);
1048
    # Create the items and patrons we need
1049
    my $biblio_1 = $builder->build_sample_biblio();
1050
    my $biblio_2 = $builder->build_sample_biblio();
1051
    my $itype = $builder->build_object({ class => "Koha::ItemTypes", value => { notforloan => 0 } });
1052
    my $item_1 = $builder->build_sample_item({ biblionumber => $biblio_1->biblionumber,notforloan => 0, itype => $itype->itemtype });
1053
    my $item_2 = $builder->build_sample_item({ biblionumber => $biblio_2->biblionumber, notforloan => 0, itype => $itype->itemtype });
1054
    my $patron = $builder->build_object({ class => "Koha::Patrons" });
1055
1056
1057
    # Place a hold on the title for both patrons
1058
    my $reserve = AddReserve(
1059
        {
1060
            branchcode     => $item_1->homebranch,
1061
            borrowernumber => $patron->borrowernumber,
1062
            biblionumber   => $biblio_1->biblionumber,
1063
            priority       => 1,
1064
            itemnumber     => $item_1->itemnumber,
1065
        }
1066
    );
1067
1068
    my $borrowernumber = $patron->borrowernumber;
1069
1070
    is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblio_2->biblionumber)->{status} , 'tooManyReserves', "Reserving more than maxreserves is forbidden");
1071
    is( C4::Reserves::CanItemBeReserved($borrowernumber, $item_2->itemnumber, $item_2->homebranch)->{status} , 'tooManyReserves', "Reserving more than maxreserves is forbidden");
1072
1073
};
1074
1038
sub count_hold_print_messages {
1075
sub count_hold_print_messages {
1039
    my $message_count = $dbh->selectall_arrayref(q{
1076
    my $message_count = $dbh->selectall_arrayref(q{
1040
        SELECT COUNT(*)
1077
        SELECT COUNT(*)
1041
- 

Return to bug 11999