Commit | Line | Data |
50891152 |
1 | use strict; |
2 | use Test::More; |
3 | |
4 | BEGIN { |
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 | |
14 | use lib 't/cdbi/testlib'; |
15 | use Film; |
16 | |
17 | my @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 |
26 | my ( $pager, $it ) = Film->page( |
27 | {}, |
28 | { rows => 3, |
29 | page => 1 } |
30 | ); |
31 | |
32 | is( $pager->entries_on_this_page, 3, "entries_on_this_page ok" ); |
33 | |
34 | is( $pager->next_page, 2, "next_page ok" ); |
35 | |
36 | is( $it->next->title, "Film 1", "iterator->next ok" ); |
37 | |
38 | $it->next; |
39 | $it->next; |
40 | |
41 | is( $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 | |
50 | is( $pager->entries_on_this_page, 2, "entries on second page ok" ); |
51 | |
52 | is( $it->next->title, "Film 4", "second page first title ok" ); |