1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
9 use DBICTest ':DiffSQL';
11 my $schema = DBICTest->init_schema();
13 my $rs = $schema->resultset('Artist')->search(
14 [ -and => [ {}, [] ], -or => [ {}, [] ] ],
18 '+columns' => 'artistid',
19 join => [ {}, [ [ {}, {} ] ], {} ],
20 prefetch => [ [ [ {}, [] ], {} ], {}, [ {} ] ],
29 '(SELECT me.artistid FROM artist me)',
34 $rs->count_rs->as_query,
35 '(SELECT COUNT(*) FROM artist me)',
40 $rs->as_subselect_rs->search({}, { columns => 'artistid' })->as_query,
41 '(SELECT me.artistid FROM (SELECT me.artistid FROM artist me) me)',
46 local $TODO = 'Stupid misdesigned as_subselect_rs';
48 $rs->as_subselect_rs->as_query,
49 $rs->as_subselect_rs->search({}, { columns => 'artistid' })->as_query,