Commit | Line | Data |
---|---|---|
91461038 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use lib qw(t/lib); | |
5 | use Test::More; | |
6 | use Test::Exception; | |
7 | use DBICTest; | |
8 | ||
9 | my $schema = DBICTest->init_schema(); | |
10 | ||
11 | my $tkfks = $schema->resultset('Artist'); | |
12 | ||
13 | ok !$tkfks->is_paged, 'vanilla resultset is not paginated'; | |
14 | ||
15 | my $paginated = $tkfks->search(undef, { page => 5 }); | |
16 | ok $paginated->is_paged, 'resultset is paginated now'; | |
17 | ||
18 | done_testing; |