From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 8 Dec 2009 23:19:49 +0000 (+0000)
Subject: Test for immediate connection with known storage type
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf89555eaed934a61e91f48a9365d9660006b2d1;p=dbsrgits%2FDBIx-Class-Historic.git

Test for immediate connection with known storage type
---

diff --git a/t/746mssql.t b/t/746mssql.t
index 4e014c5..e34d0f0 100644
--- a/t/746mssql.t
+++ b/t/746mssql.t
@@ -28,6 +28,11 @@ my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
 
 isa_ok( $schema->storage, 'DBIx::Class::Storage::DBI::ODBC::Microsoft_SQL_Server' );
 
+{
+  my $schema2 = $schema->connect ($schema->storage->connect_info);
+  ok (! $schema2->storage->connected, 'a re-connected cloned schema starts unconnected');
+}
+
 $schema->storage->dbh_do (sub {
     my ($storage, $dbh) = @_;
     eval { $dbh->do("DROP TABLE artist") };