Commit | Line | Data |
aeaf3ce2 |
1 | use strict; |
2 | use Test::More; |
3 | |
4 | BEGIN { |
5 | eval "use DBD::SQLite"; |
6 | plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5); |
7 | } |
8 | |
9 | use lib qw(t/lib); |
10 | |
11 | use_ok('DBICTest'); |
12 | |
13 | # test LIMIT |
14 | my $it = DBICTest::CD->search( {}, |
15 | { rows => 3, |
16 | order_by => 'title' } |
17 | ); |
18 | is( $it->count, 3, "count ok" ); |
19 | is( $it->next->title, "Caterwaulin' Blues", "iterator->next ok" ); |
20 | $it->next; |
21 | $it->next; |
22 | is( $it->next, undef, "next past end of resultset ok" ); |
23 | |
24 | # test OFFSET |
25 | my @cds = DBICTest::CD->search( {}, |
26 | { rows => 2, |
27 | offset => 2, |
28 | order_by => 'year' } |
29 | ); |
30 | is( $cds[0]->title, "Spoonful of bees", "offset ok" ); |