Commit | Line | Data |
1e9e7f58 |
1 | sub run_tests { |
2 | my $schema = shift; |
3 | |
4 | plan tests => 2; |
5 | |
6 | my $rs1 = $schema->resultset("Artist")->search({ 'tags.tag' => 'Blue' }, { join => {'cds' => 'tracks'}, prefetch => {'cds' => 'tags'} }); |
7 | my @artists = $rs1->all; |
8 | cmp_ok(@artists, '==', 1, "Two artists returned"); |
9 | |
10 | my $rs2 = $rs1->search({ artistid => '1' }, { join => {'cds' => {'cd_to_producer' => 'producer'} } }); |
11 | my $rs3 = $rs2->search_related('cds')->search({'cds.title' => 'Forkful of bees'}); |
12 | cmp_ok($rs3->count, '==', 3, "Three artists returned"); |
13 | |
14 | } |
15 | 1; |