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