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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-11-24 18:48:01 +0000 (Tue, 24 Nov 2009)
New Revision: 7951

Modified:
   DBIx-Class/0.08/trunk/t/95sql_maker_quote.t
Log:
Extra sqla quoting test(2)

Modified: DBIx-Class/0.08/trunk/t/95sql_maker_quote.t
===================================================================
--- DBIx-Class/0.08/trunk/t/95sql_maker_quote.t	2009-11-24 18:43:42 UTC (rev 7950)
+++ DBIx-Class/0.08/trunk/t/95sql_maker_quote.t	2009-11-24 18:48:01 UTC (rev 7951)
@@ -239,6 +239,21 @@
   $sql, \@bind,
   q/SELECT `me`.`cdid`, `me`.`artist`, `me`.`title` FROM `cd` `me` WHERE ( `cdid` rlike ? ) GROUP BY `title` HAVING count(me.artist) > ?/,
   [ [ cdid => 'X'], ['cnt' => '2'] ],
+  'Quoting works with where/having arrayrefsrefs',
+);
+
+
+($sql, @bind) = $sql_maker->select(
+  [ { me => 'cd' }                  ],
+  [qw/ me.cdid me.artist me.title  /],
+  { cdid => \'rlike X'              },
+  { group_by => 'title', having => \'count(me.artist) > 2' },
+);
+
+is_same_sql_bind(
+  $sql, \@bind,
+  q/SELECT `me`.`cdid`, `me`.`artist`, `me`.`title` FROM `cd` `me` WHERE ( `cdid` rlike X ) GROUP BY `title` HAVING count(me.artist) > 2/,
+  [],
   'Quoting works with where/having scalarrefs',
 );