[Bast-commits] r6838 - DBIx-Class/0.08/branches/grouped_prefetch/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-29 07:49:53 +0000 (Mon, 29 Jun 2009)
New Revision: 6838

Modified:
   DBIx-Class/0.08/branches/grouped_prefetch/t/60core.t
Log:
This is tested elsewhere

Modified: DBIx-Class/0.08/branches/grouped_prefetch/t/60core.t
===================================================================
--- DBIx-Class/0.08/branches/grouped_prefetch/t/60core.t	2009-06-29 07:46:13 UTC (rev 6837)
+++ DBIx-Class/0.08/branches/grouped_prefetch/t/60core.t	2009-06-29 07:49:53 UTC (rev 6838)
@@ -9,7 +9,7 @@
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 106;
+plan tests => 105;
 
 eval { require DateTime::Format::SQLite };
 my $NO_DTFM = $@ ? 1 : 0;
@@ -230,19 +230,9 @@
 is ($collapsed_or_rs->count, 4, 'Collapsed search count with OR ok');
 
 my $pref_or_rs = $collapsed_or_rs->search ({}, { prefetch => [qw/tags/] });
-is_same_sql_bind (
-  $pref_or_rs->as_query,
-  '(SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track, tags.tagid, tags.cd, tags.tag FROM cd me LEFT JOIN tags tags ON tags.cd = me.cdid WHERE ( ( tags.tag = ? OR tags.tag = ? ) ) GROUP BY me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track, tags.tagid, tags.cd, tags.tag ORDER BY cdid, tags.cd, tags.tag)',
-  [
-    [ 'tags.tag' => 'Cheesy' ],
-    [ 'tags.tag' => 'Blue' ],
-  ],
-  'Prefetch + distinct resulted in correct group_by',
-);
 is ($pref_or_rs->all, 4, 'Prefetched grouped search with OR returned correct number of rows');
 is ($pref_or_rs->count, 4, 'Prefetched grouped count with OR ok');
 
-
 {
   my $tcount = $schema->resultset('Track')->search(
     {},