Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
5978a0e8 |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
5978a0e8 |
7 | use DBICTest; |
8 | |
9 | my $schema = DBICTest->init_schema(); |
10 | my $cd_rs = $schema->resultset('CD')->search ({}, { rows => 1, order_by => 'cdid' }); |
11 | |
12 | my $track_count = $cd_rs->first->tracks->count; |
13 | |
14 | cmp_ok ($track_count, '>', 1, 'First CD has several tracks'); |
15 | |
533b7dba |
16 | is ($cd_rs->search_related ('tracks')->count, $track_count, 'related->count returns correct number chained off a limited rs'); |
17 | is (scalar ($cd_rs->search_related ('tracks')->all), $track_count, 'related->all returns correct number of objects chained off a limited rs'); |
18 | |
19 | |
20 | my $joined_cd_rs = $cd_rs->search ({}, { |
21 | join => 'tracks', rows => 2, distinct => 1, having => \ 'count(tracks.trackid) > 2', |
22 | }); |
23 | |
24 | my $multiple_track_count = $schema->resultset('Track')->search ({ |
25 | cd => { -in => $joined_cd_rs->get_column ('cdid')->as_query } |
26 | })->count; |
27 | |
28 | |
29 | is ( |
30 | $joined_cd_rs->search_related ('tracks')->count, |
31 | $multiple_track_count, |
32 | 'related->count returns correct number chained off a grouped rs', |
33 | ); |
34 | is ( |
35 | scalar ($joined_cd_rs->search_related ('tracks')->all), |
36 | $multiple_track_count, |
37 | 'related->all returns correct number of objects chained off a grouped rs', |
38 | ); |
5978a0e8 |
39 | |
40 | done_testing; |