X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fresultset%2Fis_paged.t;h=020afa076753d17f464032ffc501ce0db585392e;hb=d8cf3aa31fb3d6ff7813f021fcc002663725fc41;hp=c40adb7f91f8ca5559d4959c87bce5fafa656b1e;hpb=8c0a1f318ca3f27e200bb08388f086a2d2e18c09;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/resultset/is_paged.t b/t/resultset/is_paged.t
index c40adb7..020afa0 100644
--- a/t/resultset/is_paged.t
+++ b/t/resultset/is_paged.t
@@ -1,19 +1,19 @@
-use strict;
-use warnings;
-
-use lib qw(t/lib);
-use Test::More;
-use Test::Exception;
-use DBICTest;
-
-my $schema = DBICTest->init_schema();
-
-my $tkfks = $schema->resultset('Artist');
-
-ok !$tkfks->is_paged, 'vanilla resultset is not paginated';
-
-my $paginated = $tkfks->search(undef, { page => 5 });
-ok $paginated->is_paged, 'resultset is paginated now';
-
-done_testing;
-
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
+use strict;
+use warnings;
+
+
+use Test::More;
+use DBICTest;
+
+my $schema = DBICTest->init_schema();
+
+my $tkfks = $schema->resultset('Artist');
+
+ok !$tkfks->is_paged, 'vanilla resultset is not paginated';
+
+my $paginated = $tkfks->search(undef, { page => 5 });
+ok $paginated->is_paged, 'resultset is paginated now';
+
+done_testing;