is_paginated method and test

[dbsrgits/DBIx-Class.git] / t / resultset / is_paginated.t

use strict;\r
use warnings;\r
\r
use lib qw(t/lib);\r
use Test::More;\r
use Test::Exception;\r
use DBICTest;\r
\r
my $schema = DBICTest->init_schema();\r
\r
my $tkfks = $schema->resultset('Artist');\r
\r
ok !$tkfks->is_paginated, 'vanilla resultset is not paginated';\r
\r
my $paginated = $tkfks->search(undef, { page => 5 });\r
ok $paginated->is_paginated, 'resultset is paginated now';\r
\r
done_testing;\r
\r