[dbsrgits/DBIx-Class.git] / t / 15limit.t

use strict;
use Test::More;

BEGIN {
    eval "use DBD::SQLite";
    plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5);
}                                                                               

use lib qw(t/lib);

use_ok('DBICTest');

# test LIMIT
my $it = DBICTest::CD->search( {},
    { rows => 3,
      order_by => 'title' }
);
is( $it->count, 3, "count ok" );
is( $it->next->title, "Caterwaulin' Blues", "iterator->next ok" );
$it->next;
$it->next;
is( $it->next, undef, "next past end of resultset ok" );

# test OFFSET
my @cds = DBICTest::CD->search( {},
    { rows => 2,
      offset => 2,
      order_by => 'year' }
);
is( $cds[0]->title, "Spoonful of bees", "offset ok" );
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" );