[Bast-commits] r6735 - DBIx-Class/0.08/trunk/t/prefetch

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-20 10:37:52 +0000 (Sat, 20 Jun 2009)
New Revision: 6735

Modified:
   DBIx-Class/0.08/trunk/t/prefetch/with_limit.t
Log:
Clarify test

Modified: DBIx-Class/0.08/trunk/t/prefetch/with_limit.t
===================================================================
--- DBIx-Class/0.08/trunk/t/prefetch/with_limit.t	2009-06-20 08:34:42 UTC (rev 6734)
+++ DBIx-Class/0.08/trunk/t/prefetch/with_limit.t	2009-06-20 10:37:52 UTC (rev 6735)
@@ -14,19 +14,18 @@
 
 
 my $no_prefetch = $schema->resultset('Artist')->search(
-  undef,
-  { rows => 3 }
-);
-
-my $use_prefetch = $schema->resultset('Artist')->search(
   [   # search deliberately contrived
     { 'artwork.cd_id' => undef },
     { 'tracks.title' => { '!=' => 'blah-blah-1234568' }}
   ],
+  { rows => 3, join => { cds => [qw/artwork tracks/] },
+ }
+);
+
+my $use_prefetch = $no_prefetch->search(
+  {},
   {
     prefetch => 'cds',
-    join => { cds => [qw/artwork tracks/] },
-    rows     => 3,
     order_by => { -desc => 'name' },
   }
 );