new config option to DBICTest to let you set an alternative storage type, start on...

[dbsrgits/DBIx-Class.git] / t / cdbi-t / 30-pager.t

use strict;\r
use Test::More;\r
\r
BEGIN {\r
  eval "use DBIx::Class::CDBICompat;";\r
  if ($@) {\r
    plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');\r
    next;\r
  }\r
  eval "use DBD::SQLite";\r
  plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 6);\r
}\r
\r
use lib 't/testlib';\r
use Film;\r
\r
my @film  = (\r
	Film->create({ Title => 'Film 1' }),\r
	Film->create({ Title => 'Film 2' }),\r
	Film->create({ Title => 'Film 3' }),\r
	Film->create({ Title => 'Film 4' }),\r
	Film->create({ Title => 'Film 5' }),\r
);\r
\r
# first page\r
my ( $pager, $it ) = Film->page(\r
    {},\r
    { rows => 3,\r
      page => 1 }\r
);\r
\r
is( $pager->entries_on_this_page, 3, "entries_on_this_page ok" );\r
\r
is( $pager->next_page, 2, "next_page ok" );\r
\r
is( $it->next->title, "Film 1", "iterator->next ok" );\r
\r
$it->next;\r
$it->next;\r
\r
is( $it->next, undef, "next past end of page ok" );\r
\r
# second page\r
( $pager, $it ) = Film->page( \r
    {},\r
    { rows => 3,\r
      page => 2 }\r
);\r
\r
is( $pager->entries_on_this_page, 2, "entries on second page ok" );\r
\r
is( $it->next->title, "Film 4", "second page first title ok" );\r