X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fprefetch%2Fgrouped.t;h=8c29115cd57ad83389bddf3f349b5dcbbf7d7b10;hb=8423891f882417dd1f97ca5ef1effd929d624147;hp=8e0761289449f50f0537ce3212da6671fed0a173;hpb=e22cc77a16e8230c3403339eb84d2632cecf3415;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/prefetch/grouped.t b/t/prefetch/grouped.t
index 8e07612..8c29115 100644
--- a/t/prefetch/grouped.t
+++ b/t/prefetch/grouped.t
@@ -271,4 +271,16 @@ for ($cd_rs->all) {
   );
 }
 
+{
+    $schema->storage->debug(1);
+    my $cd_rs = $schema->resultset('CD')->search(undef, {
+            distinct => 1,
+            join     => [qw/ tracks /],
+            prefetch => [qw/ artist /],
+        });
+    
+    is($cd_rs->all, 5, 'search with has_many join and distinct ok');
+    $schema->storage->debug(0);
+}
+
 done_testing;