Commit | Line | Data |
---|---|---|
21bd38f8 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use Test::More; | |
5 | ||
6 | use lib qw(t/lib); | |
7 | ||
8 | use DBICTest; | |
9 | ||
10 | plan tests => 1; | |
11 | ||
12 | my $schema = DBICTest->init_schema(); | |
13 | ||
d07ee31a | 14 | { |
07a287ce | 15 | my $cds = $schema->resultset("CD")->search({ cdid => 1 }, { join => { cd_to_producer => 'producer' } }); |
16 | is($cds->count, 1, "extra joins do not explode single entity count"); | |
17 | } |