Attachment #66631 for bug #19209

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

Lines 379-385 Currently count, pager, update and delete are covered. Link Here

(-)a/Koha/Objects.pm (-1 / +1 lines)
379	sub AUTOLOAD {	379	sub AUTOLOAD {
380	my ( $self, @params ) = @_;	380	my ( $self, @params ) = @_;
381		381
382	my @known_methods = qw( count pager update delete result_class single slice );	382	my @known_methods = qw( count is_paged pager update delete result_class single slice );
383	my $method = our $AUTOLOAD;	383	my $method = our $AUTOLOAD;
384	$method =~ s/.*:://;	384	$method =~ s/.*:://;
385		385





use Modern::Perl;

use Test::More tests => 16;
use Test::Warn;

use Koha::Authority::Types;

};

$schema->storage->txn_rollback;

subtest '->is_paged tests' => sub {

    plan tests => 2;

    $schema->storage->txn_begin;

    foreach (1..10) {
        $builder->build_object({ class => 'Koha::Patrons' });
    }

    my $patrons = Koha::Patrons->search();
    ok( !$patrons->is_paged, 'Search is not paged' );
    $patrons = Koha::Patrons->search( undef, { 'page' => 1, 'rows' => 3 } );
    ok( $patrons->is_paged, 'Search is paged' );

    $schema->storage->txn_rollback;
}

Return to bug 19209

Lines 19-25 Link Here

(-)a/t/db_dependent/Koha/Objects.t (-2 / +19 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 15;	22	use Test::More tests => 16;
23	use Test::Warn;	23	use Test::Warn;
24		24
25	use Koha::Authority::Types;	25	use Koha::Authority::Types;
Lines 214-216 subtest 'Exceptions' => sub { Link Here
214	};	214	};
215		215
216	$schema->storage->txn_rollback;	216	$schema->storage->txn_rollback;
217	-	217
		218	subtest '->is_paged tests' => sub {
		219
		220	plan tests => 2;
		221
		222	$schema->storage->txn_begin;
		223
		224	foreach (1..10) {
		225	$builder->build_object({ class => 'Koha::Patrons' });
		226	}
		227
		228	my $patrons = Koha::Patrons->search();
		229	ok( !$patrons->is_paged, 'Search is not paged' );
		230	$patrons = Koha::Patrons->search( undef, { 'page' => 1, 'rows' => 3 } );
		231	ok( $patrons->is_paged, 'Search is paged' );
		232
		233	$schema->storage->txn_rollback;
		234	}