t/resultset/as_query.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use lib qw(t/lib);
   7 use DBICTest ':DiffSQL';
   8
   9 my $schema = DBICTest->init_schema();
  10 my $art_rs = $schema->resultset('Artist');
  11 my $cdrs = $schema->resultset('CD');
  12
  13 {
  14   is_same_sql_bind(
  15     $art_rs->as_query,
  16     "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me)", [],
  17   );
  18 }
  19
  20 $art_rs = $art_rs->search({ name => 'Billy Joel' });
  21
  22 my $name_resolved_bind = [
  23   { sqlt_datatype => 'varchar', sqlt_size  => 100, dbic_colname => 'name' }
  24     => 'Billy Joel'
  25 ];
  26
  27 {
  28   is_same_sql_bind(
  29     $art_rs->as_query,
  30     "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( name = ? ))",
  31     [ $name_resolved_bind ],
  32   );
  33 }
  34
  35 $art_rs = $art_rs->search({ rank => 2 });
  36
  37 my $rank_resolved_bind = [
  38   { sqlt_datatype => 'integer', dbic_colname => 'rank' }
  39     => 2
  40 ];
  41
  42 {
  43   is_same_sql_bind(
  44     $art_rs->as_query,
  45     "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE name = ? AND rank = ? )",
  46     [ $name_resolved_bind, $rank_resolved_bind ],
  47   );
  48 }
  49
  50 my $rscol = $art_rs->get_column( 'charfield' );
  51
  52 {
  53   is_same_sql_bind(
  54     $rscol->as_query,
  55     "(SELECT me.charfield FROM artist me WHERE name = ? AND rank = ? )",
  56     [ $name_resolved_bind, $rank_resolved_bind ],
  57   );
  58 }
  59
  60 {
  61   my $rs = $schema->resultset("CD")->search(
  62     { 'artist.name' => 'Caterwauler McCrae' },
  63     { join => [qw/artist/]}
  64   );
  65   my $subsel_rs = $schema->resultset("CD")->search( { cdid => { IN => $rs->get_column('cdid')->as_query } } );
  66   is($subsel_rs->count, $rs->count, 'Subselect on PK got the same row count');
  67 }
  68
  69
  70 is_same_sql_bind($schema->resultset('Artist')->search({
  71    rank => 1,
  72 }, {
  73    from => $schema->resultset('Artist')->search({ 'name' => 'frew'})->as_query,
  74 })->as_query,
  75    '(SELECT me.artistid, me.name, me.rank, me.charfield FROM (
  76      SELECT me.artistid, me.name, me.rank, me.charfield FROM
  77        artist me
  78        WHERE (
  79          ( name = ? )
  80        )
  81      ) WHERE (
  82        ( rank = ? )
  83      )
  84    )',
  85    [
  86       [{ dbic_colname => 'name', sqlt_datatype => 'varchar', sqlt_size => 100 }, 'frew'],
  87       [{ dbic_colname => 'rank' }, 1],
  88    ],
  89    'from => ...->as_query works'
  90 );
  91
  92 done_testing;