[Bast-commits] r6507 - DBIx-Class/0.08/branches/having_breaks_count/t

[gphat at dev.catalyst.perl.org]

Author: gphat
Date: 2009-06-04 20:39:45 +0000 (Thu, 04 Jun 2009)
New Revision: 6507

Modified:
   DBIx-Class/0.08/branches/having_breaks_count/t/60core.t
Log:
Break count with a +select and count(*)


Modified: DBIx-Class/0.08/branches/having_breaks_count/t/60core.t
===================================================================
--- DBIx-Class/0.08/branches/having_breaks_count/t/60core.t	2009-06-04 20:38:04 UTC (rev 6506)
+++ DBIx-Class/0.08/branches/having_breaks_count/t/60core.t	2009-06-04 20:39:45 UTC (rev 6507)
@@ -9,7 +9,7 @@
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 106;
+plan tests => 107;
 
 eval { require DateTime::Format::MySQL };
 my $NO_DTFM = $@ ? 1 : 0;
@@ -119,6 +119,13 @@
 
 is($schema->resultset("Artist")->count, 4, 'count ok');
 
+my $rs = $schema->resultset('CD')->search(undef, {
+    '+select' => 'year AS whosawhutsit',
+    '+as' => 'year',
+    having => 'whosawhustit > 1999'
+});
+ok($rs->count, 'count of query with having');
+
 # test find_or_new
 {
   my $existing_obj = $schema->resultset('Artist')->find_or_new({