From: Brandon L. Black <blblack@gmail.com>
Date: Tue, 6 Jun 2006 12:31:03 +0000 (+0000)
Subject: new specific test for connect_info coderefs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f733d664944e84ebab65fc831ec7d5b52c0eb3e6;p=dbsrgits%2FDBIx-Class-Historic.git

new specific test for connect_info coderefs
---

diff --git a/t/32connect_code_ref.t b/t/32connect_code_ref.t
new file mode 100644
index 0000000..4b90532
--- /dev/null
+++ b/t/32connect_code_ref.t
@@ -0,0 +1,24 @@
+use strict;
+use warnings;  
+
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+
+plan tests => 1;
+
+# Set up the "usual" sqlite for DBICTest
+my $normal_schema = DBICTest->init_schema;
+
+# Steal the dsn, which should be like 'dbi:SQLite:t/var/DBIxClass.db'
+my $normal_dsn = $normal_schema->storage->connect_info->[0];
+
+# Make sure we have no active connection
+$normal_schema->storage->disconnect;
+
+# Make a new clone with a new connection, using a code reference
+my $code_ref_schema = $normal_schema->connect(sub { DBI->connect($normal_dsn); });
+
+# Stolen from 60core.t - this just verifies things seem to work at all
+my @art = $code_ref_schema->resultset("Artist")->search({ }, { order_by => 'name DESC'});
+cmp_ok(@art, '==', 3, "Three artists returned");