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