Use the correct $PROGRAM_NAME for the initial dbicadmin POD gneration
[dbsrgits/DBIx-Class.git] / t / prefetch / lazy_cursor.t
index 090d464..de6e936 100644 (file)
@@ -78,7 +78,7 @@ is ($unordered_rs->next, undef, 'End of RS not lost');
 {
   my $non_uniquely_ordered_constrained = $schema->resultset('CD')->search(
     { artist => 1 },
-    { order_by => 'me.title', prefetch => 'tracks' },
+    { order_by => [qw( me.genreid me.title me.year )], prefetch => 'tracks' },
   );
 
   isa_ok ($non_uniquely_ordered_constrained->next, 'DBICTest::CD' );