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