t/sqlmaker/limit_dialects/rownum.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use lib qw(t/lib);
   7 use DBICTest;
   8 use DBIC::SqlMakerTest;
   9 use DBIx::Class::SQLMaker::LimitDialects;
  10
  11 my ($TOTAL, $OFFSET) = (
  12    DBIx::Class::SQLMaker::LimitDialects->__total_bindtype,
  13    DBIx::Class::SQLMaker::LimitDialects->__offset_bindtype,
  14 );
  15
  16 my $s = DBICTest->init_schema (no_deploy => 1, );
  17 $s->storage->sql_maker->limit_dialect ('RowNum');
  18
  19 my $rs = $s->resultset ('CD');
  20
  21 is_same_sql_bind (
  22   $rs->search ({}, { rows => 1, offset => 3,columns => [
  23       { id => 'foo.id' },
  24       { 'bar.id' => 'bar.id' },
  25       { bleh => \ 'TO_CHAR (foo.womble, "blah")' },
  26     ]})->as_query,
  27   '(
  28     SELECT id, bar__id, bleh
  29       FROM (
  30         SELECT id, bar__id, bleh, ROWNUM rownum__index
  31           FROM (
  32             SELECT foo.id AS id, bar.id AS bar__id, TO_CHAR(foo.womble, "blah") AS bleh
  33               FROM cd me
  34           ) me
  35         WHERE ROWNUM <= ?
  36       ) me
  37     WHERE rownum__index >= ?
  38   )',
  39   [
  40     [ $TOTAL => 4 ],
  41     [ $OFFSET => 4 ],
  42   ],
  43   'Rownum subsel aliasing works correctly'
  44 );
  45
  46 is_same_sql_bind (
  47   $rs->search ({}, { rows => 2, offset => 3,columns => [
  48       { id => 'foo.id' },
  49       { 'ends_with_me.id' => 'ends_with_me.id' },
  50     ]})->as_query,
  51   '(SELECT id, ends_with_me__id
  52       FROM (
  53         SELECT id, ends_with_me__id, ROWNUM rownum__index
  54           FROM (
  55             SELECT foo.id AS id, ends_with_me.id AS ends_with_me__id
  56               FROM cd me
  57           ) me
  58         WHERE ROWNUM <= ?
  59       ) me
  60     WHERE rownum__index >= ?
  61   )',
  62   [
  63     [ $TOTAL => 5 ],
  64     [ $OFFSET => 4 ],
  65   ],
  66   'Rownum subsel aliasing works correctly'
  67 );
  68
  69 {
  70   $rs = $s->resultset('Artist')->search({}, {
  71     columns => 'name',
  72     offset => 1,
  73     order_by => 'name',
  74   });
  75   local $rs->result_source->{name} = "weird \n newline/multi \t \t space containing \n table";
  76
  77   like (
  78     ${$rs->as_query}->[0],
  79     qr| weird \s \n \s newline/multi \s \t \s \t \s space \s containing \s \n \s table|x,
  80     'Newlines/spaces preserved in final sql',
  81   );
  82 }
  83
  84
  85 done_testing;