7 use DBIC::SqlMakerTest;
11 my $schema = DBICTest->init_schema();
13 my $multicol_rs = $schema->resultset('Artist')->search({ artistid => \'1' }, { columns => [qw/name rank/] });
19 columns => [ 'cdid' ],
27 '+select' => \ 'DISTINCT(foo, bar)',
28 '+as' => [qw/foo bar/],
34 => [qw/cdid title foo bar/],
37 '+select' => \'unaliased randomness',
44 => [qw/cdid title foo bar/],
46 '+select' => [ 'genreid', $multicol_rs->as_query ],
47 '+as' => [qw/genreid name rank/],
53 (SELECT me.name, me.rank FROM artist me WHERE ( artistid 1 )),
56 => [qw/cdid title foo bar genreid name rank/],
59 '+select' => { count => 'me.cdid', -as => 'cnt' }, # lack of 'as' infers from '-as'
60 '+columns' => { len => { length => 'me.title' } },
65 COUNT( me.cdid ) AS cnt,
68 (SELECT me.name, me.rank FROM artist me WHERE ( artistid 1 )),
71 => [qw/cdid title len cnt foo bar genreid name rank/],
76 my $rs = $schema->resultset('CD');
80 my $attrs = shift @chain;
81 my $sql = shift @chain;
82 my $as = shift @chain;
84 $rs = $rs->search ({}, $attrs);
90 "Test $testno of SELECT assembly ok",
94 $rs->_resolved_attrs->{as},
96 "Correct dbic-side aliasing for test $testno",