Commit | Line | Data |
5978a0e8 |
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 | my $cd_rs = $schema->resultset('CD')->search ({}, { rows => 1, order_by => 'cdid' }); |
12 | |
13 | my $track_count = $cd_rs->first->tracks->count; |
14 | |
15 | cmp_ok ($track_count, '>', 1, 'First CD has several tracks'); |
16 | |
17 | is ($cd_rs->search_related ('tracks')->count, $track_count, 'related->count returns correct number'); |
18 | is (scalar ($cd_rs->search_related ('tracks')->all), $track_count, 'related->all returns correct number of objects'); |
19 | |
20 | done_testing; |