X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest.pm;h=5c76153f267bf0633d72b45c9f0921159cb9828c;hb=5b0b10fe7ae786a335ff61dfd83d0a717c56e020;hp=56d511a70c5604c2456ab7042bf26c1c2e93c3c1;hpb=579ca3f74419c0167a4659d5df9e875cd47ba3b7;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm
index 56d511a..5c76153 100755
--- a/t/lib/DBICTest.pm
+++ b/t/lib/DBICTest.pm
@@ -65,7 +65,13 @@ sub init_schema {
 
     my $schema;
 
-    $schema = DBICTest::Schema->compose_namespace('DBICTest');
+    if ($args{compose_connection}) {
+      $schema = DBICTest::Schema->compose_connection(
+                  'DBICTest', $self->_database
+                );
+    } else {
+      $schema = DBICTest::Schema->compose_namespace('DBICTest');
+    }
     if ( !$args{no_connect} ) {
       $schema = $schema->connect($self->_database);
       $schema->storage->on_connect_do(['PRAGMA synchronous = OFF']);