view release on metacpan or  search on metacpan

t/plugin/pager/select_with_pager.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use Test::More;

use File::Spec;
use lib File::Spec->catfile('t', 'lib');
use Mouse::Util;
use Aniki::Plugin::Pager;
use t::Util;

run_on_database {
    Mouse::Util::apply_all_roles(db, 'Aniki::Plugin::Pager');

    db->insert_multi(author => [map {
        +{ name => $_ }
    } qw/MOZNION KARUPA PAPIX/]);

    subtest 'ASC' => sub {
        my $rows = db->select_with_pager(author => {}, { rows => 2, page => 1, order_by => { id => 'ASC' } });
        isa_ok $rows, 'Aniki::Result::Collection';
        ok $rows->meta->does_role('Aniki::Result::Role::Pager');
        is $rows->count, 2;

        isa_ok $rows->pager, 'Data::Page::NoTotalEntries';
        is $rows->pager->current_page, 1;
        ok $rows->pager->has_next;

        $rows = db->select_with_pager(author => {}, { rows => 2, page => 2, order_by => { id => 'ASC' } });
        isa_ok $rows, 'Aniki::Result::Collection';
        ok $rows->meta->does_role('Aniki::Result::Role::Pager');
        is $rows->count, 1;
        is $rows->first->id, 3;

        isa_ok $rows->pager, 'Data::Page::NoTotalEntries';
        is $rows->pager->current_page, 2;
        ok !$rows->pager->has_next;

        $rows = db->select_with_pager(author => {}, { rows => 2, page => 2, order_by => { id => 'ASC' }, lower => { id => 2 } });
        isa_ok $rows, 'Aniki::Result::Collection';
        ok $rows->meta->does_role('Aniki::Result::Role::Pager');
        is $rows->count, 1;
        is $rows->first->id, 3;

        isa_ok $rows->pager, 'Data::Page::NoTotalEntries';
        is $rows->pager->current_page, 2;
        ok !$rows->pager->has_next;
    };

    subtest 'DESC' => sub {
        my $rows = db->select_with_pager(author => {}, { rows => 2, page => 1, order_by => { id => 'DESC' } });
        isa_ok $rows, 'Aniki::Result::Collection';
        ok $rows->meta->does_role('Aniki::Result::Role::Pager');
        is $rows->count, 2;
        is $rows->first->id, 3;

        isa_ok $rows->pager, 'Data::Page::NoTotalEntries';
        is $rows->pager->current_page, 1;
        ok $rows->pager->has_next;

        $rows = db->select_with_pager(author => {}, { rows => 2, page => 2, order_by => { id => 'DESC' } });
        isa_ok $rows, 'Aniki::Result::Collection';
        ok $rows->meta->does_role('Aniki::Result::Role::Pager');
        is $rows->count, 1;
        is $rows->first->id, 1;

        isa_ok $rows->pager, 'Data::Page::NoTotalEntries';
        is $rows->pager->current_page, 2;
        ok !$rows->pager->has_next;

        $rows = db->select_with_pager(author => {}, { rows => 2, page => 2, order_by => { id => 'DESC' }, upper => { id => 2 } });
        isa_ok $rows, 'Aniki::Result::Collection';
        ok $rows->meta->does_role('Aniki::Result::Role::Pager');
        is $rows->count, 1;
        is $rows->first->id, 1;

        isa_ok $rows->pager, 'Data::Page::NoTotalEntries';
        is $rows->pager->current_page, 2;
        ok !$rows->pager->has_next;
    };
};

done_testing();