Commit | Line | Data |
ae515736 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use lib qw(t/lib); |
6 | use DBICTest; |
7 | |
8 | my $schema = DBICTest->init_schema(); |
9 | |
10 | plan tests => 4; |
11 | |
12 | my $rs1 = $schema->resultset("Artist")->search({ 'tags.tag' => 'Blue' }, { join => {'cds' => 'tracks'}, prefetch => {'cds' => 'tags'} }); |
13 | my @artists = $rs1->all; |
14 | cmp_ok(@artists, '==', 1, "Two artists returned"); |
15 | |
16 | my $rs2 = $rs1->search({ artistid => '1' }, { join => {'cds' => {'cd_to_producer' => 'producer'} } }); |
17 | my $rs3 = $rs2->search_related('cds')->search({'cds.title' => 'Forkful of bees'}); |
18 | cmp_ok($rs3->count, '==', 3, "Three artists returned"); |
19 | |
20 | my $rs4 = $schema->resultset("CD")->search({ 'artist.artistid' => '1' }, { join => ['tracks', 'artist'], prefetch => 'artist' }); |
21 | my @rs4_results = $rs4->all; |
22 | |
23 | |
24 | is($rs4_results[0]->cdid, 1, "correct artist returned"); |
25 | |
26 | my $rs5 = $rs4->search({'tracks.title' => 'Sticky Honey'}); |
27 | is($rs5->count, 1, "search without using previous joins okay"); |
28 | |
29 | 1; |