Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
4fff7913 |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
4fff7913 |
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; |