t/resultset/as_query.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings FATAL => 'all';
   5
   6 use Test::More;
   7 use lib qw(t/lib);
   8 use DBICTest;
   9 use DBIC::SqlMakerTest;
  10
  11 plan tests => 4;
  12
  13 my $schema      = DBICTest->init_schema();
  14 my $art_rs      = $schema->resultset('Artist');
  15
  16 {
  17   my $arr = $art_rs->as_query;
  18   my ($query, @bind) = @$arr;
  19
  20   is_same_sql_bind(
  21     $query, \@bind,
  22     "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me", [],
  23   );
  24 }
  25
  26 $art_rs = $art_rs->search({ name => 'Billy Joel' });
  27
  28 {
  29   my $arr = $art_rs->as_query;
  30   my ($query, @bind) = @$arr;
  31
  32   is_same_sql_bind(
  33     $query, \@bind,
  34     "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( name = ? )",
  35     [ [ name => 'Billy Joel' ] ],
  36   );
  37 }
  38
  39 $art_rs = $art_rs->search({ rank => 2 });
  40
  41 {
  42   my $arr = $art_rs->as_query;
  43   my ($query, @bind) = @$arr;
  44
  45   is_same_sql_bind(
  46     $query, \@bind,
  47     "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) )",
  48     [ [ rank => 2 ], [ name => 'Billy Joel' ] ],
  49   );
  50 }
  51
  52 my $rscol = $art_rs->get_column( 'charfield' );
  53
  54 {
  55   my $arr = $rscol->as_query;
  56   my ($query, @bind) = @$arr;
  57
  58   is_same_sql_bind(
  59     $query, \@bind,
  60     "SELECT me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) )",
  61     [ [ rank => 2 ], [ name => 'Billy Joel' ] ],
  62   );
  63 }
  64
  65 __END__