t/sqlmaker/limit_dialects/toplimit.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 use DBICTest ':DiffSQL';
   9
  10 my $schema = DBICTest->init_schema;
  11
  12 # Trick the sqlite DB to use Top limit emulation
  13 # We could test all of this via $sq->$op directly,
  14 # but some conditions need a $rsrc
  15 delete $schema->storage->_sql_maker->{_cached_syntax};
  16 $schema->storage->_sql_maker->limit_dialect ('Top');
  17
  18 my $books_45_and_owners = $schema->resultset ('BooksInLibrary')->search ({}, {
  19   prefetch => 'owner', rows => 2, offset => 3,
  20   columns => [ grep { $_ ne 'title' } $schema->source('BooksInLibrary')->columns ],
  21 });
  22
  23 for my $null_order (
  24   undef,
  25   '',
  26   {},
  27   [],
  28   [{}],
  29 ) {
  30   my $rs = $books_45_and_owners->search ({}, {order_by => $null_order });
  31   is_same_sql_bind(
  32       $rs->as_query,
  33       '(SELECT TOP 2
  34             me.id, me.source, me.owner, me.price, owner__id, owner__name
  35           FROM (
  36             SELECT TOP 5
  37                 me.id, me.source, me.owner, me.price, owner.id AS owner__id, owner.name AS owner__name
  38               FROM books me
  39               JOIN owners owner ON owner.id = me.owner
  40             WHERE ( source = ? )
  41             ORDER BY me.id
  42           ) me
  43         ORDER BY me.id DESC
  44        )',
  45     [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' }
  46         => 'Library' ] ],
  47   );
  48 }
  49
  50 {
  51 my $subq = $schema->resultset('Owners')->search({
  52    'count.id' => { -ident => 'owner.id' },
  53 }, { alias => 'owner' })->count_rs;
  54
  55 my $rs_selectas_rel = $schema->resultset('BooksInLibrary')->search ({}, {
  56   columns => [
  57      { owner_name => 'owner.name' },
  58      { owner_books => $subq->as_query },
  59   ],
  60   join => 'owner',
  61   rows => 2,
  62   offset => 3,
  63 });
  64
  65 is_same_sql_bind(
  66   $rs_selectas_rel->as_query,
  67   '(
  68     SELECT TOP 2 owner_name, owner_books
  69       FROM (
  70             SELECT TOP 5 owner.name AS owner_name,
  71             ( SELECT COUNT( * )
  72                 FROM owners owner
  73                WHERE ( count.id = owner.id )
  74             ) AS owner_books
  75               FROM books me
  76               JOIN owners owner ON owner.id = me.owner
  77              WHERE ( source = ? )
  78           ORDER BY me.id
  79       ) me
  80   ORDER BY me.id DESC
  81  )',
  82   [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' }
  83     => 'Library' ] ],
  84   'pagination with subqueries works'
  85 );
  86
  87 }
  88
  89 for my $ord_set (
  90   {
  91     order_by => \'title DESC',
  92     order_inner => 'title DESC',
  93     order_outer => 'ORDER__BY__001 ASC',
  94     order_req => 'ORDER__BY__001 DESC',
  95     exselect_outer => 'ORDER__BY__001',
  96     exselect_inner => 'title AS ORDER__BY__001',
  97   },
  98   {
  99     order_by => { -asc => 'title'  },
 100     order_inner => 'title ASC',
 101     order_outer => 'ORDER__BY__001 DESC',
 102     order_req => 'ORDER__BY__001 ASC',
 103     exselect_outer => 'ORDER__BY__001',
 104     exselect_inner => 'title AS ORDER__BY__001',
 105   },
 106   {
 107     order_by => { -desc => 'title' },
 108     order_inner => 'title DESC',
 109     order_outer => 'ORDER__BY__001 ASC',
 110     order_req => 'ORDER__BY__001 DESC',
 111     exselect_outer => 'ORDER__BY__001',
 112     exselect_inner => 'title AS ORDER__BY__001',
 113   },
 114   {
 115     order_by => 'title',
 116     order_inner => 'title',
 117     order_outer => 'ORDER__BY__001 DESC',
 118     order_req => 'ORDER__BY__001',
 119     exselect_outer => 'ORDER__BY__001',
 120     exselect_inner => 'title AS ORDER__BY__001',
 121   },
 122   {
 123     order_by => [ qw{ title me.owner}   ],
 124     order_inner => 'title, me.owner',
 125     order_outer => 'ORDER__BY__001 DESC, me.owner DESC',
 126     order_req => 'ORDER__BY__001, me.owner',
 127     exselect_outer => 'ORDER__BY__001',
 128     exselect_inner => 'title AS ORDER__BY__001',
 129   },
 130   {
 131     order_by => ['title', { -desc => 'bar' } ],
 132     order_inner => 'title, bar DESC',
 133     order_outer => 'ORDER__BY__001 DESC, ORDER__BY__002 ASC',
 134     order_req => 'ORDER__BY__001, ORDER__BY__002 DESC',
 135     exselect_outer => 'ORDER__BY__001, ORDER__BY__002',
 136     exselect_inner => 'title AS ORDER__BY__001, bar AS ORDER__BY__002',
 137   },
 138   {
 139     order_by => { -asc => [qw{ title bar }] },
 140     order_inner => 'title ASC, bar ASC',
 141     order_outer => 'ORDER__BY__001 DESC, ORDER__BY__002 DESC',
 142     order_req => 'ORDER__BY__001 ASC, ORDER__BY__002 ASC',
 143     exselect_outer => 'ORDER__BY__001, ORDER__BY__002',
 144     exselect_inner => 'title AS ORDER__BY__001, bar AS ORDER__BY__002',
 145   },
 146   {
 147     order_by => [
 148       'title',
 149       { -desc => [qw{bar}] },
 150       { -asc  => [qw{me.owner sensors}]},
 151     ],
 152     order_inner => 'title, bar DESC, me.owner ASC, sensors ASC',
 153     order_outer => 'ORDER__BY__001 DESC, ORDER__BY__002 ASC, me.owner DESC, ORDER__BY__003 DESC',
 154     order_req => 'ORDER__BY__001, ORDER__BY__002 DESC, me.owner ASC, ORDER__BY__003 ASC',
 155     exselect_outer => 'ORDER__BY__001, ORDER__BY__002, ORDER__BY__003',
 156     exselect_inner => 'title AS ORDER__BY__001, bar AS ORDER__BY__002, sensors AS ORDER__BY__003',
 157   },
 158 ) {
 159   my $o_sel = $ord_set->{exselect_outer}
 160     ? ', ' . $ord_set->{exselect_outer}
 161     : ''
 162   ;
 163   my $i_sel = $ord_set->{exselect_inner}
 164     ? ', ' . $ord_set->{exselect_inner}
 165     : ''
 166   ;
 167
 168   is_same_sql_bind(
 169     $books_45_and_owners->search ({}, {order_by => $ord_set->{order_by}})->as_query,
 170     "(SELECT me.id, me.source, me.owner, me.price, owner__id, owner__name
 171         FROM (
 172           SELECT TOP 2
 173               me.id, me.source, me.owner, me.price, owner__id, owner__name$o_sel
 174             FROM (
 175               SELECT TOP 5
 176                   me.id, me.source, me.owner, me.price, owner.id AS owner__id, owner.name AS owner__name$i_sel
 177                 FROM books me
 178                 JOIN owners owner ON owner.id = me.owner
 179               WHERE ( source = ? )
 180               ORDER BY $ord_set->{order_inner}
 181             ) me
 182           ORDER BY $ord_set->{order_outer}
 183         ) me
 184       ORDER BY $ord_set->{order_req}
 185     )",
 186     [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' }
 187         => 'Library' ] ],
 188   );
 189 }
 190
 191 # with groupby
 192 is_same_sql_bind (
 193   $books_45_and_owners->search ({}, { group_by => 'title', order_by => 'title' })->as_query,
 194   '(SELECT me.id, me.source, me.owner, me.price, owner.id, owner.name
 195       FROM (
 196         SELECT me.id, me.source, me.owner, me.price, me.title
 197           FROM (
 198             SELECT TOP 2
 199                 me.id, me.source, me.owner, me.price, me.title
 200               FROM (
 201                 SELECT TOP 5
 202                     me.id, me.source, me.owner, me.price, me.title
 203                   FROM books me
 204                   JOIN owners owner ON owner.id = me.owner
 205                 WHERE ( source = ? )
 206                 GROUP BY title
 207                 ORDER BY title
 208               ) me
 209             ORDER BY title DESC
 210           ) me
 211         ORDER BY title
 212       ) me
 213       JOIN owners owner ON owner.id = me.owner
 214     WHERE ( source = ? )
 215     ORDER BY title
 216   )',
 217   [ map { [
 218     { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' }
 219       => 'Library' ]
 220   } (1,2) ],
 221 );
 222
 223 # test deprecated column mixing over join boundaries
 224 my $rs_selectas_top = $schema->resultset ('BooksInLibrary')->search ({}, {
 225   '+select' => ['owner.name'],
 226   '+as' => ['owner_name'],
 227   join => 'owner',
 228   rows => 1
 229 });
 230
 231 is_same_sql_bind( $rs_selectas_top->search({})->as_query,
 232                   '(SELECT
 233                       TOP 1 me.id, me.source, me.owner, me.title, me.price,
 234                       owner.name
 235                     FROM books me
 236                     JOIN owners owner ON owner.id = me.owner
 237                     WHERE ( source = ? )
 238                   )',
 239                   [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' }
 240                     => 'Library' ] ],
 241                 );
 242
 243 {
 244   my $rs = $schema->resultset('Artist')->search({}, {
 245     columns => 'artistid',
 246     offset => 1,
 247     order_by => 'artistid',
 248   });
 249   local $rs->result_source->{name} = "weird \n newline/multi \t \t space containing \n table";
 250
 251   like (
 252     ${$rs->as_query}->[0],
 253     qr| weird \s \n \s newline/multi \s \t \s \t \s space \s containing \s \n \s table|x,
 254     'Newlines/spaces preserved in final sql',
 255   );
 256 }
 257
 258 {
 259 my $subq = $schema->resultset('Owners')->search({
 260    'books.owner' => { -ident => 'owner.id' },
 261 }, { alias => 'owner', select => ['id'] } )->count_rs;
 262
 263 my $rs_selectas_rel = $schema->resultset('BooksInLibrary')->search( { -exists => $subq->as_query }, { select => ['id','owner'], rows => 1 } );
 264
 265 is_same_sql_bind(
 266   $rs_selectas_rel->as_query,
 267   '(SELECT TOP 1 me.id, me.owner  FROM books me WHERE ( ( (EXISTS (SELECT COUNT( * ) FROM owners owner WHERE ( books.owner = owner.id ))) AND source = ? ) ) )',
 268   [
 269     [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' } => 'Library' ],
 270   ],
 271   'Pagination with sub-query in WHERE works'
 272 );
 273
 274 }
 275
 276 done_testing;