t/search/subquery.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 use lib qw(t/lib);
  10 use DBICTest;
  11 use DBIC::SqlMakerTest;
  12
  13 plan tests => 4;
  14
  15 my $schema = DBICTest->init_schema();
  16 my $art_rs = $schema->resultset('Artist');
  17 my $cdrs = $schema->resultset('CD');
  18
  19 {
  20   my $cdrs2 = $cdrs->search({
  21     artist_id => { 'in' => $art_rs->search({}, { rows => 1 })->get_column( 'id' )->as_query },
  22   });
  23
  24   my $arr = $cdrs2->as_query;
  25   my ($query, @bind) = @{$$arr};
  26   is_same_sql_bind(
  27     $query, \@bind,
  28     "SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track FROM cd me WHERE artist_id IN ( SELECT id FROM artist me LIMIT 1 )",
  29     [],
  30   );
  31 }
  32
  33 TODO: {
  34 #  local $TODO = "'+select' doesn't work with as_query yet.";
  35   my $rs = $art_rs->search(
  36     {},
  37     {
  38       '+select' => [
  39         $cdrs->search({}, { rows => 1 })->get_column('id')->as_query,
  40       ],
  41       '+as' => [
  42         'cdid',
  43       ],
  44     },
  45   );
  46
  47   my $arr = $rs->as_query;
  48   my ($query, @bind) = @{$$arr};
  49   is_same_sql_bind(
  50     $query, \@bind,
  51     "SELECT me.artistid, me.name, me.rank, me.charfield, (SELECT id FROM cds LIMIT 1) AS cdid FROM artist me",
  52     [],
  53   );
  54 }
  55
  56 TODO: {
  57 #  local $TODO = "'from' doesn't work with as_query yet.";
  58   my $rs = $cdrs->search(
  59     {},
  60     {
  61       alias => 'cd2',
  62       from => [
  63         { cd2 => $cdrs->search({ id => { '>' => 20 } })->as_query },
  64       ],
  65     },
  66   );
  67
  68   my $arr = $rs->as_query;
  69   my ($query, @bind) = @{$$arr};
  70   is_same_sql_bind(
  71     $query, \@bind,
  72     "SELECT cd2.cdid, cd2.artist, cd2.title, cd2.year, cd2.genreid, cd2.single_track FROM (SELECT me.artistid, me.name, me.rank, me.charfield FROM cds me WHERE id > 20) cd2",
  73     [],
  74   );
  75 }
  76
  77 TODO: {
  78 #  local $TODO = "The subquery isn't being wrapped in parens for some reason.";
  79   my $rs = $cdrs->search({
  80     year => {
  81       '=' => $cdrs->search(
  82         { artistid => { '=' => \'me.artistid' } },
  83         { alias => 'inner' }
  84       )->get_column('year')->max_rs->as_query,
  85     },
  86   });
  87   my $arr = $rs->as_query;
  88   my ($query, @bind) = @{$$arr};
  89   is_same_sql_bind(
  90     $query, \@bind,
  91     "SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track FROM cd me WHERE year = (SELECT MAX(inner.year) FROM cd inner WHERE artistid = me.artistid)",
  92     [],
  93   );
  94 }
  95
  96 my $rs = $cdrs->search( undef, { alias => 'foo' } );
  97 warn ${$rs->as_query}->[0], $/;
  98 __END__