X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Fon_connect_do.t;h=ca13d6c3e60e6be9bce85489bcde6eb414dc166d;hb=971beb942408fe56c2b5afcea159d9ab4db14a27;hp=d132e358bc0d271af93fd58adffb8fb23c21cbcd;hpb=2dc8d9618fd296ecdd4484d3686832de0592e747;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/storage/on_connect_do.t b/t/storage/on_connect_do.t
index d132e35..ca13d6c 100644
--- a/t/storage/on_connect_do.t
+++ b/t/storage/on_connect_do.t
@@ -5,6 +5,7 @@ use Test::More tests => 12;
 
 use lib qw(t/lib);
 use base 'DBICTest';
+require DBI;
 
 
 my $schema = DBICTest->init_schema(
@@ -28,7 +29,7 @@ is_deeply (
 $schema->storage->disconnect;
 
 ok $schema->connection(
-    DBICTest->_database,
+    sub { DBI->connect(DBICTest->_database) },
     {
         on_connect_do       => [
             'CREATE TABLE TEST_empty (id INTEGER)',