8 use DBIC::SqlMakerTest;
10 my $schema = DBICTest->init_schema();
14 columns => [ 'cdid' ],
15 '+columns' => [ { title_lc => { lower => 'title', -as => 'lctitle' } } ],
16 '+select' => [ 'genreid' ],
17 '+as' => [ 'genreid' ],
18 } => 'SELECT me.cdid, LOWER( title ) AS lctitle, me.genreid FROM cd me',
21 '+columns' => [ { max_year => { max => 'me.year', -as => 'last_y' }}, ],
22 '+select' => [ { count => 'me.cdid' }, ],
24 } => 'SELECT me.cdid, LOWER( title ) AS lctitle, MAX( me.year ) AS last_y, me.genreid, COUNT( me.cdid ) FROM cd me',
27 select => [ { min => 'me.cdid' }, ],
29 } => 'SELECT MIN( me.cdid ) FROM cd me',
32 '+columns' => [ { cnt => { count => 'cdid', -as => 'cnt' } } ],
33 } => 'SELECT COUNT ( cdid ) AS cnt, MIN( me.cdid ) FROM cd me',
36 columns => [ { foo => { coalesce => [qw/a b c/], -as => 'firstfound' } } ],
37 } => 'SELECT COALESCE( a, b, c ) AS firstfound FROM cd me',
40 '+columns' => [ 'me.year' ],
41 '+select' => [ { max => 'me.year', -as => 'last_y' } ],
43 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y FROM cd me',
46 '+select' => [ { count => 'me.cdid', -as => 'cnt' } ],
48 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt FROM cd me',
50 # adding existing stuff should not alter selector
52 '+select' => [ 'me.year' ],
54 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt, me.year FROM cd me',
57 '+columns' => [ 'me.year' ],
58 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt, me.year FROM cd me',
61 '+columns' => 'me.year',
62 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt, me.year FROM cd me',
64 # naked selector at the end should just work
66 '+select' => 'me.moar_stuff',
67 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt, me.year, me.moar_stuff FROM cd me',
70 '+select' => [ { MOAR => 'f', -as => 'func' } ],
71 } => 'SELECT COALESCE( a, b, c ) AS firstfound, me.year, MAX( me.year ) AS last_y, COUNT( me.cdid ) AS cnt, me.year, me.moar_stuff, MOAR(f) AS func FROM cd me',
75 my $rs = $schema->resultset('CD');
79 my $attrs = shift @chain;
80 my $sql = shift @chain;
82 $rs = $rs->search ({}, $attrs);
88 "Test $testno of SELECT assembly ok",
94 # Make sure we don't lose bits even with weird selector specs
95 # also check that the default selector list is lazy
96 # and make sure that unaliased +select does not go crazy
97 $rs = $schema->resultset('CD');
99 { '+columns' => [ 'me.title' ] }, # this one should be de-duplicated but not the select's
101 { '+select' => \'me.year AS foo' }, # duplication of identical select expected (FIXME ?)
102 { '+select' => \['me.year AS foo'] },
104 { '+select' => [ \'me.artistid AS bar' ] },
105 { '+select' => { count => 'artistid', -as => 'baz' } },
107 for (qw/columns select as/) {
108 ok (! exists $rs->{attrs}{$_}, "No eager '$_' attr on fresh resultset" );
111 $rs = $rs->search({}, $attr);
126 COUNT( artistid ) AS baz
130 'Correct chaining before attr resolution'
133 # Test the order of columns
134 $rs = $schema->resultset('CD')->search ({}, {
135 'select' => [ 'me.cdid', 'me.title' ],
146 'Correct order of selected columns'
149 # Test bare +select with as from root of resultset
150 $rs = $schema->resultset('CD')->search ({}, {
153 { MOAR => 'f', -as => 'func' },
171 'Correct order of selected columns'