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
  10 plan ( tests => 7 );
  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 $cdrs2 = $cdrs->search({
  22     artist_id => { 'in' => $art_rs->search({}, { rows => 1 })->get_column( 'id' )->as_query },
  23   });
  24
  25   my $arr = $cdrs2->as_query;
  26   my ($query, @bind) = @{$$arr};
  27   is_same_sql_bind(
  28     $query, \@bind,
  29     "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 )",
  30     [],
  31   );
  32 }
  33
  34 {
  35   my $rs = $art_rs->search(
  36     {},
  37     {
  38       'select' => [
  39         $cdrs->search({}, { rows => 1 })->get_column('id')->as_query,
  40       ],
  41     },
  42   );
  43
  44   my $arr = $rs->as_query;
  45   my ($query, @bind) = @{$$arr};
  46   is_same_sql_bind(
  47     $query, \@bind,
  48     "SELECT (SELECT id FROM cd me LIMIT 1) FROM artist me",
  49     [],
  50   );
  51 }
  52
  53 {
  54   my $rs = $art_rs->search(
  55     {},
  56     {
  57       '+select' => [
  58         $cdrs->search({}, { rows => 1 })->get_column('id')->as_query,
  59       ],
  60     },
  61   );
  62
  63   my $arr = $rs->as_query;
  64   my ($query, @bind) = @{$$arr};
  65   is_same_sql_bind(
  66     $query, \@bind,
  67     "SELECT me.artistid, me.name, me.rank, me.charfield, (SELECT id FROM cd me LIMIT 1) FROM artist me",
  68     [],
  69   );
  70 }
  71
  72 # simple from
  73 {
  74   my $rs = $cdrs->search(
  75     {},
  76     {
  77       alias => 'cd2',
  78       from => [
  79         { cd2 => $cdrs->search({ id => { '>' => 20 } })->as_query },
  80       ],
  81     },
  82   );
  83
  84   my $arr = $rs->as_query;
  85   my ($query, @bind) = @{$$arr};
  86   is_same_sql_bind(
  87     $query, \@bind,
  88     "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",
  89     [],
  90   );
  91 }
  92
  93 # nested from
  94 {
  95   my $art_rs2 = $schema->resultset('Artist')->search({},
  96   {
  97     from => [ { 'me' => 'artist' },
  98       [ { 'cds' => $cdrs->search({},{ 'select' => [\'me.artist as cds_artist' ]})->as_query },
  99       { 'me.artistid' => 'cds_artist' } ] ]
 100   });
 101
 102   my $arr = $art_rs2->as_query;
 103   my ($query, @bind) = @{$$arr};
 104   is_same_sql_bind(
 105     $query, \@bind,
 106     "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", []
 107   );
 108
 109
 110 }
 111
 112 # nested subquery in from
 113 {
 114   my $rs = $cdrs->search(
 115     {},
 116     {
 117       alias => 'cd2',
 118       from => [
 119         { cd2 => $cdrs->search(
 120             { id => { '>' => 20 } },
 121             {
 122                 alias => 'cd3',
 123                 from => [
 124                 { cd3 => $cdrs->search( { id => { '<' => 40 } } )->as_query }
 125                 ],
 126             }, )->as_query },
 127       ],
 128     },
 129   );
 130
 131   my $arr = $rs->as_query;
 132   my ($query, @bind) = @{$$arr};
 133   is_same_sql_bind(
 134     $query, \@bind,
 135     "SELECT cd2.cdid, cd2.artist, cd2.title, cd2.year, cd2.genreid, cd2.single_track
 136       FROM
 137         (SELECT cd3.cdid,cd3.artist,cd3.title,cd3.year,cd3.genreid,cd3.single_track
 138           FROM
 139             (SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track
 140               FROM cd me WHERE id < 40) cd3
 141           WHERE id > 20) cd2",
 142     [],
 143   );
 144
 145 }
 146
 147 {
 148   my $rs = $cdrs->search({
 149     year => {
 150       '=' => $cdrs->search(
 151         { artistid => { '=' => \'me.artistid' } },
 152         { alias => 'inner' }
 153       )->get_column('year')->max_rs->as_query,
 154     },
 155   });
 156   my $arr = $rs->as_query;
 157   my ($query, @bind) = @{$$arr};
 158   is_same_sql_bind(
 159     $query, \@bind,
 160     "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)",
 161     [],
 162   );
 163 }
 164
 165 __END__