[Bast-commits] r7357 - DBIx-Class/0.08/branches/ado_mssql/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-08-21 04:53:53 +0000 (Fri, 21 Aug 2009)
New Revision: 7357

Modified:
   DBIx-Class/0.08/branches/ado_mssql/t/747mssql_ado.t
Log:
slightly better mars test, still passes

Modified: DBIx-Class/0.08/branches/ado_mssql/t/747mssql_ado.t
===================================================================
--- DBIx-Class/0.08/branches/ado_mssql/t/747mssql_ado.t	2009-08-21 04:32:14 UTC (rev 7356)
+++ DBIx-Class/0.08/branches/ado_mssql/t/747mssql_ado.t	2009-08-21 04:53:53 UTC (rev 7357)
@@ -45,8 +45,8 @@
 }
 
 # test multiple active cursors
-my $rs1 = $schema->resultset('Artist');
-my $rs2 = $schema->resultset('Artist');
+my $rs1 = $schema->resultset('Artist')->search({}, { order_by => 'artistid' });
+my $rs2 = $schema->resultset('Artist')->search({}, { order_by => 'name' });
 
 while ($rs1->next) {
   ok eval { $rs2->next }, 'multiple active cursors';