Attachment #67544 for bug #19369

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





plugin 'Koha::REST::Plugin::Pagination';

# For add_pagination_headers()

get '/empty' => sub {
    my $c = shift;

    $c->render( json => { ok => 1 }, status => 200 );
};

# For dbic_merge_pagination

get '/dbic_merge_pagination' => sub {
    my $c = shift;
    my $filter = { firstname => 'Kyle', surname => 'Hall' };
    $filter = $c->dbic_merge_pagination({ filter => $filter, params => { _page => 1, _per_page => 3 } });
    $c->render( json => $filter, status => 200 );
};

# The tests

use Test::More tests => 2;
use Test::Mojo;

subtest 'add_pagination_headers() tests' => sub {

      ->header_like(   'Link' => qr/<http:\/\/.*\?.*_page=4.*>; rel="last"/ )
      ->header_like(   'Link' => qr/<http:\/\/.*\?.*firstname=Jonathan.*>; rel="last"/ );
};

subtest 'dbic_merge_pagination() tests' => sub {

    plan tests => 3;

    my $t = Test::Mojo->new;

    $t->get_ok('/dbic_merge_pagination')
      ->status_is(200)
      ->json_is({ firstname => 'Kyle', surname => 'Hall', page => 1, rows => 3 });
};

Return to bug 19369

Lines 24-29 app->log->level('error'); Link Here

(-)a/t/Koha/REST/Plugin/Pagination.t (-2 / +22 lines)
24		24
25	plugin 'Koha::REST::Plugin::Pagination';	25	plugin 'Koha::REST::Plugin::Pagination';
26		26
		27	# For add_pagination_headers()
27		28
28	get '/empty' => sub {	29	get '/empty' => sub {
29	my $c = shift;	30	my $c = shift;
Lines 48-56 get '/pagination_headers_last_page' => sub { Link Here
48	$c->render( json => { ok => 1 }, status => 200 );	49	$c->render( json => { ok => 1 }, status => 200 );
49	};	50	};
50		51
		52	# For dbic_merge_pagination
		53
		54	get '/dbic_merge_pagination' => sub {
		55	my $c = shift;
		56	my $filter = { firstname => 'Kyle', surname => 'Hall' };
		57	$filter = $c->dbic_merge_pagination({ filter => $filter, params => { _page => 1, _per_page => 3 } });
		58	$c->render( json => $filter, status => 200 );
		59	};
		60
51	# The tests	61	# The tests
52		62
53	use Test::More tests => 1;	63	use Test::More tests => 2;
54	use Test::Mojo;	64	use Test::Mojo;
55		65
56	subtest 'add_pagination_headers() tests' => sub {	66	subtest 'add_pagination_headers() tests' => sub {
Lines 108-110 subtest 'add_pagination_headers() tests' => sub { Link Here
108	->header_like( 'Link' => qr/<http:\/\/.\?._page=4.*>; rel="last"/ )	118	->header_like( 'Link' => qr/<http:\/\/.\?._page=4.*>; rel="last"/ )
109	->header_like( 'Link' => qr/<http:\/\/.\?.firstname=Jonathan.*>; rel="last"/ );	119	->header_like( 'Link' => qr/<http:\/\/.\?.firstname=Jonathan.*>; rel="last"/ );
110	};	120	};
111	-	121
		122	subtest 'dbic_merge_pagination() tests' => sub {
		123
		124	plan tests => 3;
		125
		126	my $t = Test::Mojo->new;
		127
		128	$t->get_ok('/dbic_merge_pagination')
		129	->status_is(200)
		130	->json_is({ firstname => 'Kyle', surname => 'Hall', page => 1, rows => 3 });
		131	};