X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F75limit.t;h=686161af223473ebd475d6c563cf71a395dce8ab;hb=2ff179e22bca6e8b7c3cb131e234ce2ce8996113;hp=0fc7e3a519e7a9f67dccc8fd782c559106cc2422;hpb=a47e123334d8bcea0d34dc9ea09738d6f3b1fd49;p=dbsrgits%2FDBIx-Class.git diff --git a/t/75limit.t b/t/75limit.t index 0fc7e3a..686161a 100644 --- a/t/75limit.t +++ b/t/75limit.t @@ -7,11 +7,6 @@ use DBICTest; my $schema = DBICTest->init_schema(); -BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 9); -} - # test LIMIT my $it = $schema->resultset("CD")->search( {}, { rows => 3, @@ -51,6 +46,15 @@ is( $it->next, undef, "software next past end of resultset ok" ); ); is( $cds[0]->title, "Spoonful of bees", "software offset ok" ); + +@cds = $schema->resultset("CD")->search( {}, + { + offset => 2, + order_by => 'year' } +); +is( $cds[0]->title, "Spoonful of bees", "offset with no limit" ); + + # based on a failing criteria submitted by waswas # requires SQL::Abstract >= 1.20 $it = $schema->resultset("CD")->search( @@ -68,3 +72,4 @@ $it = $schema->resultset("CD")->search( ); is( $it->count, 1, "complex abstract count ok" ); +done_testing;