t/count/group_by_func.t

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