my @chain = (
{
columns => [ 'cdid' ],
- '+select' => [ { lower => 'title' }, 'genreid' ],
- '+as' => [ qw/title_lc genreid/ ],
+ '+columns' => [ { title_lc => { lower => 'title' } } ],
+ '+select' => [ 'genreid' ],
+ '+as' => [ 'genreid' ],
} => 'SELECT me.cdid, LOWER( title ), me.genreid FROM cd me',
{
'+columns' => [ { max_year => { max => 'me.year' }}, ],
'+select' => [ { count => 'me.cdid' }, ],
'+as' => [ 'cnt' ],
- } => 'SELECT me.cdid, MAX( me.year ), LOWER( title ), me.genreid, COUNT( me.cdid ) FROM cd me',
+ } => 'SELECT me.cdid, LOWER( title ), MAX( me.year ), me.genreid, COUNT( me.cdid ) FROM cd me',
{
select => [ { min => 'me.cdid' }, ],
{
'+columns' => [ { cnt => { count => 'cdid' } } ],
- } => 'SELECT COUNT ( cdid ), MIN( me.cdid ) FROM cd me',
+ } => 'SELECT MIN( me.cdid ), COUNT ( cdid ) FROM cd me',
{
columns => [ 'year' ],
is_same_sql_bind (
$rs->as_query,
- "x( $sql )", # the x-es are here until SQLA is fixed
+ "($sql)",
[],
"Test $testno of SELECT assembly ok",
);
$testno++;
}
-done_testing;
\ No newline at end of file
+done_testing;