From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 15 Nov 2009 11:09:17 +0000 (+0000)
Subject: Failing test to highlight mssql autoconnect regression
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=559ae74c70e1dff7929ffe80531b79a3c9f32377;p=dbsrgits%2FDBIx-Class-Historic.git

Failing test to highlight mssql autoconnect regression
---

diff --git a/t/74mssql.t b/t/74mssql.t
index 007b9d3..f2059be 100644
--- a/t/74mssql.t
+++ b/t/74mssql.t
@@ -171,6 +171,16 @@ SQL
   $rs->reset;
 }
 
+# test op-induced autoconnect
+lives_ok (sub {
+
+  my $schema =  DBICTest::Schema->clone;
+  $schema->connection($dsn, $user, $pass);
+
+  my $artist = $schema->resultset ('Artist')->search ({}, { order_by => 'artistid' })->next;
+  is ($artist->id, 1, 'Artist retrieved successfully');
+}, 'Query-induced autoconnect works');
+
 # clean up our mess
 END {
   if (my $dbh = eval { $schema->storage->dbh }) {