From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

KARUPA / Aniki-1.06 / t / plugin / pager / select_with_pager.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84

              
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();