Restore code that I removed in revision 3640 that tests still need
Tom Hukins [Wed, 15 Aug 2007 08:24:32 +0000 (08:24 +0000)]
t/lib/DBICTest.pm

index 56d511a..5c76153 100755 (executable)
@@ -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']);