X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F746mssql.t;h=e34d0f0706473e22ed7446bc43d8406c6c8d62a2;hb=5c89c897f1377aede43f0e668e79876cec44f55f;hp=4e014c591da966b26baa3366cfce0fdcb93e53aa;hpb=444b791cf8dc4df67e9589d8cc0ef541a38d3363;p=dbsrgits%2FDBIx-Class.git

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") };