5 eval "use DBIx::Class::CDBICompat;";
\r
7 plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
\r
10 eval "use DBD::SQLite";
\r
11 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 6);
\r
14 use lib 't/testlib';
\r
18 Film->create({ Title => 'Film 1' }),
\r
19 Film->create({ Title => 'Film 2' }),
\r
20 Film->create({ Title => 'Film 3' }),
\r
21 Film->create({ Title => 'Film 4' }),
\r
22 Film->create({ Title => 'Film 5' }),
\r
26 my ( $pager, $it ) = Film->page(
\r
32 is( $pager->entries_on_this_page, 3, "entries_on_this_page ok" );
\r
34 is( $pager->next_page, 2, "next_page ok" );
\r
36 is( $it->next->title, "Film 1", "iterator->next ok" );
\r
41 is( $it->next, undef, "next past end of page ok" );
\r
44 ( $pager, $it ) = Film->page(
\r
50 is( $pager->entries_on_this_page, 2, "entries on second page ok" );
\r
52 is( $it->next->title, "Film 4", "second page first title ok" );
\r