88 lines
3.0 KiB
Raku
Executable File
88 lines
3.0 KiB
Raku
Executable File
#!/usr/bin/perl
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use Test::More tests => 1;
|
|
use Test::Exception;
|
|
|
|
use t::lib::Mocks;
|
|
|
|
use Test::MockModule;
|
|
|
|
use MARC::Record;
|
|
use Try::Tiny;
|
|
|
|
use Koha::SearchEngine::Search;
|
|
|
|
subtest "pagination_bar tests" => sub {
|
|
plan tests => 14;
|
|
|
|
my @sort_by = ('relevance_dsc');
|
|
|
|
my ( $PAGE_NUMBERS, $hits_to_paginate, $pages, $current_page_number,
|
|
$previous_page_offset, $next_page_offset, $last_page_offset )
|
|
= Koha::SearchEngine::Search->pagination_bar(
|
|
{
|
|
hits => 500,
|
|
max_result_window => 1000,
|
|
results_per_page => 20,
|
|
offset => 160,
|
|
sort_by => \@sort_by
|
|
}
|
|
);
|
|
is( $hits_to_paginate, 500,
|
|
"We paginate all hits if less than max_result_window" );
|
|
is( $pages, 25, "We have hits/hits_to_paginate pages" );
|
|
is( $current_page_number, 9,
|
|
"We calculate current page by offset/results_per_page plus 1" );
|
|
is( $previous_page_offset, 140,
|
|
"Previous page is current offset minus reults per page" );
|
|
is( $next_page_offset, 180,
|
|
"Next page is current offset plus reults per page" );
|
|
is( $last_page_offset, 480,
|
|
"Last page is pages minus 1 times reults per page" );
|
|
is( @$PAGE_NUMBERS, 10, "If on first ten pages we only show 10 pages" );
|
|
|
|
(
|
|
$PAGE_NUMBERS, $hits_to_paginate, $pages, $current_page_number,
|
|
$previous_page_offset, $next_page_offset, $last_page_offset
|
|
)
|
|
= Koha::SearchEngine::Search->pagination_bar(
|
|
{
|
|
hits => 500,
|
|
max_result_window => 480,
|
|
results_per_page => 20,
|
|
offset => 240,
|
|
sort_by => \@sort_by
|
|
}
|
|
);
|
|
is( $hits_to_paginate, 480,
|
|
"We paginate all hits if less than max_result_window" );
|
|
is( $pages, 24, "We have hits/hits_to_paginate pages" );
|
|
is( $current_page_number, 13,
|
|
"We calculate current page by offset/results_per_page plus 1" );
|
|
is( $previous_page_offset, 220,
|
|
"Previous page is current offset minus reults per page" );
|
|
is( $next_page_offset, 260,
|
|
"Next page is current offset plus reults per page" );
|
|
is( $last_page_offset, 460,
|
|
"Last page is pages minus 1 times reults per page" );
|
|
is( @$PAGE_NUMBERS, 20, "If past first ten pages we show 20 pages" );
|
|
|
|
};
|