t/sqlmaker/limit_dialects/rno.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest;
   7 use DBIC::SqlMakerTest;
   8 use DBIx::Class::SQLMaker::LimitDialects;
   9
  10 my ($TOTAL, $OFFSET) = (
  11    DBIx::Class::SQLMaker::LimitDialects->__total_bindtype,
  12    DBIx::Class::SQLMaker::LimitDialects->__offset_bindtype,
  13 );
  14
  15 my $schema = DBICTest->init_schema;
  16
  17 $schema->storage->_sql_maker->limit_dialect ('RowNumberOver');
  18
  19 my $rs_selectas_col = $schema->resultset ('BooksInLibrary')->search ({}, {
  20   '+select' => ['owner.name'],
  21   '+as' => ['owner.name'],
  22   join => 'owner',
  23   rows => 1,
  24 });
  25
  26 is_same_sql_bind(
  27   $rs_selectas_col->as_query,
  28   '(
  29     SELECT  id, source, owner, title, price,
  30             owner__name
  31       FROM (
  32         SELECT  id, source, owner, title, price,
  33                 owner__name,
  34                 ROW_NUMBER() OVER( ) AS rno__row__index
  35           FROM (
  36             SELECT  me.id, me.source, me.owner, me.title, me.price,
  37                     owner.name AS owner__name
  38               FROM books me
  39               JOIN owners owner ON owner.id = me.owner
  40             WHERE ( source = ? )
  41           ) me
  42       ) me
  43     WHERE rno__row__index >= ? AND rno__row__index <= ?
  44   )',
  45   [
  46     [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' } => 'Library' ],
  47     [ $OFFSET => 1 ],
  48     [ $TOTAL => 1 ],
  49   ],
  50 );
  51
  52 $schema->storage->_sql_maker->quote_char ([qw/ [ ] /]);
  53 $schema->storage->_sql_maker->name_sep ('.');
  54
  55 my $rs_selectas_rel = $schema->resultset ('BooksInLibrary')->search ({}, {
  56   '+select' => ['owner.name'],
  57   '+as' => ['owner_name'],
  58   join => 'owner',
  59   rows => 1,
  60 });
  61
  62 is_same_sql_bind(
  63   $rs_selectas_rel->as_query,
  64   '(
  65     SELECT  [id], [source], [owner], [title], [price],
  66             [owner_name]
  67       FROM (
  68         SELECT  [id], [source], [owner], [title], [price],
  69                 [owner_name],
  70                 ROW_NUMBER() OVER( ) AS [rno__row__index]
  71           FROM (
  72             SELECT  [me].[id], [me].[source], [me].[owner], [me].[title], [me].[price],
  73                     [owner].[name] AS [owner_name]
  74               FROM [books] [me]
  75               JOIN [owners] [owner] ON [owner].[id] = [me].[owner]
  76             WHERE ( [source] = ? )
  77           ) [me]
  78       ) [me]
  79     WHERE [rno__row__index] >= ? AND [rno__row__index] <= ?
  80   )',
  81   [
  82     [ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' } => 'Library' ],
  83     [ $OFFSET => 1 ],
  84     [ $TOTAL => 1 ],
  85   ],
  86 );
  87
  88 {
  89   my $rs = $schema->resultset('Artist')->search({}, {
  90     columns => 'name',
  91     offset => 1,
  92     order_by => 'name',
  93   });
  94   local $rs->result_source->{name} = "weird \n newline/multi \t \t space containing \n table";
  95
  96   like (
  97     ${$rs->as_query}->[0],
  98     qr| weird \s \n \s newline/multi \s \t \s \t \s space \s containing \s \n \s table|x,
  99     'Newlines/spaces preserved in final sql',
 100   );
 101 }
 102
 103
 104 done_testing;