Institute a central "load this first in testing" package

[dbsrgits/DBIx-Class.git] / t / cdbi / 30-pager.t

diff --git a/t/cdbi/30-pager.t b/t/cdbi/30-pager.t
index 2a90bfd..eaac340 100644 (file)
--- a/t/cdbi/30-pager.t
+++ b/t/cdbi/30-pager.t
@@ -1,25 +1,20 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
+
 use strict;
-use Test::More;
+use warnings;
 
-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 Test::More;
 
 use lib 't/cdbi/testlib';
 use Film;
 
 my @film  = (
-       Film->create({ Title => 'Film 1' }),
-       Film->create({ Title => 'Film 2' }),
-       Film->create({ Title => 'Film 3' }),
-       Film->create({ Title => 'Film 4' }),
-       Film->create({ Title => 'Film 5' }),
+  Film->create({ Title => 'Film 1' }),
+  Film->create({ Title => 'Film 2' }),
+  Film->create({ Title => 'Film 3' }),
+  Film->create({ Title => 'Film 4' }),
+  Film->create({ Title => 'Film 5' }),
 );
 
 # first page
@@ -41,7 +36,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 +45,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;