8 use DBIC::SqlMakerTest;
12 my $schema = DBICTest->init_schema();
16 my $rs = $schema->resultset("Artist")
17 ->search_related('cds',
18 { 'tracks.position' => [1,2] },
19 { prefetch => [qw/tracks artist/] },
21 is ($rs->all, 5, 'Correct number of objects');
22 is ($rs->count, 5, 'Correct count');
25 $rs->count_rs->as_query,
31 JOIN cd cds ON cds.artist = me.artistid
32 LEFT JOIN track tracks ON tracks.cd = cds.cdid
33 JOIN artist artist ON artist.artistid = cds.artist
34 WHERE tracks.position = ? OR tracks.position = ?
38 [ map { [ 'tracks.position' => $_ ] } (1, 2) ],
42 # collapsing prefetch with distinct
44 my $first_cd = $schema->resultset('Artist')->first->cds->first;
46 genreid => $first_cd->create_related (
47 genre => ({ name => 'vague genre' })
51 my $rs = $schema->resultset("Artist")->search(undef, {distinct => 1})
52 ->search_related('cds')->search_related('genre',
53 { 'genre.name' => { '!=', 'foo' } },
54 { prefetch => q(cds) },
56 is ($rs->all, 1, 'Correct number of objects');
57 is ($rs->count, 1, 'Correct count');
60 $rs->count_rs->as_query,
66 JOIN cd cds ON cds.artist = me.artistid
67 JOIN genre genre ON genre.genreid = cds.genreid
68 LEFT JOIN cd cds_2 ON cds_2.genreid = genre.genreid
69 WHERE ( genre.name != ? )
70 GROUP BY genre.genreid
73 [ [ 'genre.name' => 'foo' ] ],
77 # non-collapsing prefetch (no multi prefetches)
79 my $rs = $schema->resultset("CD")
80 ->search_related('tracks',
81 { position => [1,2] },
82 { prefetch => [qw/disc lyrics/] },
84 is ($rs->all, 10, 'Correct number of objects');
87 is ($rs->count, 10, 'Correct count');
90 $rs->count_rs->as_query,
94 JOIN track tracks ON tracks.cd = me.cdid
95 JOIN cd disc ON disc.cdid = tracks.cd
96 LEFT JOIN lyrics lyrics ON lyrics.track_id = tracks.trackid
97 WHERE position = ? OR position = ?
99 [ map { [ position => $_ ] } (1, 2) ],
104 my $rs = $schema->resultset("Artwork")->search(undef, {distinct => 1})
105 ->search_related('artwork_to_artist')->search_related('artist',
107 { prefetch => q(cds) },
109 is($rs->all, 0, 'failure without WHERE');
111 $rs = $schema->resultset("Artwork")->search(undef, {distinct => 1})
112 ->search_related('artwork_to_artist')->search_related('artist',
113 { 'cds.title' => 'foo' }, # this line has changed
114 { prefetch => q(cds) },
116 is($rs->all, 0, 'success with WHERE');
120 $rs = $schema->resultset("Artist")->search(undef)#, {distinct => 1})
121 ->search_related('cds')->search_related('genre',
122 { 'genre.name' => 'foo' },
123 { prefetch => q(cds) },
125 is($rs->all, 0, 'success without distinct');
127 $rs = $schema->resultset("Artist")->search(undef, {distinct => 1})
128 ->search_related('cds')->search_related('genre',
129 { 'genre.name' => 'foo' },
130 #{ prefetch => q(cds) },
132 is($rs->all, 0, 'success without prefetch');
134 $rs = $schema->resultset("Artist")->search(undef, {distinct => 1})
135 ->search_related('cds')->search_related('genre',
136 { 'genre.name' => 'foo' },
137 { prefetch => q(cds) },
139 is($rs->all, 0, 'failure with distinct');