t/search/related_strip_prefetch.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use lib qw(t/lib);
   7 use DBICTest ':DiffSQL';
   8 use DBIx::Class::SQLMaker::LimitDialects;
   9
  10 my $ROWS = DBIx::Class::SQLMaker::LimitDialects->__rows_bindtype;
  11
  12 my $schema = DBICTest->init_schema();
  13
  14 my $rs = $schema->resultset('CD')->search (
  15   { 'tracks.trackid' => { '!=', 666 }},
  16   { join => 'artist', prefetch => 'tracks', rows => 2 }
  17 );
  18
  19 my $rel_rs = $rs->search_related ('tags', { 'tags.tag' => { '!=', undef }}, { distinct => 1});
  20
  21 is_same_sql_bind (
  22   $rel_rs->as_query,
  23   '(
  24     SELECT tags.tagid, tags.cd, tags.tag
  25       FROM (
  26         SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track
  27           FROM cd me
  28           JOIN artist artist ON artist.artistid = me.artist
  29           LEFT JOIN track tracks ON tracks.cd = me.cdid
  30         WHERE ( tracks.trackid != ? )
  31         LIMIT ?
  32       ) me
  33       JOIN artist artist ON artist.artistid = me.artist
  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   [
  40     [ { sqlt_datatype => 'integer', dbic_colname => 'tracks.trackid' } => 666 ],
  41     [ $ROWS => 2 ]
  42   ],
  43   'Prefetch spec successfully stripped on search_related'
  44 );
  45
  46 done_testing;