[Bast-commits] r7730 - DBIx-Class/0.08/trunk/t/storage

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-09-25 06:46:22 +0000 (Fri, 25 Sep 2009)
New Revision: 7730

Modified:
   DBIx-Class/0.08/trunk/t/storage/on_connect_do.t
Log:
test on_connect_do with a coderef connect_info too

Modified: DBIx-Class/0.08/trunk/t/storage/on_connect_do.t
===================================================================
--- DBIx-Class/0.08/trunk/t/storage/on_connect_do.t	2009-09-24 21:44:01 UTC (rev 7729)
+++ DBIx-Class/0.08/trunk/t/storage/on_connect_do.t	2009-09-25 06:46:22 UTC (rev 7730)
@@ -5,6 +5,7 @@
 
 use lib qw(t/lib);
 use base 'DBICTest';
+require DBI;
 
 
 my $schema = DBICTest->init_schema(
@@ -28,7 +29,7 @@
 $schema->storage->disconnect;
 
 ok $schema->connection(
-    DBICTest->_database,
+    sub { DBI->connect(DBICTest->_database) },
     {
         on_connect_do       => [
             'CREATE TABLE TEST_empty (id INTEGER)',