t/prefetch/double_prefetch.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBIC::SqlMakerTest;
   7 use DBICTest;
   8
   9 my $schema = DBICTest->init_schema();
  10
  11 # While this is a rather GIGO case, make sure it behaves as pre-103,
  12 # as it may result in hard-to-track bugs
  13 my $cds = $schema->resultset('Artist')
  14             ->search_related ('cds')
  15               ->search ({}, {
  16                   prefetch => [ 'single_track', { single_track => 'cd' } ],
  17                 });
  18
  19 is_same_sql(
  20   ${$cds->as_query}->[0],
  21   '(
  22     SELECT
  23       cds.cdid, cds.artist, cds.title, cds.year, cds.genreid, cds.single_track,
  24       single_track.trackid, single_track.cd, single_track.position, single_track.title, single_track.last_updated_on, single_track.last_updated_at,
  25       single_track_2.trackid, single_track_2.cd, single_track_2.position, single_track_2.title, single_track_2.last_updated_on, single_track_2.last_updated_at,
  26       cd.cdid, cd.artist, cd.title, cd.year, cd.genreid, cd.single_track
  27     FROM artist me
  28       JOIN cd cds ON cds.artist = me.artistid
  29       LEFT JOIN track single_track ON single_track.trackid = cds.single_track
  30       LEFT JOIN track single_track_2 ON single_track_2.trackid = cds.single_track
  31       LEFT JOIN cd cd ON cd.cdid = single_track_2.cd
  32   )',
  33 );
  34
  35 done_testing;