[Bast-commits] r8746 - DBIx-Class/0.08/trunk/t/count

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-02-18 23:30:37 +0000 (Thu, 18 Feb 2010)
New Revision: 8746

Modified:
   DBIx-Class/0.08/trunk/t/count/distinct.t
Log:
Fix bogus test

Modified: DBIx-Class/0.08/trunk/t/count/distinct.t
===================================================================
--- DBIx-Class/0.08/trunk/t/count/distinct.t	2010-02-18 20:38:59 UTC (rev 8745)
+++ DBIx-Class/0.08/trunk/t/count/distinct.t	2010-02-18 23:30:37 UTC (rev 8746)
@@ -74,7 +74,7 @@
   $rs = $schema->resultset('Tag')->search({ tag => 'Blue' }, { '+select' => { max => 'tagid' }, distinct => 1 });
   is($get_count->($rs), 4, 'Count with +select aggreggate');
 
-  $rs = $schema->resultset('Tag')->search({}, { select => 'length(me.tag)', distinct => 1 });
+  $rs = $schema->resultset('Tag')->search({}, { select => [\'length(me.tag)'], distinct => 1 });
   is($get_count->($rs), 3, 'Count by distinct function result as select literal');
 }