[Bast-commits] r6720 - DBIx-Class/0.08/branches/prefetch_limit/t/prefetch

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-19 14:33:49 +0000 (Fri, 19 Jun 2009)
New Revision: 6720

Modified:
   DBIx-Class/0.08/branches/prefetch_limit/t/prefetch/with_limit.t
Log:
no need to slice as use_prefetch already has a limit

Modified: DBIx-Class/0.08/branches/prefetch_limit/t/prefetch/with_limit.t
===================================================================
--- DBIx-Class/0.08/branches/prefetch_limit/t/prefetch/with_limit.t	2009-06-19 14:31:11 UTC (rev 6719)
+++ DBIx-Class/0.08/branches/prefetch_limit/t/prefetch/with_limit.t	2009-06-19 14:33:49 UTC (rev 6720)
@@ -8,7 +8,7 @@
 use lib qw(t/lib);
 use DBICTest;
 
-plan tests => 7;
+plan tests => 8;
 
 my $schema = DBICTest->init_schema();
 
@@ -84,7 +84,7 @@
   'single() with multiprefetch is illegal',
 );
 
-my $artist = $use_prefetch->search({'cds.title' => $artist_many_cds->cds->first->title })->slice->next;
+my $artist = $use_prefetch->search({'cds.title' => $artist_many_cds->cds->first->title })->next;
 
 is($artist->cds->count, 1, "count on search limiting prefetched has_many");