8 use DBIC::SqlMakerTest;
12 my $schema = DBICTest->init_schema();
16 columns => [ 'cdid' ],
17 '+columns' => [ { title_lc => { lower => 'title', -as => 'lctitle' } } ],
18 '+select' => [ 'genreid' ],
19 '+as' => [ 'genreid' ],
20 } => 'SELECT me.cdid, LOWER( title ) AS lctitle, me.genreid FROM cd me',
23 '+columns' => [ { max_year => { max => 'me.year', -as => 'last_y' }}, ],
24 '+select' => [ { count => 'me.cdid' }, ],
26 } => 'SELECT me.cdid, LOWER( title ) AS lctitle, MAX( me.year ) AS last_y, 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', -as => 'cnt' } } ],
35 } => 'SELECT MIN( me.cdid ), COUNT ( cdid ) AS cnt FROM cd me',
38 columns => [ { foo => { coalesce => [qw/a b c/], -as => 'firstfound' } } ],
39 } => 'SELECT COALESCE( a, b, c ) AS firstfound FROM cd me',
42 '+columns' => [ 'me.year' ],
43 '+select' => [ { max => 'me.year', -as => 'last_y' } ],
45 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y FROM cd me',
48 '+select' => [ { count => 'me.cdid', -as => 'cnt' } ],
50 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt FROM cd me',
52 # adding existing stuff should not alter selector
54 '+select' => [ 'me.year' ],
56 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt FROM cd me',
59 '+columns' => [ 'me.year' ],
60 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt FROM cd me',
63 '+columns' => 'me.year',
64 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt FROM cd me',
68 my $rs = $schema->resultset('CD');
72 my $attrs = shift @chain;
73 my $sql = shift @chain;
75 $rs = $rs->search ({}, $attrs);
81 "Test $testno of SELECT assembly ok",
87 # Make sure we don't lose bits even with weird selector specs
88 $rs = $schema->resultset('CD')->search ({}, {
89 'columns' => [ 'me.title' ],
91 '+select' => \'me.year AS foo',
93 '+select' => [ \'me.artistid AS bar' ],
95 '+select' => { count => 'artistid', -as => 'baz' },
104 COUNT( artistid ) AS baz
108 'Correct chaining before attr resolution'