8 use DBIC::SqlMakerTest;
12 my $schema = DBICTest->init_schema();
16 columns => [ 'cdid' ],
17 '+columns' => [ { title_lc => { lower => 'title' } } ],
18 '+select' => [ 'genreid' ],
19 '+as' => [ 'genreid' ],
20 } => 'SELECT me.cdid, LOWER( title ), me.genreid FROM cd me',
23 '+columns' => [ { max_year => { max => 'me.year' }}, ],
24 '+select' => [ { count => 'me.cdid' }, ],
26 } => 'SELECT me.cdid, LOWER( title ), MAX( me.year ), me.genreid, COUNT( me.cdid ) FROM cd me',
29 select => [ { min => 'me.cdid' }, ],
31 } => 'SELECT MIN( me.cdid ) FROM cd me',
34 '+columns' => [ { cnt => { count => 'cdid' } } ],
35 } => 'SELECT MIN( me.cdid ), COUNT ( cdid ) FROM cd me',
38 columns => [ 'year' ],
39 } => 'SELECT me.year FROM cd me',
42 my $rs = $schema->resultset('CD');
46 my $attrs = shift @chain;
47 my $sql = shift @chain;
49 $rs = $rs->search ({}, $attrs);
55 "Test $testno of SELECT assembly ok",