use DBIC::SqlMakerTest;
use DBIx::Class::SQLMaker::LimitDialects;
-my ($TOTAL, $OFFSET) = (
+my ($TOTAL, $OFFSET, $ROWS) = (
DBIx::Class::SQLMaker::LimitDialects->__total_bindtype,
DBIx::Class::SQLMaker::LimitDialects->__offset_bindtype,
+ DBIx::Class::SQLMaker::LimitDialects->__rows_bindtype,
);
my $s = DBICTest->init_schema (no_deploy => 1, );
[ $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, {
is_same_sql_bind(
$rs_selectas_rel->as_query,
'(
- SELECT id, owner FROM (
- SELECT id, owner, ROWNUM rownum__index FROM (
- SELECT me.id, me.owner FROM books me WHERE ( ( (EXISTS (SELECT COUNT( * ) FROM owners owner WHERE ( books.owner = owner.id ))) AND source = ? ) )
- ) me
- ) me WHERE rownum__index BETWEEN ? AND ?
+ SELECT me.id, me.owner FROM (
+ SELECT me.id, me.owner FROM books me WHERE ( ( (EXISTS (SELECT COUNT( * ) FROM owners owner WHERE ( books.owner = owner.id ))) AND source = ? ) )
+ ) me
+ WHERE ROWNUM <= ?
)',
[
[ { sqlt_datatype => 'varchar', sqlt_size => 100, dbic_colname => 'source' } => 'Library' ],
- [ $OFFSET => 1 ],
- [ $TOTAL => 1 ],
+ [ $ROWS => 1 ],
],
'Pagination with sub-query in WHERE works'
);
}
-
done_testing;