[Bast-commits] r8611 - DBIx-Class/0.08/branches/chaining_fixes/t/search

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-02-11 09:31:08 +0000 (Thu, 11 Feb 2010)
New Revision: 8611

Modified:
   DBIx-Class/0.08/branches/chaining_fixes/t/search/select_chains.t
Log:
MOAR testing

Modified: DBIx-Class/0.08/branches/chaining_fixes/t/search/select_chains.t
===================================================================
--- DBIx-Class/0.08/branches/chaining_fixes/t/search/select_chains.t	2010-02-11 06:01:27 UTC (rev 8610)
+++ DBIx-Class/0.08/branches/chaining_fixes/t/search/select_chains.t	2010-02-11 09:31:08 UTC (rev 8611)
@@ -14,8 +14,9 @@
 my @chain = (
   {
     columns     => [ 'cdid' ],
-    '+select'   => [ { lower => 'title' }, 'genreid' ],
-    '+as'       => [ qw/title_lc genreid/ ],
+    '+columns'  => [ { title_lc => { lower => 'title' } } ],
+    '+select'   => [ 'genreid' ],
+    '+as'       => [ 'genreid' ],
   } => 'SELECT me.cdid, LOWER( title ), me.genreid FROM cd me',
 
   {