10 my $it = DBICTest::CD->search(
12 { order_by => 'title',
16 my $pager = DBICTest::CD->page;
18 is( $pager->entries_on_this_page, 3, "entries_on_this_page ok" );
20 is( $pager->next_page, 2, "next_page ok" );
22 is( $it->next->title, "Caterwaulin' Blues", "iterator->next ok" );
27 is( $it->next, undef, "next past end of page ok" );
29 # second page, testing with array
30 my @page2 = DBICTest::CD->search(
32 { order_by => 'title',
36 $pager = DBICTest::CD->page;
38 is( $pager->entries_on_this_page, 2, "entries on second page ok" );
40 is( $page2[0]->title, "Generic Manufactured Singles", "second page first title ok" );
42 # based on a failing criteria submitted by waswas
43 # requires SQL::Abstract >= 1.20
44 $it = DBICTest::CD->search(
51 -not_like => 'Forkful%'
57 is( $it->count, 1, "complex abstract count ok" );