[Bast-commits] r3678 - DBIx-Class/0.08/branches/on_disconnect_do/t/lib

[tomboh at dev.catalyst.perl.org]

Author: tomboh
Date: 2007-08-15 09:24:32 +0100 (Wed, 15 Aug 2007)
New Revision: 3678

Modified:
   DBIx-Class/0.08/branches/on_disconnect_do/t/lib/DBICTest.pm
Log:
Restore code that I removed in revision 3640 that tests still need


Modified: DBIx-Class/0.08/branches/on_disconnect_do/t/lib/DBICTest.pm
===================================================================
--- DBIx-Class/0.08/branches/on_disconnect_do/t/lib/DBICTest.pm	2007-08-13 22:20:42 UTC (rev 3677)
+++ DBIx-Class/0.08/branches/on_disconnect_do/t/lib/DBICTest.pm	2007-08-15 08:24:32 UTC (rev 3678)
@@ -65,7 +65,13 @@
 
     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']);