[Bast-commits] r7895 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-11-15 11:09:17 +0000 (Sun, 15 Nov 2009)
New Revision: 7895

Modified:
   DBIx-Class/0.08/trunk/t/74mssql.t
Log:
Failing test to highlight mssql autoconnect regression

Modified: DBIx-Class/0.08/trunk/t/74mssql.t
===================================================================
--- DBIx-Class/0.08/trunk/t/74mssql.t	2009-11-14 23:00:28 UTC (rev 7894)
+++ DBIx-Class/0.08/trunk/t/74mssql.t	2009-11-15 11:09:17 UTC (rev 7895)
@@ -171,6 +171,16 @@
   $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 }) {