t/resultset/as_subselect_rs.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 DBICTest ':DiffSQL';
   9
  10 my $schema = DBICTest->init_schema();
  11
  12 my $new_rs = $schema->resultset('Artist')->search({
  13    'artwork_to_artist.artist_id' => 1
  14 }, {
  15    join => 'artwork_to_artist'
  16 });
  17 lives_ok { $new_rs->count } 'regular search works';
  18 lives_ok { $new_rs->search({ 'artwork_to_artist.artwork_cd_id' => 1})->count }
  19    '... and chaining off that using join works';
  20 lives_ok { $new_rs->search({ 'artwork_to_artist.artwork_cd_id' => 1})->as_subselect_rs->count }
  21    '... and chaining off the virtual view works';
  22 dies_ok  { $new_rs->as_subselect_rs->search({'artwork_to_artist.artwork_cd_id'=> 1})->count }
  23    q{... but chaining off of a virtual view using join doesn't work};
  24
  25 my $book_rs = $schema->resultset ('BooksInLibrary')->search ({}, { join => 'owner' });
  26
  27 is_same_sql_bind (
  28   $book_rs->as_subselect_rs->as_query,
  29   '(SELECT me.id, me.source, me.owner, me.title, me.price
  30       FROM (
  31         SELECT me.id, me.source, me.owner, me.title, me.price
  32           FROM books me
  33           JOIN owners owner ON owner.id = me.owner
  34         WHERE ( source = ? )
  35       ) me
  36   )',
  37   [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' }
  38       => 'Library' ] ],
  39   'Resultset-class attributes do not seep outside of the subselect',
  40 );
  41
  42 is_same_sql_bind(
  43   $schema->resultset('CD')->search ({}, {
  44     rows => 2,
  45     join => [ 'genre', { artist => 'cds' } ],
  46     distinct => 1,
  47     columns => {
  48       title => 'me.title',
  49       artist__name => 'artist.name',
  50       genre__name => 'genre.name',
  51       cds_for_artist => \ '(SELECT COUNT(*) FROM cds WHERE cd.artist = artist.id)',
  52     },
  53     order_by => { -desc => 'me.year' },
  54   })->count_rs->as_query,
  55   '(
  56     SELECT COUNT( * )
  57       FROM (
  58         SELECT artist.name AS artist__name, (SELECT COUNT(*) FROM cds WHERE cd.artist = artist.id), genre.name AS genre__name, me.title, me.year
  59           FROM cd me
  60           LEFT JOIN genre genre
  61             ON genre.genreid = me.genreid
  62           JOIN artist artist ON artist.artistid = me.artist
  63         GROUP BY artist.name, (SELECT COUNT(*) FROM cds WHERE cd.artist = artist.id), genre.name, me.title, me.year
  64         LIMIT ?
  65       ) me
  66   )',
  67   [ [{ sqlt_datatype => 'integer' } => 2 ] ],
  68 );
  69
  70 done_testing;