1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
8 use DBICTest ':DiffSQL';
10 my $schema = DBICTest->init_schema();
13 # a regular belongs_to prefetch
14 my $cds = $schema->resultset('CD')->search ({}, { prefetch => 'artist' } );
22 # make sure null-prefetches do not screw with the final sql:
23 for my $type (keys %$nulls) {
25 $cds->search({}, { prefetch => { artist => $nulls->{$type} } })->as_query,
26 '( SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track,
27 artist.artistid, artist.name, artist.rank, artist.charfield
30 ON artist.artistid = me.artist
32 "same sql with null $type prefetch"
36 # make sure left join is carried only starting from the first has_many
38 $cds->search({}, { prefetch => { artist => { cds => 'artist' } } })->as_query,
40 SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track,
41 artist.artistid, artist.name, artist.rank, artist.charfield,
42 cds.cdid, cds.artist, cds.title, cds.year, cds.genreid, cds.single_track,
43 artist_2.artistid, artist_2.name, artist_2.rank, artist_2.charfield
45 JOIN artist artist ON artist.artistid = me.artist
46 LEFT JOIN cd cds ON cds.artist = artist.artistid
47 LEFT JOIN artist artist_2 ON artist_2.artistid = cds.artist