[dbsrgits/DBIx-Class-Historic.git] / t / resultset / is_paged.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_paged, 'vanilla resultset is not paginated';\r
\r
my $paginated = $tkfks->search(undef, { page => 5 });\r
ok $paginated->is_paged, 'resultset is paginated now';\r
\r
done_testing;\r
\r
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
305ce558	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