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     order_by => [
 160         { -asc => 'title', -nulls => 'first' },
 161         { -desc => 'bar', -nulls => 'last' },
 162     ],
 163     order_inner => 'title ASC NULLS FIRST, bar DESC NULLS LAST',
 164     order_outer => 'ORDER__BY__001 DESC NULLS LAST, ORDER__BY__002 ASC NULLS FIRST',
 165     order_req => 'ORDER__BY__001 ASC NULLS FIRST, ORDER__BY__002 DESC NULLS LAST',
 166     exselect_outer => 'ORDER__BY__001, ORDER__BY__002',
 167     exselect_inner => 'title AS ORDER__BY__001, bar AS ORDER__BY__002',
 168   },
 169 ) {
 170   my $o_sel = $ord_set->{exselect_outer}
 171     ? ', ' . $ord_set->{exselect_outer}
 172     : ''
 173   ;
 174   my $i_sel = $ord_set->{exselect_inner}
 175     ? ', ' . $ord_set->{exselect_inner}
 176     : ''
 177   ;
 178
 179   is_same_sql_bind(
 180     $books_45_and_owners->search ({}, {order_by => $ord_set->{order_by}})->as_query,
 181     "(SELECT me.id, me.source, me.owner, me.price, owner__id, owner__name
 182         FROM (
 183           SELECT TOP 2
 184               me.id, me.source, me.owner, me.price, owner__id, owner__name$o_sel
 185             FROM (
 186               SELECT TOP 5
 187                   me.id, me.source, me.owner, me.price, owner.id AS owner__id, owner.name AS owner__name$i_sel
 188                 FROM books me
 189                 JOIN owners owner ON owner.id = me.owner
 190               WHERE ( source = ? )
 191               ORDER BY $ord_set->{order_inner}
 192             ) me
 193           ORDER BY $ord_set->{order_outer}
 194         ) me
 195       ORDER BY $ord_set->{order_req}
 196     )",
 197     [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' }
 198         => 'Library' ] ],
 199   );
 200 }
 201
 202 # with groupby
 203 is_same_sql_bind (
 204   $books_45_and_owners->search ({}, { group_by => 'title', order_by => 'title' })->as_query,
 205   '(SELECT me.id, me.source, me.owner, me.price, owner.id, owner.name
 206       FROM (
 207         SELECT me.id, me.source, me.owner, me.price, me.title
 208           FROM (
 209             SELECT TOP 2
 210                 me.id, me.source, me.owner, me.price, me.title
 211               FROM (
 212                 SELECT TOP 5
 213                     me.id, me.source, me.owner, me.price, me.title
 214                   FROM books me
 215                   JOIN owners owner ON owner.id = me.owner
 216                 WHERE ( source = ? )
 217                 GROUP BY title
 218                 ORDER BY title
 219               ) me
 220             ORDER BY title DESC
 221           ) me
 222         ORDER BY title
 223       ) me
 224       JOIN owners owner ON owner.id = me.owner
 225     WHERE ( source = ? )
 226     ORDER BY title
 227   )',
 228   [ map { [
 229     { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' }
 230       => 'Library' ]
 231   } (1,2) ],
 232 );
 233
 234 # test deprecated column mixing over join boundaries
 235 my $rs_selectas_top = $schema->resultset ('BooksInLibrary')->search ({}, {
 236   '+select' => ['owner.name'],
 237   '+as' => ['owner_name'],
 238   join => 'owner',
 239   rows => 1
 240 });
 241
 242 is_same_sql_bind( $rs_selectas_top->search({})->as_query,
 243                   '(SELECT
 244                       TOP 1 me.id, me.source, me.owner, me.title, me.price,
 245                       owner.name
 246                     FROM books me
 247                     JOIN owners owner ON owner.id = me.owner
 248                     WHERE ( source = ? )
 249                   )',
 250                   [ [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' }
 251                     => 'Library' ] ],
 252                 );
 253
 254 {
 255   my $rs = $schema->resultset('Artist')->search({}, {
 256     columns => 'artistid',
 257     offset => 1,
 258     order_by => 'artistid',
 259   });
 260   local $rs->result_source->{name} = "weird \n newline/multi \t \t space containing \n table";
 261
 262   like (
 263     ${$rs->as_query}->[0],
 264     qr| weird \s \n \s newline/multi \s \t \s \t \s space \s containing \s \n \s table|x,
 265     'Newlines/spaces preserved in final sql',
 266   );
 267 }
 268
 269 {
 270 my $subq = $schema->resultset('Owners')->search({
 271    'books.owner' => { -ident => 'owner.id' },
 272 }, { alias => 'owner', select => ['id'] } )->count_rs;
 273
 274 my $rs_selectas_rel = $schema->resultset('BooksInLibrary')->search( { -exists => $subq->as_query }, { select => ['id','owner'], rows => 1 } );
 275
 276 is_same_sql_bind(
 277   $rs_selectas_rel->as_query,
 278   '(SELECT TOP 1 me.id, me.owner  FROM books me WHERE ( ( (EXISTS (SELECT COUNT( * ) FROM owners owner WHERE ( books.owner = owner.id ))) AND source = ? ) ) )',
 279   [
 280     [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' } => 'Library' ],
 281   ],
 282   'Pagination with sub-query in WHERE works'
 283 );
 284
 285 }
 286
 287 done_testing;