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 => 6;
  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 # simple from
  57 {
  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.cdid,me.artist,me.title,me.year,me.genreid,me.single_track FROM cd me WHERE id > 20) cd2",
  73     [],
  74   );
  75 }
  76
  77 # nested from
  78 {
  79   my $art_rs2 = $schema->resultset('Artist')->search({},
  80   {
  81     from => [ { 'me' => 'artist' },
  82       [ { 'cds' => $cdrs->search({},{ 'select' => [\'me.artist as cds_artist' ]})->as_query },
  83       { 'me.artistid' => 'cds_artist' } ] ]
  84   });
  85
  86   my $arr = $art_rs2->as_query;
  87   my ($query, @bind) = @{$$arr};
  88   is_same_sql_bind(
  89     $query, \@bind,
  90     "SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me JOIN (SELECT me.artist as cds_artist FROM cd me) cds ON me.artistid = cds_artist", []
  91   );
  92
  93
  94 }
  95
  96 # nested subquery in from
  97 {
  98   my $rs = $cdrs->search(
  99     {},
 100     {
 101       alias => 'cd2',
 102       from => [
 103         { cd2 => $cdrs->search(
 104             { id => { '>' => 20 } },
 105             {
 106                 alias => 'cd3',
 107                 from => [
 108                 { cd3 => $cdrs->search( { id => { '<' => 40 } } )->as_query }
 109                 ],
 110             }, )->as_query },
 111       ],
 112     },
 113   );
 114
 115   my $arr = $rs->as_query;
 116   my ($query, @bind) = @{$$arr};
 117   is_same_sql_bind(
 118     $query, \@bind,
 119     "SELECT cd2.cdid, cd2.artist, cd2.title, cd2.year, cd2.genreid, cd2.single_track
 120       FROM
 121         (SELECT cd3.cdid,cd3.artist,cd3.title,cd3.year,cd3.genreid,cd3.single_track
 122           FROM
 123             (SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track
 124               FROM cd me WHERE id < 40) cd3
 125           WHERE id > 20) cd2",
 126     [],
 127   );
 128
 129 }
 130
 131 {
 132   my $rs = $cdrs->search({
 133     year => {
 134       '=' => $cdrs->search(
 135         { artistid => { '=' => \'me.artistid' } },
 136         { alias => 'inner' }
 137       )->get_column('year')->max_rs->as_query,
 138     },
 139   });
 140   my $arr = $rs->as_query;
 141   my ($query, @bind) = @{$$arr};
 142   is_same_sql_bind(
 143     $query, \@bind,
 144     "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)",
 145     [],
 146   );
 147 }
 148
 149 __END__