t/resultset/as_query.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings FATAL => 'all';
   5
   6 use Data::Dumper;
   7
   8 use Test::More;
   9
  10 plan ( tests => 6 );
  11
  12 use lib qw(t/lib);
  13 use DBICTest;
  14 use DBIC::SqlMakerTest;
  15
  16 my $schema = DBICTest->init_schema();
  17 my $art_rs = $schema->resultset('Artist');
  18 my $cdrs = $schema->resultset('CD');
  19
  20 {
  21   my $arr = $art_rs->as_query;
  22   my ($query, @bind) = @{$$arr};
  23
  24   is_same_sql_bind(
  25     $query, \@bind,
  26     "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me)", [],
  27   );
  28 }
  29
  30 $art_rs = $art_rs->search({ name => 'Billy Joel' });
  31
  32 {
  33   my $arr = $art_rs->as_query;
  34   my ($query, @bind) = @{$$arr};
  35
  36   is_same_sql_bind(
  37     $query, \@bind,
  38     "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( name = ? ))",
  39     [ [ name => 'Billy Joel' ] ],
  40   );
  41 }
  42
  43 $art_rs = $art_rs->search({ rank => 2 });
  44
  45 {
  46   my $arr = $art_rs->as_query;
  47   my ($query, @bind) = @{$$arr};
  48
  49   is_same_sql_bind(
  50     $query, \@bind,
  51     "(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) ) )",
  52     [ [ rank => 2 ], [ name => 'Billy Joel' ] ],
  53   );
  54 }
  55
  56 my $rscol = $art_rs->get_column( 'charfield' );
  57
  58 {
  59   my $arr = $rscol->as_query;
  60   my ($query, @bind) = @{$$arr};
  61
  62   is_same_sql_bind(
  63     $query, \@bind,
  64     "(SELECT me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) ) )",
  65     [ [ rank => 2 ], [ name => 'Billy Joel' ] ],
  66   );
  67 }
  68
  69 {
  70     my $rs = $schema->resultset("CD")->search(
  71         { 'artist.name' => 'Caterwauler McCrae' },
  72         { join => [qw/artist/]}
  73     );
  74     my $query = $rs->get_column('cdid')->as_query({ skip_parens => 1 });
  75     my ($sql, @bind) = @{$$query};
  76     is_same_sql_bind(
  77       $sql, \@bind,
  78         'SELECT me.cdid FROM cd me  JOIN artist artist ON artist.artistid = me.artist WHERE ( artist.name = ? )',
  79         [['artist.name' => 'Caterwauler McCrae']]
  80     );
  81     my $subsel_rs = $schema->resultset("CD")->search( { cdid => { IN => $query } } );
  82     is($subsel_rs->count, $rs->count, 'Subselect on PK got the same row count');
  83 }
  84
  85 __END__