gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 19196: Unit tests 

This patch adds unit tests for the new pagination Mojo plugin.

Sponsored-by: ByWater Solutions
Sponsored-by: Camden County

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Lari Taskula <lari.taskula@jns.fi>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Tomas Cohen Arazi 2017-08-29 17:00:50 -03:00 committed by Jonathan Druart
parent 0b0cc8584f
commit b811dbbd8d
1 changed files with 110 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
t/Koha/REST/Plugin/Pagination.t Normal file
View File

@ -0,0 +1,110 @@
#!/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;
# Dummy app for testing the plugin
use Mojolicious::Lite;
app->log->level('error');
plugin 'Koha::REST::Plugin::Pagination';
get '/empty' => sub {
my $c = shift;
$c->render( json => { ok => 1 }, status => 200 );
};
get '/pagination_headers' => sub {
my $c = shift;
$c->add_pagination_headers({ total => 10, params => { page => 2, per_page => 3, firstname => 'Jonathan' } });
$c->render( json => { ok => 1 }, status => 200 );
};
get '/pagination_headers_first_page' => sub {
my $c = shift;
$c->add_pagination_headers({ total => 10, params => { page => 1, per_page => 3, firstname => 'Jonathan' } });
$c->render( json => { ok => 1 }, status => 200 );
};
get '/pagination_headers_last_page' => sub {
my $c = shift;
$c->add_pagination_headers({ total => 10, params => { page => 4, per_page => 3, firstname => 'Jonathan' } });
$c->render( json => { ok => 1 }, status => 200 );
};
# The tests
use Test::More tests => 1;
use Test::Mojo;
subtest 'add_pagination_headers() tests' => sub {
plan tests => 45;
my $t = Test::Mojo->new;
$t->get_ok('/empty')
->status_is( 200 )
->header_is( 'X-Total-Count' => undef, 'X-Total-Count is undefined' )
->header_is( 'Link' => undef, 'Link is undefined' );
$t->get_ok('/pagination_headers')
->status_is( 200 )
->header_is( 'X-Total-Count' => 10, 'X-Total-Count contains the passed value' )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="prev",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=1.*>; rel="prev",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="prev",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="next",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=3.*>; rel="next",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="next",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="first",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=1.*>; rel="first",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="first",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="last"/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=4.*>; rel="last"/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="last"/ );
$t->get_ok('/pagination_headers_first_page')
->status_is( 200 )
->header_is( 'X-Total-Count' => 10, 'X-Total-Count contains the passed value' )
->header_unlike( 'Link' => qr/<http:\/\/.*\?.*>; rel="prev",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="next",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=2.*>; rel="next",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="next",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="first",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=1.*>; rel="first",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="first",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="last"/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=4.*>; rel="last"/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="last"/ );
$t->get_ok('/pagination_headers_last_page')
->status_is( 200 )
->header_is( 'X-Total-Count' => 10, 'X-Total-Count contains the passed value' )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="prev",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=3.*>; rel="prev",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="prev",/ )
->header_unlike( 'Link' => qr/<http:\/\/.*\?.*>; rel="next",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="first",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=1.*>; rel="first",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="first",/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*per_page=3.*>; rel="last"/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*page=4.*>; rel="last"/ )
->header_like( 'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="last"/ );
};