my $s = DBICTest->init_schema (no_deploy => 1, );
$s->storage->sql_maker->limit_dialect ('RowNum');
-my $rs = $s->resultset ('CD');
+my $rs = $s->resultset ('CD')->search({ id => 1 });
+
+my $where_bind = [ { dbic_colname => 'id' }, 1 ];
for my $test_set (
{
SELECT id, bar__id, bleh, ROWNUM rownum__index
FROM (
SELECT foo.id AS id, bar.id AS bar__id, TO_CHAR (foo.womble, "blah") AS bleh
- FROM cd me
+ FROM cd me
+ WHERE id = ?
) me
) me WHERE rownum__index BETWEEN ? AND ?
)',
binds => [
+ $where_bind,
[ $OFFSET => 4 ],
[ $TOTAL => 4 ],
],
SELECT id, bar__id, bleh, ROWNUM rownum__index
FROM (
SELECT foo.id AS id, bar.id AS bar__id, TO_CHAR(foo.womble, "blah") AS bleh
- FROM cd me
+ FROM cd me
+ WHERE id = ?
ORDER BY artist, title
) me
WHERE ROWNUM <= ?
WHERE rownum__index >= ?
)',
binds => [
+ $where_bind,
[ $TOTAL => 4 ],
[ $OFFSET => 4 ],
],
+ },
+ {
+ name => 'Rownum subsel aliasing works correctly with non-unique order_by',
+ rs => $rs->search_rs(undef, {
+ rows => 1,
+ offset => 3,
+ columns => [
+ { id => 'foo.id' },
+ { 'bar.id' => 'bar.id' },
+ { bleh => \'TO_CHAR (foo.womble, "blah")' },
+ ],
+ order_by => 'artist',
+ }),
+ sql => '(
+ SELECT id, bar__id, bleh
+ FROM (
+ SELECT id, bar__id, bleh, ROWNUM rownum__index
+ FROM (
+ SELECT foo.id AS id, bar.id AS bar__id, TO_CHAR(foo.womble, "blah") AS bleh
+ FROM cd me
+ WHERE id = ?
+ ORDER BY artist
+ ) me
+ ) me
+ WHERE rownum__index BETWEEN ? and ?
+ )',
+ binds => [
+ $where_bind,
+ [ $OFFSET => 4 ],
+ [ $TOTAL => 4 ],
+ ],
}, {
name => 'Rownum subsel aliasing #2 works correctly',
rs => $rs->search_rs(undef, {
SELECT id, ends_with_me__id, ROWNUM rownum__index
FROM (
SELECT foo.id AS id, ends_with_me.id AS ends_with_me__id
- FROM cd me
+ FROM cd me
+ WHERE id = ?
) me
) me WHERE rownum__index BETWEEN ? AND ?
)',
binds => [
+ $where_bind,
[ $OFFSET => 4 ],
[ $TOTAL => 5 ],
],
SELECT id, ends_with_me__id, ROWNUM rownum__index
FROM (
SELECT foo.id AS id, ends_with_me.id AS ends_with_me__id
- FROM cd me
+ FROM cd me
+ WHERE id = ?
ORDER BY artist, title
) me
WHERE ROWNUM <= ?
WHERE rownum__index >= ?
)',
binds => [
+ $where_bind,
[ $TOTAL => 5 ],
[ $OFFSET => 4 ],
],