t/42toplimit.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
   9 my $schema = DBICTest->init_schema;
  10
  11 # Trick the sqlite DB to use Top limit emulation
  12 # We could test all of this via $sq->$op directly,
  13 # but some conditions needs a $rsrc
  14 delete $schema->storage->_sql_maker->{_cached_syntax};
  15 $schema->storage->_sql_maker->limit_dialect ('Top');
  16
  17 my $rs = $schema->resultset ('FourKeys')->search ({}, { rows => 1, offset => 3 });
  18
  19 sub test_order {
  20   my $args = shift;
  21
  22   my $req_order = $args->{order_req}
  23     ? "ORDER BY $args->{order_req}"
  24     : ''
  25   ;
  26
  27   is_same_sql_bind(
  28     $rs->search ({}, {order_by => $args->{order_by}})->as_query,
  29     "(
  30       SELECT * FROM (
  31         SELECT TOP 1 * FROM (
  32           SELECT TOP 4 me.foo, me.bar, me.hello, me.goodbye, me.sensors, me.read_count FROM fourkeys me ORDER BY $args->{order_inner}
  33         ) foo ORDER BY $args->{order_outer}
  34       ) bar
  35       $req_order
  36     )",
  37     [],
  38   );
  39 }
  40
  41 my @tests = (
  42   {
  43     order_by => \ 'foo DESC',
  44     order_req => 'foo DESC',
  45     order_inner => 'foo DESC',
  46     order_outer => 'foo ASC'
  47   },
  48   {
  49     order_by => { -asc => 'foo'  },
  50     order_req => 'foo ASC',
  51     order_inner => 'foo ASC',
  52     order_outer => 'foo DESC',
  53   },
  54   {
  55     order_by => 'foo',
  56     order_req => 'foo',
  57     order_inner => 'foo ASC',
  58     order_outer => 'foo DESC',
  59   },
  60   {
  61     order_by => [ qw{ foo bar}   ],
  62     order_req => 'foo, bar',
  63     order_inner => 'foo ASC,bar ASC',
  64     order_outer => 'foo DESC, bar DESC',
  65   },
  66   {
  67     order_by => { -desc => 'foo' },
  68     order_req => 'foo DESC',
  69     order_inner => 'foo DESC',
  70     order_outer => 'foo ASC',
  71   },
  72   {
  73     order_by => ['foo', { -desc => 'bar' } ],
  74     order_req => 'foo, bar DESC',
  75     order_inner => 'foo ASC, bar DESC',
  76     order_outer => 'foo DESC, bar ASC',
  77   },
  78   {
  79     order_by => { -asc => [qw{ foo bar }] },
  80     order_req => 'foo ASC, bar ASC',
  81     order_inner => 'foo ASC, bar ASC',
  82     order_outer => 'foo DESC, bar DESC',
  83   },
  84   {
  85     order_by => [
  86       { -asc => 'foo' },
  87       { -desc => [qw{bar}] },
  88       { -asc  => [qw{hello sensors}]},
  89     ],
  90     order_req => 'foo ASC, bar DESC, hello ASC, sensors ASC',
  91     order_inner => 'foo ASC, bar DESC, hello ASC, sensors ASC',
  92     order_outer => 'foo DESC, bar ASC, hello DESC, sensors DESC',
  93   },
  94   {
  95     order_by => undef,
  96     order_req => undef,
  97     order_inner => 'foo ASC, bar ASC, hello ASC, goodbye ASC',
  98     order_outer => 'foo DESC, bar DESC, hello DESC, goodbye DESC',
  99   },
 100   {
 101     order_by => '',
 102     order_req => undef,
 103     order_inner => 'foo ASC, bar ASC, hello ASC, goodbye ASC',
 104     order_outer => 'foo DESC, bar DESC, hello DESC, goodbye DESC',
 105   },
 106   {
 107     order_by => {},
 108     order_req => undef,
 109     order_inner => 'foo ASC, bar ASC, hello ASC, goodbye ASC',
 110     order_outer => 'foo DESC, bar DESC, hello DESC, goodbye DESC',
 111   },
 112   {
 113     order_by => [],
 114     order_req => undef,
 115     order_inner => 'foo ASC, bar ASC, hello ASC, goodbye ASC',
 116     order_outer => 'foo DESC, bar DESC, hello DESC, goodbye DESC',
 117   },
 118 );
 119
 120 plan (tests => scalar @tests + 1);
 121
 122 test_order ($_) for @tests;
 123
 124 is_same_sql_bind (
 125   $rs->search ({}, { group_by => 'bar', order_by => 'bar' })->as_query,
 126   '(
 127     SELECT * FROM
 128     (
 129       SELECT TOP 1 * FROM
 130       (
 131         SELECT TOP 4  me.foo, me.bar, me.hello, me.goodbye, me.sensors, me.read_count FROM fourkeys me GROUP BY bar ORDER BY bar ASC
 132       ) AS foo
 133       ORDER BY bar DESC
 134     ) AS bar
 135     ORDER BY bar
 136   )',
 137   [],
 138 );