X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2F30-pager.t;h=cb1cee94a688e07529674ab741daa9750441698c;hb=d9bd5195;hp=f7cb86764743006dea16eb30e8fa531f6f547f5a;hpb=6a3bf2519832866d037740c5fb22341dad6f8bb3;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/30-pager.t b/t/cdbi/30-pager.t index f7cb867..cb1cee9 100644 --- a/t/cdbi/30-pager.t +++ b/t/cdbi/30-pager.t @@ -1,16 +1,6 @@ use strict; use Test::More; -BEGIN { - eval "use DBIx::Class::CDBICompat;"; - if ($@) { - plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required'); - next; - } - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 6); -} - use lib 't/cdbi/testlib'; use Film; @@ -41,7 +31,7 @@ $it->next; is( $it->next, undef, "next past end of page ok" ); # second page -( $pager, $it ) = Film->page( +( $pager, $it ) = Film->page( {}, { rows => 3, page => 2 } @@ -50,3 +40,5 @@ is( $it->next, undef, "next past end of page ok" ); is( $pager->entries_on_this_page, 2, "entries on second page ok" ); is( $it->next->title, "Film 4", "second page first title ok" ); + +done_testing;