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 | ||
07a287ce | 14 | TODO: { |
70307c78 | 15 | local $TODO = 'Needs -paren fixes in SQLA before it can work'; |
07a287ce | 16 | my $cds = $schema->resultset("CD")->search({ cdid => 1 }, { join => { cd_to_producer => 'producer' } }); |
17 | is($cds->count, 1, "extra joins do not explode single entity count"); | |
18 | } |