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

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2009-06-19 14:31:11 +0000 (Fri, 19 Jun 2009)
New Revision: 6719

Modified:
   DBIx-Class/0.08/branches/prefetch_limit/t/prefetch/with_limit.t
Log:
Add extra test for prefetch+has_many


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 13:44:26 UTC (rev 6718)
+++ DBIx-Class/0.08/branches/prefetch_limit/t/prefetch/with_limit.t	2009-06-19 14:31:11 UTC (rev 6719)
@@ -83,3 +83,8 @@
   qr/resultsets prefetching has_many/,
   'single() with multiprefetch is illegal',
 );
+
+my $artist = $use_prefetch->search({'cds.title' => $artist_many_cds->cds->first->title })->slice->next;
+
+is($artist->cds->count, 1, "count on search limiting prefetched has_many");
+