8 use DBIC::SqlMakerTest;
10 my $schema = DBICTest->init_schema();
14 my $rs = $schema->resultset("Artist")
15 ->search_related('cds',
16 { 'tracks.position' => [1,2] },
17 { prefetch => [qw/tracks artist/] },
19 is ($rs->all, 5, 'Correct number of objects');
20 is ($rs->count, 5, 'Correct count');
23 $rs->count_rs->as_query,
29 JOIN cd cds ON cds.artist = me.artistid
30 LEFT JOIN track tracks ON tracks.cd = cds.cdid
31 JOIN artist artist ON artist.artistid = cds.artist
32 WHERE tracks.position = ? OR tracks.position = ?
36 [ map { [ { sqlt_datatype => 'int', dbic_colname => 'tracks.position' } => $_ ] } (1, 2) ],
40 # collapsing prefetch with distinct
42 my $rs = $schema->resultset("Artist")->search(undef, {distinct => 1})
43 ->search_related('cds')->search_related('genre',
44 { 'genre.name' => 'emo' },
45 { prefetch => q(cds) },
47 is ($rs->all, 1, 'Correct number of objects');
48 is ($rs->count, 1, 'Correct count');
51 $rs->count_rs->as_query,
57 SELECT me.artistid, me.name, me.rank, me.charfield
59 GROUP BY me.artistid, me.name, me.rank, me.charfield
61 JOIN cd cds ON cds.artist = me.artistid
62 JOIN genre genre ON genre.genreid = cds.genreid
63 WHERE ( genre.name = ? )
64 GROUP BY genre.genreid
68 [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'genre.name' }
74 # non-collapsing prefetch (no multi prefetches)
76 my $rs = $schema->resultset("CD")
77 ->search_related('tracks',
78 { position => [1,2], 'lyrics.lyric_id' => undef },
79 { prefetch => [qw/disc lyrics/] },
81 is ($rs->all, 10, 'Correct number of objects');
84 is ($rs->count, 10, 'Correct count');
87 $rs->count_rs->as_query,
91 JOIN track tracks ON tracks.cd = me.cdid
92 JOIN cd disc ON disc.cdid = tracks.cd
93 LEFT JOIN lyrics lyrics ON lyrics.track_id = tracks.trackid
94 WHERE lyrics.lyric_id IS NULL AND (position = ? OR position = ?)
96 [ map { [ { sqlt_datatype => 'int', dbic_colname => 'position' } => $_ ] } (1, 2) ],