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 => 8 );
  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 > ?) cd2 )",
  89     [
  90       [ 'id', 20 ]
  91     ],
  92   );
  93 }
  94
  95 # nested from
  96 {
  97   my $art_rs2 = $schema->resultset('Artist')->search({},
  98   {
  99     from => [ { 'me' => 'artist' },
 100       [ { 'cds' => $cdrs->search({},{ 'select' => [\'me.artist as cds_artist' ]})->as_query },
 101       { 'me.artistid' => 'cds_artist' } ] ]
 102   });
 103
 104   my $arr = $art_rs2->as_query;
 105   my ($query, @bind) = @{$$arr};
 106   is_same_sql_bind(
 107     $query, \@bind,
 108     "( 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 )", []
 109   );
 110
 111
 112 }
 113
 114 # nested subquery in from
 115 {
 116   my $rs = $cdrs->search(
 117     {},
 118     {
 119       alias => 'cd2',
 120       from => [
 121         { cd2 => $cdrs->search(
 122             { id => { '>' => 20 } },
 123             {
 124                 alias => 'cd3',
 125                 from => [
 126                 { cd3 => $cdrs->search( { id => { '<' => 40 } } )->as_query }
 127                 ],
 128             }, )->as_query },
 129       ],
 130     },
 131   );
 132
 133   my $arr = $rs->as_query;
 134   my ($query, @bind) = @{$$arr};
 135   is_same_sql_bind(
 136     $query, \@bind,
 137     "( SELECT cd2.cdid, cd2.artist, cd2.title, cd2.year, cd2.genreid, cd2.single_track
 138       FROM
 139         (SELECT cd3.cdid,cd3.artist,cd3.title,cd3.year,cd3.genreid,cd3.single_track
 140           FROM
 141             (SELECT me.cdid,me.artist,me.title,me.year,me.genreid,me.single_track
 142               FROM cd me WHERE id < ?) cd3
 143           WHERE id > ?) cd2
 144     )",
 145     [
 146       [ 'id', 40 ],
 147       [ 'id', 20 ]
 148     ],
 149   );
 150
 151 }
 152
 153 {
 154   my $rs = $cdrs->search({
 155     year => {
 156       '=' => $cdrs->search(
 157         { artistid => { '=' => \'me.artistid' } },
 158         { alias => 'inner' }
 159       )->get_column('year')->max_rs->as_query,
 160     },
 161   });
 162   my $arr = $rs->as_query;
 163   my ($query, @bind) = @{$$arr};
 164   is_same_sql_bind(
 165     $query, \@bind,
 166     "( 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) )",
 167     [],
 168   );
 169 }
 170
 171 {
 172   my $rs = $cdrs->search(
 173     {},
 174     {
 175       alias => 'cd2',
 176       from => [
 177         { cd2 => $cdrs->search({ title => 'Thriller' })->as_query },
 178       ],
 179     },
 180   );
 181
 182   my $arr = $rs->as_query;
 183   my ($query, @bind) = @{$$arr};
 184   is_same_sql_bind(
 185     $query, \@bind,
 186     "(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 title = ?) cd2)",
 187     [
 188       [ 'title',
 189         'Thriller'
 190       ]
 191     ],
 192   );
 193 }
 194
 195 __END__