Massive cleanup of DateTime test dependencies, other interim
[dbsrgits/DBIx-Class.git] / t / storage / on_connect_do.t
index d132e35..ca13d6c 100644 (file)
@@ -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)',