8 use DBIC::SqlMakerTest;
12 my $schema = DBICTest->init_schema();
16 columns => [ 'cdid' ],
17 '+select' => [ { lower => 'title' }, 'genreid' ],
18 '+as' => [ qw/title_lc genreid/ ],
19 } => 'SELECT me.cdid, LOWER( title ), me.genreid FROM cd me',
22 '+columns' => [ { max_year => { max => 'me.year' }}, ],
23 '+select' => [ { count => 'me.cdid' }, ],
25 } => 'SELECT me.cdid, MAX( me.year ), LOWER( title ), me.genreid, COUNT( me.cdid ) FROM cd me',
28 select => [ { min => 'me.cdid' }, ],
30 } => 'SELECT MIN( me.cdid ) FROM cd me',
33 '+columns' => [ { cnt => { count => 'cdid' } } ],
34 } => 'SELECT COUNT ( cdid ), MIN( me.cdid ) FROM cd me',
37 columns => [ 'year' ],
38 } => 'SELECT me.year FROM cd me',
41 my $rs = $schema->resultset('CD');
45 my $attrs = shift @chain;
46 my $sql = shift @chain;
48 $rs = $rs->search ({}, $attrs);
54 "Test $testno of SELECT assembly ok",