Turned out to be much trickier
[dbsrgits/DBIx-Class.git] / t / search / related_strip_prefetch.t
1 use strict;
2 use warnings;
3
4 use Test::More;
5 use Test::Exception;
6
7 use lib qw(t/lib);
8 use DBIC::SqlMakerTest;
9 use DBICTest;
10
11 my $schema = DBICTest->init_schema();
12
13 my $rs = $schema->resultset('CD')->search (
14   { 'tracks.id' => { '!=', 666 }},
15   { join => 'artist', prefetch => 'tracks', rows => 2 }
16 );
17
18 my $rel_rs = $rs->search_related ('tags', { 'tags.tag' => { '!=', undef }}, { distinct => 1});
19
20 is_same_sql_bind (
21   $rel_rs->as_query,
22   '(
23     SELECT tags.tagid, tags.cd, tags.tag
24       FROM (
25         SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track
26           FROM cd me
27           JOIN artist artist ON artist.artistid = me.artist
28           LEFT JOIN track tracks ON tracks.cd = me.cdid
29         WHERE ( tracks.id != ? )
30         LIMIT 2
31       ) me
32       JOIN artist artist ON artist.artistid = me.artist
33       LEFT JOIN track tracks ON tracks.cd = me.cdid
34       JOIN tags tags ON tags.cd = me.cdid
35     WHERE ( tags.tag IS NOT NULL )
36     GROUP BY tags.tagid, tags.cd, tags.tag
37   )',
38
39   [ [ 'tracks.id' => 666 ] ],
40   'Prefetch spec successfully stripped on search_related'
41 );
42
43 done_testing;