7 use DBIC::SqlMakerTest;
9 my $schema = DBICTest->init_schema();
10 my $orig_debug = $schema->storage->debug;
12 my $cdrs = $schema->resultset('CD')->search({ 'me.artist' => { '!=', 2 }});
16 siblings => $cdrs->search ({ artist => $_->get_column('artist') })->count - 1,
17 track_titles => [ map { $_->title } ($_->tracks->all) ],
21 my $c_rs = $cdrs->search ({}, {
23 '+columns' => { sibling_count => $cdrs->search(
25 'siblings.artist' => { -ident => 'me.artist' },
26 'siblings.cdid' => { '!=' => ['-and', { -ident => 'me.cdid' }, 23414] },
27 }, { alias => 'siblings' },
28 )->count_rs->as_query,
35 SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track,
38 WHERE siblings.artist = me.artist
39 AND siblings.cdid != me.cdid
40 AND siblings.cdid != ?
43 tracks.trackid, tracks.cd, tracks.position, tracks.title, tracks.last_updated_on, tracks.last_updated_at
45 LEFT JOIN track tracks
46 ON tracks.cd = me.cdid
53 [ { sqlt_datatype => 'integer', dbic_colname => 'siblings.cdid' }
56 [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' }
60 [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' }
63 'Expected SQL on correlated realiased subquery'
67 $schema->storage->debugcb(sub { $queries++; });
68 $schema->storage->debug(1);
73 track_titles => [ map { $_->title } ($_->tracks->all) ],
74 siblings => $_->get_column ('sibling_count'),
79 'Proper information retrieved from correlated subquery'
82 is ($queries, 1, 'Only 1 query fired to retrieve everything');
84 $schema->storage->debug($orig_debug);
85 $schema->storage->debugcb(undef);
87 # now add an unbalanced select/as pair
88 $c_rs = $c_rs->search ({}, {
89 '+select' => $cdrs->search(
90 { 'siblings.artist' => { -ident => 'me.artist' } },
91 { alias => 'siblings', columns => [
92 { first_year => { min => 'year' }},
93 { last_year => { max => 'year' }},
96 '+as' => [qw/active_from active_to/],
102 SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track,
105 WHERE siblings.artist = me.artist
106 AND siblings.cdid != me.cdid
107 AND siblings.cdid != ?
110 (SELECT MIN( year ), MAX( year )
112 WHERE siblings.artist = me.artist
115 tracks.trackid, tracks.cd, tracks.position, tracks.title, tracks.last_updated_on, tracks.last_updated_at
117 LEFT JOIN track tracks
118 ON tracks.cd = me.cdid
125 [ { sqlt_datatype => 'integer', dbic_colname => 'siblings.cdid' }
128 [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' }
132 [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' }
136 [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' }
139 'Expected SQL on correlated realiased subquery'