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 my $cdrs = $schema->resultset('CD');
  16
  17 {
  18   my $arr = $art_rs->as_query;
  19   my ($query, @bind) = @{$$arr};
  20
  21   is_same_sql_bind(
  22     $query, \@bind,
  23     "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me", [],
  24   );
  25 }
  26
  27 $art_rs = $art_rs->search({ name => 'Billy Joel' });
  28
  29 {
  30   my $arr = $art_rs->as_query;
  31   my ($query, @bind) = @{$$arr};
  32
  33   is_same_sql_bind(
  34     $query, \@bind,
  35     "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( name = ? )",
  36     [ [ name => 'Billy Joel' ] ],
  37   );
  38 }
  39
  40 $art_rs = $art_rs->search({ rank => 2 });
  41
  42 {
  43   my $arr = $art_rs->as_query;
  44   my ($query, @bind) = @{$$arr};
  45
  46   is_same_sql_bind(
  47     $query, \@bind,
  48     "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) )",
  49     [ [ rank => 2 ], [ name => 'Billy Joel' ] ],
  50   );
  51 }
  52
  53 my $rscol = $art_rs->get_column( 'charfield' );
  54
  55 {
  56   my $arr = $rscol->as_query;
  57   my ($query, @bind) = @{$$arr};
  58
  59   is_same_sql_bind(
  60     $query, \@bind,
  61     "SELECT me.charfield FROM artist me WHERE ( ( ( rank = ? ) AND ( name = ? ) ) )",
  62     [ [ rank => 2 ], [ name => 'Billy Joel' ] ],
  63   );
  64 }
  65
  66 my $cdrs2 = $cdrs->search({
  67   artist_id => {
  68     -in => $art_rs->get_column( 'id' )->as_query,
  69   },
  70 });
  71
  72 my @x = $cdrs2->all;
  73 use Data::Dumper; warn Dumper \@x;
  74 __END__
  75 {
  76   my $arr = $cdrs2->as_query;
  77   my ($query, @bind) = @{$$arr};
  78 }
  79
  80 __END__