[Bast-commits] r6511 - DBIx-Class/0.08/branches/sybase/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-04 23:02:48 +0000 (Thu, 04 Jun 2009)
New Revision: 6511

Modified:
   DBIx-Class/0.08/branches/sybase/t/746sybase.t
Log:
test sybase group_by count, works

Modified: DBIx-Class/0.08/branches/sybase/t/746sybase.t
===================================================================
--- DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-06-04 21:51:13 UTC (rev 6510)
+++ DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-06-04 23:02:48 UTC (rev 6511)
@@ -11,7 +11,7 @@
 plan skip_all => 'Set $ENV{DBICTEST_SYBASE_DSN}, _USER and _PASS to run this test'
   unless ($dsn && $user);
 
-plan tests => (17 + 4*2)*2;
+plan tests => (18 + 4*2)*2;
 
 my @storage_types = (
   'DBI::Sybase',
@@ -95,6 +95,16 @@
   is( $it->next->name, "Artist 5", "iterator->next ok" );
   is( $it->next, undef, "next past end of resultset ok" );
 
+# now try a grouped count
+  $schema->resultset('Artist')->create({ name => 'Artist 6' })
+    for (1..6);
+
+  $it = $schema->resultset('Artist')->search({}, {
+    group_by => 'name'
+  });
+
+  is( $it->count, 7, 'COUNT of GROUP_BY ok' );
+
   SKIP: {
     skip 'quoting bug with NoBindVars', 4*2
         if $storage_type eq 'DBI::Sybase::NoBindVars';