t/count/group_by_func.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use lib qw(t/lib);
   7
   8 use DBICTest;
   9
  10 my $schema = DBICTest->init_schema();
  11
  12 my $rs = $schema->resultset ('CD')->search ({}, {
  13   select => [
  14     { substr => [ 'title', 1, 1 ], -as => 'initial' },
  15     { count => '*' },
  16   ],
  17   as => [qw/title_initial cnt/],
  18   group_by => ['initial'],
  19   order_by => { -desc => 'initial' },
  20   result_class => 'DBIx::Class::ResultClass::HashRefInflator',
  21 });
  22
  23 is_deeply (
  24   [$rs->all],
  25   [
  26     { title_initial => 'S', cnt => '1' },
  27     { title_initial => 'G', cnt => '1' },
  28     { title_initial => 'F', cnt => '1' },
  29     { title_initial => 'C', cnt => '2' },
  30   ],
  31   'Correct result',
  32 );
  33
  34 is ($rs->count, 4, 'Correct count');
  35
  36 done_testing;