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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-29 08:14:45 +0000 (Mon, 29 Jun 2009)
New Revision: 6842

Modified:
   DBIx-Class/0.08/branches/grouped_prefetch/t/prefetch/grouped.t
Log:
clearer

Modified: DBIx-Class/0.08/branches/grouped_prefetch/t/prefetch/grouped.t
===================================================================
--- DBIx-Class/0.08/branches/grouped_prefetch/t/prefetch/grouped.t	2009-06-29 08:11:13 UTC (rev 6841)
+++ DBIx-Class/0.08/branches/grouped_prefetch/t/prefetch/grouped.t	2009-06-29 08:14:45 UTC (rev 6842)
@@ -98,10 +98,7 @@
         JOIN cd cd ON cd.cdid = me.cd
       WHERE ( me.cd IN ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? ) )
     )',
-    [ map
-      { [ 'me.cd' => $_] }
-      ( $cd_rs->get_column ('cdid')->all, $cd_rs->get_column ('cdid')->all )
-    ],
+    [ map { [ 'me.cd' => $_] } ( ($cd_rs->get_column ('cdid')->all) x 2 ) ],
     'next() query generated expected SQL',
   );