Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
47c10423 |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
47c10423 |
7 | |
c0329273 |
8 | |
a5a7bb73 |
9 | use DBICTest ':DiffSQL'; |
fcb7fcbb |
10 | use DBIx::Class::SQLMaker::LimitDialects; |
11 | |
12 | my $ROWS = DBIx::Class::SQLMaker::LimitDialects->__rows_bindtype; |
47c10423 |
13 | |
14 | my $schema = DBICTest->init_schema(); |
15 | |
16 | my $rs = $schema->resultset('CD')->search ( |
0e773352 |
17 | { 'tracks.trackid' => { '!=', 666 }}, |
63e943c2 |
18 | { join => 'artist', prefetch => 'tracks', rows => 2 } |
47c10423 |
19 | ); |
20 | |
63e943c2 |
21 | my $rel_rs = $rs->search_related ('tags', { 'tags.tag' => { '!=', undef }}, { distinct => 1}); |
47c10423 |
22 | |
23 | is_same_sql_bind ( |
24 | $rel_rs->as_query, |
25 | '( |
63e943c2 |
26 | SELECT tags.tagid, tags.cd, tags.tag |
27 | FROM ( |
28 | SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track |
29 | FROM cd me |
30 | JOIN artist artist ON artist.artistid = me.artist |
fcb7fcbb |
31 | LEFT JOIN track tracks ON tracks.cd = me.cdid |
0e773352 |
32 | WHERE ( tracks.trackid != ? ) |
fcb7fcbb |
33 | LIMIT ? |
63e943c2 |
34 | ) me |
47c10423 |
35 | JOIN artist artist ON artist.artistid = me.artist |
8baabfd8 |
36 | JOIN tags tags ON tags.cd = me.cdid |
63e943c2 |
37 | WHERE ( tags.tag IS NOT NULL ) |
38 | GROUP BY tags.tagid, tags.cd, tags.tag |
47c10423 |
39 | )', |
63e943c2 |
40 | |
fcb7fcbb |
41 | [ |
42 | [ { sqlt_datatype => 'integer', dbic_colname => 'tracks.trackid' } => 666 ], |
43 | [ $ROWS => 2 ] |
0e773352 |
44 | ], |
47c10423 |
45 | 'Prefetch spec successfully stripped on search_related' |
46 | ); |
47 | |
48 | done_testing; |