X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F07connect_info.t;h=bb5c9adfc139880165507f8d73657b78fc98984d;hb=61fed351e2f295ecb63f0c238f50497e42723fbf;hp=e49dba1165c8e8f8d287c362c9e683a677104211;hpb=18b829f093f42145aa14e6f52faa1faeb6e8e695;p=catagits%2FCatalyst-Model-DBIC-Schema.git

diff --git a/t/07connect_info.t b/t/07connect_info.t
index e49dba1..bb5c9ad 100644
--- a/t/07connect_info.t
+++ b/t/07connect_info.t
@@ -11,6 +11,8 @@ use ASchemaClass;
 
 # execise the connect_info coercion
 
+my $coderef = sub {};
+
 my @tests = (
     ['dbi:SQLite:foo.db', '', ''],
     { dsn => 'dbi:SQLite:foo.db', user => '', password => '' },
@@ -38,6 +40,9 @@ my @tests = (
         pg_enable_utf8 => 1, auto_savepoint => 1 } ],
     { dsn => 'dbi:Pg:dbname=foo', user => 'user', password => 'pass',
         pg_enable_utf8 => 1, auto_savepoint => 1 },
+
+    [$coderef, { pg_enable_utf8 => 1, auto_savepoint => 1 }],
+    { dbh_maker => $coderef, pg_enable_utf8 => 1, auto_savepoint => 1 },
 );
 
 my @invalid = (