X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsearch%2Fdistinct.t;h=07ac2095d0666264f8c076e8bd4050931b215d6d;hb=592fa86fab66a8c2d89b7aa45b958be2842f2805;hp=5ec213a268ffb8f6459c196b350b0b348a515b7b;hpb=d955e93801fcdb5f019866252d9155d727aad646;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/search/distinct.t b/t/search/distinct.t
index 5ec213a..07ac209 100644
--- a/t/search/distinct.t
+++ b/t/search/distinct.t
@@ -2,31 +2,114 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
 
 use lib qw(t/lib);
-use DBIC::SqlMakerTest;
 use DBICTest;
+use DBIC::SqlMakerTest;
 
 my $schema = DBICTest->init_schema();
 
 # make sure order + distinct do not double-inject group criteria
-my $year_rs = $schema->resultset ('CD')->search ({}, {
+my $rs = $schema->resultset ('CD')->search ({}, {
   distinct => 1,
-  columns => [qw/year/],
-  order_by => 'year',
+  columns => 'title',
+});
+
+# title + cdid == unique constraint
+my $unique_rs = $rs->search ({}, {
+  '+columns' => 'cdid',
 });
 
 is_same_sql_bind (
-  $year_rs->as_query,
+  $rs->search({}, { order_by => 'title' })->as_query,
+  '(
+    SELECT me.title
+      FROM cd me
+    GROUP BY me.title
+    ORDER BY title
+  )',
+  [],
+  'Correct GROUP BY on selection+order_by on same column',
+);
+
+is_same_sql_bind (
+  $rs->search({}, { order_by => 'year' })->as_query,
   '(
-    SELECT me.year
+    SELECT me.title
       FROM cd me
-    GROUP BY me.year
+    GROUP BY me.title
+    ORDER BY MIN(year)
+  )',
+  [],
+  'Correct GROUP BY on non-unique selection and order by a different column',
+);
+
+is_same_sql_bind (
+  $unique_rs->search({}, { order_by => 'year' })->as_query,
+  '(
+    SELECT me.title, me.cdid
+      FROM cd me
+    GROUP BY me.title, me.cdid, me.year
     ORDER BY year
   )',
   [],
-  'Correct GROUP BY',
+  'Correct GROUP BY on unique selection and order by a different column',
+);
+
+is_same_sql_bind (
+  $rs->search({}, { order_by => 'artist.name', join => 'artist'  })->as_query,
+  '(
+    SELECT me.title
+      FROM cd me
+      JOIN artist artist
+        ON artist.artistid = me.artist
+    GROUP BY me.title
+    ORDER BY MIN(artist.name)
+  )',
+  [],
+  'Correct GROUP BY on non-unique selection and external single order_by',
+);
+
+is_same_sql_bind (
+  $unique_rs->search({}, { order_by => 'artist.name', join => 'artist'  })->as_query,
+  '(
+    SELECT me.title, me.cdid
+      FROM cd me
+      JOIN artist artist
+        ON artist.artistid = me.artist
+    GROUP BY me.title, me.cdid, artist.name
+    ORDER BY artist.name
+  )',
+  [],
+  'Correct GROUP BY on unique selection and external single order_by',
+);
+
+is_same_sql_bind (
+  $rs->search({}, { order_by => 'tracks.title', join => 'tracks'  })->as_query,
+  '(
+    SELECT me.title
+      FROM cd me
+      LEFT JOIN track tracks
+        ON tracks.cd = me.cdid
+    GROUP BY me.title
+    ORDER BY MIN(tracks.title)
+  )',
+  [],
+  'Correct GROUP BY on non-unique selection and external multi order_by',
+);
+
+is_same_sql_bind (
+  $unique_rs->search({}, { order_by => 'tracks.title', join => 'tracks'  })->as_query,
+  '(
+    SELECT me.title, me.cdid
+      FROM cd me
+      LEFT JOIN track tracks
+        ON tracks.cd = me.cdid
+    GROUP BY me.title, me.cdid
+    ORDER BY MIN(tracks.title)
+  )',
+  [],
+  'Correct GROUP BY on unique selection and external multi order_by',
 );
 
 done_testing;