[Bast-commits] r6755 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-21 21:12:40 +0000 (Sun, 21 Jun 2009)
New Revision: 6755

Modified:
   DBIx-Class/0.08/trunk/t/96multi_create_torture.t
Log:
Fix borked test

Modified: DBIx-Class/0.08/trunk/t/96multi_create_torture.t
===================================================================
--- DBIx-Class/0.08/trunk/t/96multi_create_torture.t	2009-06-21 13:21:23 UTC (rev 6754)
+++ DBIx-Class/0.08/trunk/t/96multi_create_torture.t	2009-06-21 21:12:40 UTC (rev 6755)
@@ -143,7 +143,11 @@
   is (
     $cds_2012->search(
       { 'tags.tag' => { -in => [qw/A B/] } },
-      { join => 'tags', group_by => 'me.cdid' }
+      {
+        join => 'tags',
+        group_by => 'me.cdid',
+        having => 'count(me.cdid) = 2',
+      }
     ),
     5,
     'All 10 tags were pairwise distributed between 5 year-2012 CDs'