From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 25 Sep 2009 06:46:22 +0000 (+0000)
Subject: test on_connect_do with a coderef connect_info too
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c9aa29f7bbd173aa2624880f954057b126beb25;p=dbsrgits%2FDBIx-Class-Historic.git

test on_connect_do with a coderef connect_info too
---

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)',