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

(-)a/Koha/Objects.pm (-1 / +1 lines)
Lines 379-385 Currently count, pager, update and delete are covered. Link Here
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
(-)a/t/db_dependent/Koha/Objects.t (-2 / +19 lines)
Lines 19-25 Link Here
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
}

Return to bug 19209