fixed failing test for sqlt

[dbsrgits/DBIx-Class-Historic.git] / t / cdbi-sweet-t / 08pager.t

diff --git a/t/cdbi-sweet-t/08pager.t b/t/cdbi-sweet-t/08pager.t
index 57bd65d..07166e6 100644 (file)
--- a/t/cdbi-sweet-t/08pager.t
+++ b/t/cdbi-sweet-t/08pager.t
@@ -16,11 +16,12 @@ BEGIN {
 use lib 't/lib';
 
 use_ok('DBICTest');
-my $schema = DBICTest->init_schema();
 
-DBICTest::CD->load_components(qw/CDBICompat CDBICompat::Pager/);
+DBICTest::Schema::CD->load_components(qw/CDBICompat CDBICompat::Pager/);
 
-DBICTest::CD->result_source_instance->schema($schema);
+my $schema = DBICTest->init_schema(compose_connection => 1);
+
+DBICTest::CD->result_source_instance->schema->storage($schema->storage);
 
 my ( $pager, $it ) = DBICTest::CD->page(
     {},