1use strict;
2use Test::More;
3
4BEGIN {
5  eval "use DBIx::Class::CDBICompat;";
6  if ($@) {
7    plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
8    next;
9  }
10  eval "use DBD::SQLite";
11  plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 6);
12}
13
14use lib 't/cdbi/testlib';
15use Film;
16
17my @film  = (
18  Film->create({ Title => 'Film 1' }),
19  Film->create({ Title => 'Film 2' }),
20  Film->create({ Title => 'Film 3' }),
21  Film->create({ Title => 'Film 4' }),
22  Film->create({ Title => 'Film 5' }),
23);
24
25# first page
26my ( $pager, $it ) = Film->page(
27    {},
28    { rows => 3,
29      page => 1 }
30);
31
32is( $pager->entries_on_this_page, 3, "entries_on_this_page ok" );
33
34is( $pager->next_page, 2, "next_page ok" );
35
36is( $it->next->title, "Film 1", "iterator->next ok" );
37
38$it->next;
39$it->next;
40
41is( $it->next, undef, "next past end of page ok" );
42
43# second page
44( $pager, $it ) = Film->page( 
45    {},
46    { rows => 3,
47      page => 2 }
48);
49
50is( $pager->entries_on_this_page, 2, "entries on second page ok" );
51
52is( $it->next->title, "Film 4", "second page first title ok" );
53